Artifact 83a3c2b011371853d5b27305b7e59a13deb8854a30a68f953ae8a2fcf98340da:

• File psl-1983/3-1/util/pr-demo.sl — 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: 1997) [annotate] [blame] [check-ins using] [more...]

• File psl-1983/util/pr-demo.sl — 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: 1997) [annotate] [blame] [check-ins using]

% PR-DEMO.SL: A small 3D Picture RLISP demo file, using LISP syntax
% Is equivalent to the PR-DEMO.RED form in RLISP syntax
% Use (LAPIN "PU:PR-DEMO.SL") for best effects

(LOAD PRLISP)

% First call the xxx!.INIT routine,

(HP!.INIT)  % For HP2648a

% Define a 20 x 20 square
(SETQ OUTLINE
      (POINTSET (ONEPOINT 10 10)
                (ONEPOINT -10 10)
                (ONEPOINT -10 -10)
                (ONEPOINT 10 -10)
                (ONEPOINT 10 10)))

% and an Arrow to place in square
(SETQ ARROW
      (GROUP (POINTSET (ONEPOINT 0 -1) (ONEPOINT 0 2))
             (POINTSET (ONEPOINT -1 1) (ONEPOINT 0 2) (ONEPOINT 1 1))))

% to produce the CubeFace. Will be shifted out by 10 units
(SETQ CUBEFACE (TRANSFORM (GROUP OUTLINE ARROW) (ZMOVE 10)))

% to produce a 20 x 20 x 20 Cube
(SETQ CUBE
      (GROUP CUBEFACE
             (TRANSFORM CUBEFACE (XROT 180))
             (TRANSFORM CUBEFACE (YROT 90))
             (TRANSFORM CUBEFACE (YROT -90))
             (TRANSFORM CUBEFACE (XROT 90))
             (TRANSFORM CUBEFACE (XROT -90))))

% This is a bigger cube to be seen more clearly
(SETQ BIGCUBE (TRANSFORM CUBE (SCALE 5)))

% as can be seen
(ESHOW BIGCUBE)

% Some more views of the CUBE
(ESHOW
 (TRANSFORM (TRANSFORM (TRANSFORM BIGCUBE (XROT 20)) (YROT 30)) (ZROT 10)))
(ESHOW
 (TRANSFORM (TRANSFORM (TRANSFORM CUBE (SCALE 2)) (XMOVE -240))
            (REPEATED 5 (XMOVE 80))))

% Draw a circle
(ESHOW (TRANSFORM (ONEPOINT 10 10) (CIRCLE 70)))
% and another
(SHOW (TRANSFORM (TRANSFORM (ONEPOINT 10 10) (CIRCLE 50))
	         (XMOVE 20)))

% Define Some control points for Bspline and Bezier
(SETQ CPTS
      (POINTSET (ONEPOINT 0 0)
                (ONEPOINT 70 -60)
                (ONEPOINT 189 -69)
                (ONEPOINT 206 33)
                (ONEPOINT 145 130)
                (ONEPOINT 48 130)
                (ONEPOINT 0 84)))

% And show the BSPLINE and BEZIER curves
(ESHOW (GROUP CPTS (TRANSFORM CPTS (BEZIER))))
(ESHOW (GROUP CPTS (TRANSFORM CPTS (BSPLINE))))