Artifact 172b1629be823cae1de662e6caa0f87a2eeb816516af601680e9e7d190ed71af:

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

• File psl-1983/util/pr2d-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: 1395) [annotate] [blame] [check-ins using]

% Lisp Syntax form of PR2D-DEMO.RED
%  2D Version

(LOAD PRLISP2D)
% Initialize for HP2648
(HP!.INIT)

% Build some ObJects

(SETQ OUTLINE 
      (POINTSET (ONEPOINT 10 10) (ONEPOINT -10 10) (ONEPOINT -10 -10) 
                (ONEPOINT 10 -10) (ONEPOINT 10 10)))
(SETQ ARROW 
      (GROUP (POINTSET (ONEPOINT 0 -1) (ONEPOINT 0 2)) 
             (POINTSET (ONEPOINT -1 1) (ONEPOINT 0 2) (ONEPOINT 1 1))))

(SETQ CUBE (GROUP OUTLINE ARROW))
(SETQ BIGCUBE (TRANSFORM CUBE (SCALE 5)))
(ESHOW CUBE)
(SHOW (TRANSFORM CUBE (XMOVE 30)))
(SHOW BIGCUBE)
(ESHOW (TRANSFORM BIGCUBE (ZROT 30)))
(ESHOW (TRANSFORM (ONEPOINT 10 10) (CIRCLE 70)))
(SETQ CPTS 
      (POINTSET (ONEPOINT 0 0) (ONEPOINT 70 -60) (ONEPOINT 189 -69) 
                (ONEPOINT 206 33) (ONEPOINT 145 130) (ONEPOINT 48 130) 
                (ONEPOINT 0 84)))
(ESHOW (TRANSFORM (ONEPOINT 10 10) (CIRCLE 50)))
(ESHOW (GROUP CPTS (TRANSFORM CPTS (BEZIER))))
(ESHOW (GROUP CPTS (TRANSFORM CPTS (BSPLINE))))
(ESHOW (TRANSFORM (TRANSFORM (TRANSFORM CUBE (SCALE 2)) (XMOVE -240)) 
                  (REPEATED 5 (XMOVE 80))))
(ESHOW (TRANSFORM (ONEPOINT 0 0) (TEXT "ABC DEF")))
(ESHOW (TRANSFORM (TRANSFORM (TRANSFORM (ONEPOINT 5 5) (TEXT "123 456")) 
                             (ZROT 25))
                  (SCALE 2)))
(ESHOW (TRANSFORM (ONEPOINT 10 10) (TEXT "123")))
(SHOW (TRANSFORM (TRANSFORM (ONEPOINT 30 30) (TEXT "456")) (SCALE 3)))