home *** CD-ROM | disk | FTP | other *** search
/ PowerPlay 1997 May / PowerPlay0597.bin / LESER / gti / DEMO16.GTI < prev    next >
Text File  |  1997-01-01  |  825b  |  48 lines
  1. dv-gti-file
  2. #
  3. # Demonstriert den Spezialeffect Plasma mit reduzierter Farbpalette
  4. #
  5. # Befehl: defplasma / mirrorpal
  6. # Start : gti demo16.gti
  7. #
  8.  
  9. #
  10. # Zeichensatz und geeignete Farbpalette laden
  11. #
  12. loadfont(1,'font51.bfn')
  13. loadpal('plasma04.pal')
  14. activedpal
  15.  
  16. #
  17. # Text
  18. #
  19. textwide(2)
  20. xytext(1,160,10,'GTI PLASMA DEMO mit 199 Farben',200,2)
  21. xytext(1,160,180,'Druecken Sie eine Taste',200,2)
  22.  
  23. #
  24. # Farbpalette an der Farbe 100 spiegeln
  25. # Damit werden die Farben 1 - 199 plasmatauglich
  26. #
  27. mirrorpal(100)
  28.  
  29. #
  30. # Farben 1 - 199 im Hintergrund rotieren lassen
  31. #
  32. startrotpal(199)
  33.  
  34. #
  35. # Definiere die Parameter für ein Plasma
  36. # Randseek     : 41
  37. # Anzahl Farben: 199
  38. # Rauheit      : 1
  39. #
  40. defplasma(41,199,1)
  41.  
  42. #
  43. # Erzeuge das Plasma
  44. # Koordinaten: 0:30 319:170
  45. #
  46. createplasma(0,30,319,170)
  47. waitkey
  48.