Artifact c339bb7944b099d89fd38e54d7e4091963908413d170d77c78b4c306a091c032:

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

% This is a small Picture RLISP demo file
% For ANY driver

Outline := { 10, 10} _ {-10, 10} _            % Outline is 20 by 20 
          {-10,-10} _ { 10,-10} _ {10, 10}$   % Square

Arrow := {0,-1} _ {0,2}  &  {-1,1} _ {0,2} _ {1,1}$
                              
Cubeface   :=   (Outline & Arrow)  |  ZMOVE 10$

Cube   :=   Cubeface   
        &  Cubeface | XROT (180)  % 180 degrees
        &  Cubeface | YROT ( 90)
        &  Cubeface | YROT (-90)
        &  Cubeface | XROT ( 90)
        &  Cubeface | XROT (-90)$

BigCube := Cube | Scale 5$

ESHOW  BigCube$

ESHOW {10,10} | circle(70)$

Cpts := {0,0} _ {70,-60} _ {189,-69} _ {206,33} _ {145,130} _ {48,130}
       _ {0,84} $

ESHOW ( {10,10} | CIRCLE(50))$

ESHOW (Cpts & Cpts | BEZIER())$

ESHOW (Cpts & Cpts | BSPLINE())$

ESHOW  (BigCube | XROT 20 | YROT 30 | ZROT 10)$

ESHOW (Cube | scale 2 | XMOVE (-240) | REPEATED(5, XMOVE 80))$


END;