% Writing one line at 50,700 50 700 (Table of) Wrt % without coord. writes on the next line(s) (matching) Wrt % append other lines to the current paragraph... (Roman) (and Greek) (characters) Wrt % This can also be achieved in a single Wrt with % a pair of coordinates and one or several strings 200 700 (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) (13) Wrt % now let's print a nice blue table of greek letters Blue /xo 270 def /yo 700 def xo yo (a `a) (b `b) (c `c) (d `d) (e `e) (f `f) (g `g) (h `h) (i `i) (j `j) (k `k) (l `l) (m `m) Wrt /xo xo 60 add def xo yo (n `n) (o `o) (p `p) (q `q) (r `r) (s `s) (t `t) (u `u) (v `v) (w `w) (x `x) (y `y) (z `z) Wrt /xo xo 60 add def xo yo (A `A) (B `B) (C `C) (D `D) (E `E) (F `F) (G `G) (H `H) (I `I) (J `J) (K `K) (L `L) (M `M) Wrt /xo xo 60 add def xo yo (N `N) (O `O) (P `P) (Q `Q) (R `R) (S `S) (T `T) (U `U) (V `V) (W `W) (X `X) (Y `Y) (Z `Z) Wrt % /p1 {68 126} def % defining coord. of a point p1 /p2 {170 287} def % and p2 /p3 {270 160} def % and yet a third point % [ p1 p2 p3 ] Green Polygone Violet % NOTE points p1 must be different from p2 otherwise slope is undefined [ p1 p2 ] ( <- p_1 p_2 -> ) Wrt p1 p3 ( <- p_1 p_3 -> ) Wrt % this variant is also accepted % yet I prefer [] () Wrt for consistency with Plot functions [ p2 p3 ] ( <- p_2 p_3 -> ) Wrt [ p3 p2 ] ( <- p_3 p_2 -> ) Wrt