Artifact 3709c05ff25a014621276ff9088523cb6e93ecaf3a9bf9cf37a0fa3c0d947de2:


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.



REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]