Artifact 1077186b833063041b4969dc53f098c19ca8bc2e6996340772eae03d50fa6853:

• File psl-1983/3-1/help/prlisp2d.hlp — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1215) [annotate] [blame] [check-ins using] [more...]

• File psl-1983/help/prlisp2d.hlp — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1215) [annotate] [blame] [check-ins using]

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")