dynamo/dyn.print

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
PACKET dynamo printer DEFINES initialize print, new line, print :
 
BOOL VAR prt;
TEXT VAR headline;
REAL VAR prtper, nextprint;
 
PROC initialize print (TEXT CONST h) :
 headline := h;
 prtper := get prtper;
 nextprint := 0.0
END PROC initialize print;
 
PROC new line (REAL CONST time) :
 IF time >= nextprint
  THEN do lf
  ELSE prt := FALSE
 FI; 
 WHILE time >= nextprint REP
  nextprint INCR prtper
 PER.
 
 do lf :
  print line;
  prt := TRUE;
  IF pagefeed necessary OR NOT was print
   THEN vdt;
        sys page;
        print headline
  FI;
  print (time).
 
 print headline :
  println ("TIME          " + headline).
END PROC new line;
 
PROC print (REAL CONST r) :
 IF prt
  THEN print output (text (text (round (r, 5)), 13))
 FI
END PROC print
 
END PACKET dynamo printer