! 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