prlisp2d.hlp 1.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142
  1. 2D version of PictureRLISP MLG 4 Jan 1983
  2. ------------------------------------------------------
  3. This is a brief guide to the 2D version of Picture RLISP. This is much
  4. faster than the full 3D version if only planar displays are required.
  5. It is the X-Y plane subset of PRLISP. PRLISP can now be run under PSL
  6. as well, though of course with no syntax.
  7. RLISP Use:
  8. LOAD PRLISP2D; % Load 2D version of PictureRLISP
  9. HP!.INIT(); % Select Driver, this is most common HP2648a version
  10. Line := {0,0} _ {10,10}; % Line from center towards upper-right
  11. Show Line; % Draw it
  12. Show Line | ZROT(25); % Draw rotated by 25 degrees
  13. Erase(); % Clear screen
  14. Show Line & (Line | scale 3 | zrot 20 ) | xmove 10;
  15. For more examples, see PU:PR2D-DEMO.RED, use IN "PU:PR2D-DEMO.RED"$
  16. PRLISP2D can also be loaded and run from PSL, but no syntax is
  17. available:
  18. (LOAD PRLISP2D)
  19. (HP!.INIT)
  20. (setq LINE (POINTSET (ONEPOINT 0 0) (ONEPOINT 10 10)))
  21. (SHOW LINE)
  22. (SHOW (TRANSFORM LINE (ZROT 25)))
  23. (ERASE)
  24. (SHOW (GROUP LINE (TRANSFORM
  25. (TRANSFORM (TRANSFORM Line (SCALE 3))
  26. (ZROT 20))
  27. (XMOVE 10))))
  28. For more examples, see PU:PR2D-DEMO.SL, run with
  29. (LAPIN "PU:PR2D-DEMO.SL")