home *** CD-ROM | disk | FTP | other *** search
/ PowerPlay 1997 May / PowerPlay0597.bin / LESER / gti / DEMO10.GTI < prev    next >
Text File  |  1997-01-01  |  2KB  |  139 lines
  1. dv-gti-file
  2. #
  3. # Demonstriert Graphikbefehle
  4. # Befehl: setpix / line / rectangle / fillrectangle / label / gotolabel
  5. # Start : gti demo10.gti
  6. #
  7. #
  8.  
  9. #
  10. # Farbpalette laden
  11. #
  12. loadpal('palett_1.pal')
  13. activedpal
  14.  
  15. #
  16. # Setze Label für entlosen Rücksprung
  17. #
  18. label(0)
  19.  
  20. #
  21. # Punkte setzen
  22. #
  23. point(10,10,30)
  24. wait(20)
  25. point(20,20,31)
  26. wait(20)
  27. point(30,30,32)
  28. wait(20)
  29. point(40,40,33)
  30. wait(20)
  31. point(50,50,34)
  32. wait(20)
  33. point(60,60,35)
  34. wait(20)
  35. point(70,70,36)
  36. wait(20)
  37. point(80,80,37)
  38. wait(20)
  39. point(90,90,38)
  40. wait(20)
  41. point(100,100,39)
  42. wait(20)
  43. point(110,110,38)
  44. wait(20)
  45. point(120,120,37)
  46. wait(20)
  47. point(130,130,36)
  48. wait(20)
  49. point(140,140,35)
  50. wait(20)
  51. point(150,150,34)
  52. wait(20)
  53. point(160,160,33)
  54. wait(20)
  55. point(170,170,32)
  56. wait(20)
  57. point(180,180,31)
  58. wait(20)
  59. point(190,190,30)
  60. wait(20)
  61.  
  62. #
  63. # Linien Zeichnen
  64. #
  65. line(319,0,310,199,30)
  66. wait(20)
  67. line(319,0,300,199,31)
  68. wait(20)
  69. line(319,0,290,199,32)
  70. wait(20)
  71. line(319,0,280,199,33)
  72. wait(20)
  73. line(319,0,270,199,34)
  74. wait(20)
  75. line(319,0,260,199,35)
  76. wait(20)
  77. line(319,0,250,199,36)
  78. wait(20)
  79. line(319,0,240,199,37)
  80. wait(20)
  81. line(319,0,230,199,38)
  82. wait(20)
  83. line(319,0,220,199,39)
  84. wait(20)
  85. line(319,0,210,199,40)
  86. wait(20)
  87. line(319,0,200,199,41)
  88. wait(20)
  89.  
  90. #
  91. # Rechtecke
  92. #
  93. rectangle(150,90,170,110,50)
  94. wait(20)
  95. rectangle(140,80,180,120,51)
  96. wait(20)
  97. rectangle(130,70,190,130,52)
  98. wait(20)
  99. rectangle(120,60,200,140,53)
  100. wait(20)
  101. rectangle(110,50,210,150,54)
  102. wait(20)
  103. rectangle(100,40,220,160,55)
  104. wait(20)
  105. rectangle(90,30,230,170,56)
  106. wait(20)
  107. rectangle(80,20,240,180,57)
  108. wait(20)
  109. rectangle(70,10,250,190,58)
  110. wait(20)
  111.  
  112. #
  113. # Gefüllte Rechtecke
  114. #
  115. fillrectangle(150,90,170,110,50)
  116. wait(20)
  117. fillrectangle(140,80,180,120,51)
  118. wait(20)
  119. fillrectangle(130,70,190,130,52)
  120. wait(20)
  121. fillrectangle(120,60,200,140,53)
  122. wait(20)
  123. fillrectangle(110,50,210,150,54)
  124. wait(20)
  125. fillrectangle(100,40,220,160,55)
  126. wait(20)
  127. fillrectangle(90,30,230,170,56)
  128. wait(20)
  129. fillrectangle(80,20,240,180,57)
  130. wait(20)
  131. fillrectangle(70,10,250,190,58)
  132. wait(20)
  133.  
  134. #
  135. # Lösche Bildschirm und springe zurück
  136. #
  137. cls(0)
  138. gotolabel
  139.