Artifact 3709c05ff25a014621276ff9088523cb6e93ecaf3a9bf9cf37a0fa3c0d947de2:

• File psl-1983/help/apollo-plot.hlp — 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: 1032) [annotate] [blame] [check-ins using] [more...]

APOLLO Graphics Routines in PLISP               JWP 12 June 1982
---------------------------------

/utah/com/plisp now has the ability to open a Window Pane in Graphics
(Frame) mode; and have a 3 window dialogue with Text Input, Text Output
(and the F8 and editing keys are Great!)  and Graphics output. The
graphics primitives are:

(L_INITPLOT)  % To split the 2 paned LISP window into 3 panes
(L_ENDPLOT)   % to return to 2 pane mode
(L_ERASE)     % to clear the graphics pane
(L_MOVE x y)  
(L_DRAW x y)

[0,0] is in upper left corner, range x=0..799, y=0..1023 roughly. 

The graphics pane is of course scrollable if you draw below visible edge.

The get to RLISP mode, execute one of:

(BEGIN) or (BEGINRLISP) or (RLISP), depending favorite flavor
of top-loop. Then try:

L_INITPLOT();          % To split screen

Procedure Box(x,y,a,b);
 <<L_Move(x,y);
   L_Draw(x+a,y); L_Draw(x+a,y+b); L_Draw(x,y+a); L_Draw(x,y)>>;

L_Erase();

For i:=1:10 do Box(5*i,6*i,3*I+10,4*I+20);

L_ENDPLOT();	       % To return to 2 pane mode.