Artifact 7adc83bf30b73a3a0d4f150f110e55597228d05a48ff48146c9da83e79f2b5d9:

• File psl-1983/3-1/help/prlisp.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: 1181) [annotate] [blame] [check-ins using] [more...]

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

This is a brief guide to the 3D version of Picture RLISP. This is much
slower than the PRLISP2D subset, which is better if only planar
displays are required. PRLISP can now be run under PSL as well, though
of course with no syntax.

RLISP Use:

LOAD PRLISP;    % Load 3D 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:PR-DEMO.RED, use IN "PU:PR-DEMO.RED"$

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

(LOAD PRLISP)
(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:PR-DEMO.SL, run with
(LAPIN "PU:PR-DEMO.SL")