home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l076 / 1.ddi / RELPLOT.TRU < prev    next >
Encoding:
Text File  |  1988-12-19  |  676 b   |  31 lines
  1. REM  Module for relative plotting
  2.  
  3. EXTERNAL
  4.  
  5. MODULE relative_plot
  6.  
  7. SHARE lastx, lasty             ! Must remember previous position
  8.  
  9. SUB plot_start(x, y)           ! Start new curve
  10.     PLOT
  11.     PLOT x, y;
  12.     LET lastx = x
  13.     LET lasty = y
  14. END SUB
  15.  
  16. SUB plot_rel(dx, dy)           ! Relative plot
  17.     LET lastx = lastx + dx     ! Apply increments
  18.     LET lasty = lasty + dy
  19.     PLOT lastx, lasty;
  20. END SUB
  21.  
  22. SUB move_rel(dx, dy)                      ! Relative move
  23.     CALL plot_start(lastx+dx, lasty+dy)   ! New starting location
  24. END SUB
  25.  
  26. SUB flood_rel(dx, dy)          ! Flood at relative point
  27.     FLOOD lastx+dx, lasty+dy
  28. END SUB
  29.  
  30. END MODULE
  31.