app/mpg/2.2/src/DATAGRAPH 3-7.GCONF

Raw file
Back to index

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
PLOTTER "DATAGRAPH",3,7,511,241,25.0,16.5; 
 
COLORS "000999900029490000990751";
 
LET csi = ""27"[?"; 
 
PROC datagraph palette: 
   INT VAR coln, rgb; 
   REAL VAR anteil; 
   FOR coln FROM 0 UPTO colors - 1 REP
      rgb := color (coln);
      IF rgb <> maxint
         THEN out (csi + text (coln) + ";"); 
              anteil := real (rgb DIV 100) / 9.0; 
              out (text (int (7.0 * anteil + 0.5)) + ";"); 
              anteil := real ((rgb MOD 100) DIV 10) / 9.0; 
              out (text (int (7.0 * anteil + 0.5)) + ";"); 
              anteil := real (rgb MOD 10) / 9.0; 
              out (text (int (3.0 * anteil + 0.5)) + "m"); 
      FI
   PER 
END PROC datagraph palette; 

PROC prepare:
    break(quiet);
    REP 
       disable stop;
       continue (channel(plotter)); 
       clear error;
       enable stop; 
       IF NOT online 
          THEN pause (300)
       FI
    UNTIL online PER
END PROC prepare;
 
PROC clear: 
   out (csi + "2D"); 
   foreground (1)
END PROC clear; 

PROC initplot: 
   out (csi + "1a"); 
   out (csi + "0j");
   out (csi + "3j"); 
   out (csi + "4j") 
END PROC initplot; 
 
PROC endplot: 
   pause; 
   out (csi + "0a");
   out (csi + "3;7;5;1m"); 
   out (csi + "0;0;0;0m");
   out (""27"[33m") 
END PROC endplot;

PROC home: 
   move to (0,0); 
END PROC home; 
 
PROC moveto (INT CONST x,y): 
   out (csi + "1;"+text(y)+";"+text(x)+"C") 
END PROC moveto; 
 
PROC drawto (INT CONST x,y): 
   out (csi + "0V"); 
   out (csi + "1V"); 
   out (csi + "3;"+text(y)+";"+text(x)+"V") 
END PROC drawto; 
 
PROC setpixel (INT CONST x,y): 
   out (""27"[?0;"+text(y)+";"+text(x)+"P") 
END PROC setpixel;

PROC foreground (INT VAR type): 
   IF type >= 0 AND type <= 7
      THEN out (csi + text (type) + ";f") 
      ELSE type := 1;out (csi + "1;f")
   FI
END PROC foreground;

PROC background (INT VAR type):
   IF color (type) <> maxint
      THEN set color (0,color (type))
      ELSE type := 0;set color (0,000) 
   FI;
   set palette
END PROC back ground; 
 
PROC set palette: 
   datagraph palette 
END PROC set palette;

PROC circle (INT CONST x,y,rad,from,to): 
   move to (x, y);
   IF from = 0 AND to = 360 
      THEN out (csi + "0;" + text(y) + ";" + text (x) + ";" + 
                text (y) + ";" + text (x+rad) + "K") 
      ELSE out (csi + "2;" + text (y) + ";" + text (x+rad) +"C"); 
           out (csi + "2;" + text (to-from) + "S") 
   FI 
END PROC circle; 
 
PROC box (INT CONST x1,y1,x2,y2,pattern):                      
   move to (x1, y1); 
   out (csi + text (pattern + 3 * sign(pattern)) + ";" + 
              text (y1) + ";" + text (x1) + ";" + 
              text (y2) + ";" + text (x2) + "R") 
END PROC box; 
 
PROC fill (INT CONST x,y,pattern): 
    move to (x,y); 
    IF pattern > 6 OR pattern = 0
       THEN out (csi + "0I") 
       ELSE out (csi + text (pattern+3) + "I") 
    FI 
END PROC fill;