! A demonstration program using the EDWIN transformation stack.

record format pointfm (integer x, y)
include "edwin_dir:specs.inc"
include "edwin_dir:txstack.inc"

begin
   integer I
   record (pointfm) P, NP
   record (transfm) TX

   p_x = 250;   p_y = 0
   initialise for (default device)
   newframe

   init transform
   for I = 0, 15, 360 cycle
        rot ang transform (i, tx)
        push transform (tx)
        point transform (p, np)
        pop transform
        move abs (500, 500)
        line abs (500+np_x, 500+np_y)
   repeat

   terminate edwin
end of program