Artifact ebde01d3576a1c10daccf2c5f1225751e32cf0e851e3f731bb9b31a1607554a8:
- File
psl-1983/3-1/util/pr-demo.red
— 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: 1177) [annotate] [blame] [check-ins using] [more...]
- File
psl-1983/util/pr-demo.red
— 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: 1177) [annotate] [blame] [check-ins using]
% PR-DEMO.RED: A small 3D version Picture RLISP demo file % See also the LISP syntax form in PR-DEMO.SL % Use IN "PU:PR-DEMO.RED"$ for best effects LOAD PRLISP; HP!.INIT(); % For HP2648a 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)$ % Make it larger for better viewing BigCube := Cube | Scale 5$ % and show it ESHOW BigCube$ % Some more views ESHOW (BigCube | XROT 20 | YROT 30 | ZROT 10)$ ESHOW (Cube | scale 2 | XMOVE (-240) | REPEATED(5, XMOVE 80))$ % Some curves: ESHOW {10,10} | circle(70)$ SHOW {10,10} | circle(50) | Xmove 20$ % Some control points for BSPLINE and BEZIER curves Cpts := {0,0} _ {70,-60} _ {189,-69} _ {206,33} _ {145,130} _ {48,130} _ {0,84} $ ESHOW (Cpts & Cpts | BEZIER())$ ESHOW (Cpts & Cpts | BSPLINE())$ END;