|
|
1.1 root 1: #include "pen.h"
2: move(x,y)
3: double x, y;
4: {
5: if(noscale){
6: x = SCX(x);
7: y = SCY(y);
8: }
9: penUp();
10: fprintf(pltout,"PA %8.2f,%8.2f\n",x,y);
11: ckerr(0);
12: }
13: rmove(x, y)
14: double x, y;
15: {
16: if(noscale){
17: x = SCX(x);
18: y = SCY(y);
19: }
20: penUp();
21: fprintf(pltout,"PR %8.2f,%8.2f\n",x,y);
22: ckerr(0);
23: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.