Artifact 1077186b833063041b4969dc53f098c19ca8bc2e6996340772eae03d50fa6853:


2D version of PictureRLISP		MLG 4 Jan 1983
------------------------------------------------------

This is a brief guide to the 2D version of Picture RLISP. This is much
faster than the full 3D version if only planar displays are required.
It is the X-Y plane subset of PRLISP.  PRLISP can now be run under PSL
as well, though of course with no syntax.

RLISP Use:

LOAD PRLISP2D;  % Load 2D version of PictureRLISP
HP!.INIT();     % Select Driver, this is most common HP2648a version

Line := {0,0} _ {10,10};  % Line from center towards upper-right
Show Line;                % Draw it
Show Line | ZROT(25);     % Draw rotated by 25 degrees
Erase();                  % Clear screen
Show Line & (Line | scale 3 | zrot 20 ) | xmove 10;

For more examples, see PU:PR2D-DEMO.RED, use IN "PU:PR2D-DEMO.RED"$

PRLISP2D can also be loaded and run from PSL, but no syntax is
available:

(LOAD PRLISP2D)
(HP!.INIT)

(setq LINE (POINTSET (ONEPOINT 0 0) (ONEPOINT 10 10)))

(SHOW LINE)
(SHOW (TRANSFORM LINE  (ZROT 25)))

(ERASE)

(SHOW (GROUP LINE (TRANSFORM
		    (TRANSFORM	 (TRANSFORM Line  (SCALE 3))
			         (ZROT 20))
		    (XMOVE 10))))

For more examples, see PU:PR2D-DEMO.SL, run with
(LAPIN "PU:PR2D-DEMO.SL")


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]