File psl-1983/util/pr2d-demo.red artifact 1e41f74a3f part of check-in trunk

% This is a small Picture RLISP demo file
% For the simpler 2D version

Load prlisp2d$

HP!.Init()$

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}$
                              
Cube   :=   (Outline & Arrow)$

BigCube := Cube | Scale 5$

Eshow Cube$

Show Cube | Xmove 30$

SHOW  BigCube$

ESHOW BigCube | Zrot 30$

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 (Cube | scale 2 | XMOVE (-240) | REPEATED(5, XMOVE 80))$


ESHOW {0,0} | Text("ABC DEF")$

ESHOW {5,5} | Text("123 456") | Zrot 25 | Scale 2$

Eshow { 10,10} | Text("123")$

Show {30,30} | Text("456") | scale 3$

END$