apollo-plot.hlp 1.0 KB

123456789101112131415161718192021222324252627282930313233343536
  1. APOLLO Graphics Routines in PLISP JWP 12 June 1982
  2. ---------------------------------
  3. /utah/com/plisp now has the ability to open a Window Pane in Graphics
  4. (Frame) mode; and have a 3 window dialogue with Text Input, Text Output
  5. (and the F8 and editing keys are Great!) and Graphics output. The
  6. graphics primitives are:
  7. (L_INITPLOT) % To split the 2 paned LISP window into 3 panes
  8. (L_ENDPLOT) % to return to 2 pane mode
  9. (L_ERASE) % to clear the graphics pane
  10. (L_MOVE x y)
  11. (L_DRAW x y)
  12. [0,0] is in upper left corner, range x=0..799, y=0..1023 roughly.
  13. The graphics pane is of course scrollable if you draw below visible edge.
  14. The get to RLISP mode, execute one of:
  15. (BEGIN) or (BEGINRLISP) or (RLISP), depending favorite flavor
  16. of top-loop. Then try:
  17. L_INITPLOT(); % To split screen
  18. Procedure Box(x,y,a,b);
  19. <<L_Move(x,y);
  20. L_Draw(x+a,y); L_Draw(x+a,y+b); L_Draw(x,y+a); L_Draw(x,y)>>;
  21. L_Erase();
  22. For i:=1:10 do Box(5*i,6*i,3*I+10,4*I+20);
  23. L_ENDPLOT(); % To return to 2 pane mode.