home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / misc / math / mathplot / macros / test16.rexx < prev    next >
OS/2 REXX Batch file  |  1994-12-14  |  1KB  |  70 lines
  1. /* Test of pixel and intervall relative coordinates */
  2.  
  3. address "MPlot_ARexx"
  4. options results
  5.  
  6.  
  7. IF ~SHOW('L','rexxsupport.library') THEN
  8.    CALL ADDLIB('rexxsupport.library',0,-30)
  9.  
  10. /*
  11.  
  12. /* LINE */
  13. clear force
  14. showaxis
  15. /* Pixel-relative */
  16. do i=0 to 640  by 10
  17.  line '0 0  'i' 390 pixel=on'
  18. end
  19.  
  20. /* Intervall-relative */
  21. do i=0 to 20
  22.  x = i*3.14/20
  23.  line "0 0 " x " -1 pixel=off"
  24. end
  25.  
  26. Delay(150)
  27.  
  28.  
  29. /* POINT */
  30. clear force
  31. showaxis
  32. /* Pixel-relative */
  33. do i=0 to 640 by 10
  34.  point i 10 'pixel=on'
  35. end
  36.  
  37. /* Intervall relative */
  38. do i = 0 to 20
  39.  x = i*3.14/20
  40.  point x 1
  41. end
  42.  
  43.  
  44. Delay(150)
  45.  
  46. /* TEXT */
  47. clear force
  48. */
  49.  
  50. showaxis
  51.  
  52.  
  53. /* Pixel-relative */
  54. do i = 0 to 100 by 25
  55.  a = i/2+50
  56.  text 'text "Dies ist ein TEST " xpos' i ' ypos ' a 'pixel=on'
  57. end
  58.  
  59. /* Intervall relativ */
  60. do i = 0 to 10 
  61.  x = i*3.14/10
  62.  y = i*1/10
  63.  text 'text "Dies ist ein TEST " xpos' x ' ypos ' y 'pixel=off'
  64.  say text 'text "Dies ist ein TEST " xpos' x ' ypos ' y 'pixel=off'
  65. end
  66.  
  67.  text 'text "Dies ist ein TEST " xpos' 0 ' ypos ' 0 'pixel=on'
  68.  text 'text "Dies ist ein TEST der länger ist" xpos' 0 ' ypos ' 0.2 'pixel=off'
  69.  
  70.