home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / lang / RexxArpLib-30.lzh / rexx / AreaTest.rexx next >
Encoding:
OS/2 REXX Batch file  |  1990-01-21  |  2.1 KB  |  85 lines
  1. /* test area stuff */
  2.  
  3. call OpenScreen(0, 3, 'HIRES+LACE', 'MyScreen', MYTEST)
  4.  
  5. runwsh "'x = createhost(myhost, MYPORT, MYTEST)'"
  6.  
  7. call delay(100)
  8.  
  9. idcmp = 'CLOSEWINDOW'
  10. flags = 'WINDOWCLOSE+WINDOWDRAG+WINDOWSIZING+WINDOWDEPTH'
  11. call OpenWindow(myhost, 0, 0, 0, 0, idcmp, flags, TESTWINDOW)
  12.  
  13. call SetAPen(myhost, 1)
  14. call SetRGB4(myhost, 0, 0, 0, 0)
  15. call SetRGB4(myhost, 1, 15, 15, 15)
  16. call SetRGB4(myhost, 2, 15,  0,  0)
  17. call SetRGB4(myhost, 3,  0, 15,  0)
  18. call SetRGB4(myhost, 4,  0,  0, 15)
  19. call SetRGB4(myhost, 5,  0, 15, 15)
  20. call SetRGB4(myhost, 6, 15,  0, 15)
  21. call SetRGB4(myhost, 7, 15, 15,  0)
  22.  
  23. call SetApen(myhost, 1)
  24. do i = 0 to 7
  25.    call AreaMove(myhost, 10 + 30 * i, 20)
  26.    call AreaDraw(myhost, 35 + 30 * i, 20)
  27.    call AreaDraw(myhost, 35 + 30 * i, 35)
  28.    call AreaDraw(myhost, 10 + 30 * i, 35)
  29.    if  i = 0 then call AreaEnd(myhost, 2048 + i)
  30.    else           call AreaEnd(myhost, i)
  31. end
  32.  
  33. call SetApen(myhost, 1)
  34. do i = 0 to 15
  35.    call AreaMove(myhost, 10 + 30 * i, 60)
  36.    call AreaDraw(myhost, 35 + 30 * i, 60)
  37.    call AreaDraw(myhost, 35 + 30 * i, 75)
  38.    call AreaDraw(myhost, 10 + 30 * i, 75)
  39.    call AreaEnd(myhost, 2048 + 256 + i)
  40. end
  41.  
  42. do r = 0 to 4
  43. do g = 0 to 4
  44. do b = 0 to 4
  45.    call AreaMove(myhost, 10 + 25 * b + 125 * g, 100 + 25 * r)
  46.    call AreaDraw(myhost, 35 + 25 * b + 125 * g, 100 + 25 * r)
  47.    call AreaDraw(myhost, 35 + 25 * b + 125 * g, 125 + 25 * r)
  48.    call AreaDraw(myhost, 10 + 25 * b + 125 * g, 125 + 25 * r)
  49.    call SetApen(myhost, r)
  50.    call AreaEnd(myhost, 512 + r * 25 + g * 5 + b)
  51. end
  52. end
  53. end
  54.  
  55. call SetApen(myhost, 1)
  56. do i = 0 to 7
  57.    call AreaCircle(myhost, 25 + 30 * i, 250, 14)
  58.    if  i = 0 then call AreaEnd(myhost, 2048 + i)
  59.    else           call AreaEnd(myhost, i)
  60. end
  61.  
  62. call SetApen(myhost, 1)
  63. do i = 0 to 15
  64.    call AreaCircle(myhost, 25 + 30 * i, 290, 14)
  65.    call AreaEnd(myhost, 2048 + 256 + i)
  66. end
  67.  
  68. do r = 0 to 4
  69. do g = 0 to 4
  70. do b = 0 to 4
  71.    call AreaCircle(myhost, 20 + 25 * b + 125 * g, 330 + 20 * r, 10)
  72.    call SetApen(myhost, r)
  73.    call AreaEnd(myhost, 2048 + 512 + r * 25 + g * 5 + b)
  74. end
  75. end
  76. end
  77.  
  78. call delay(200)
  79.  
  80. call CloseWindow(myhost)
  81.  
  82. call CloseScreen(MYTEST)
  83.  
  84. exit
  85.