home *** CD-ROM | disk | FTP | other *** search
/ PowerPlay 1997 May / PowerPlay0597.bin / LESER / gti / XDEMO21.GTI < prev    next >
Text File  |  1997-01-01  |  5KB  |  168 lines
  1. #
  2. # Demonstriert die Benutzung von XMS anhand einer Diashow
  3. # (Rasterprint, Vergrößerung, Verkleinerung, Soundausgabe, XMS-Page)
  4. # Selbe Programm wie demo21.gti, nur kommt hier XMS-Speicher zum Einsatz.
  5. #
  6. # Befehl: putxmsp / getxmsp
  7. # Start : xgti xdemo21.gti
  8. #
  9. # Vorteil: Alle Bildern können zu Programmstart geladen werden.
  10. #          Ein laden der Bilder während der Soundausgabe entfällt.
  11. #          Damit sind die Störungen der Soundausgabe bei intensiven
  12. #          Festplattenzugriffen bei langsamen Systemen beseitigt!
  13. #
  14. # Benötigt 486 Rechner und 2MB Hauptspeicher
  15. #
  16.  
  17. # XMS-Extension mit 4 XMS-Screen-Pages anfordern
  18. # Es werden die XMS-Screen-Pages 0 - 3 eingerichtet
  19. dv-gti-file(3)
  20.  
  21. # auf virtuellen Bildschirm arbeiten
  22. screenoff
  23.  
  24. # Zeichensatz laden
  25. loadfont(2,'font51.bfn')
  26.  
  27. # Farbpalette laden
  28. loadpal('palett_1.pal')
  29. activedpal
  30.  
  31. # Graphiken über virtuellen Bildschirm in XMS-Screen-Pages laden
  32. # Dazugehörige Farbpalletten gleich mit laden
  33. # virtueller Bildschirm wurde bereits aktiviert!
  34. loadjmg('rose.jmg')
  35. loadpal('rose.pal')
  36. putxmsp(1)
  37. putxmspal(1)
  38. loadjmg('erdbeeren.jmg')
  39. loadpal('erdbeeren.pal')
  40. putxmsp(2)
  41. putxmspal(2)
  42. loadjmg('parrot.jmg')
  43. loadpal('parrot.pal')
  44. putxmsp(3)
  45. putxmspal(3)
  46.  
  47. #Sound starten
  48. modplay('crokthem.mod')
  49.  
  50. # Einleitungstext -----------------------------------------------------------
  51. cls(0)
  52. textwide(3)
  53. textcolf(-1)
  54. xytext(2,160,10,'DIASHOW mit GTI',237,2)
  55. xytext(2,160,60,'Es folgen Echtzeit Animationen',46,2)
  56. xytext(2,160,90,'zum entspannen',38,2)
  57. xytext(2,160,120,'Benoetigt 486 DX Rechner',30,2)
  58. xytext(2,160,170,'Sound: Miami Vice Theme',60,2)
  59. # Daten auf Bildschirm mit Videoschnitt 7
  60. scron(7,0,0,10)
  61. wait(1000)
  62. # Bildschirm löschen
  63. scroff(7,0,0,0,10)
  64.  
  65. # Rose ----------------------------------------------------------------------
  66.  
  67. # Bild aus XMS auf virtuellen Bildschirm laden
  68. getxmsp(1)
  69.  
  70. #Fabrpalette aus XMS holen und aktivieren
  71. getxmspal(1)
  72. activedpal
  73.  
  74. # Bild auf sichtbaren Bildschirm übertragen Videoschnitt 14
  75. # Zeitverzögerung 15
  76. scron(14,0,0,15)
  77. # Löschen Videoschnitt 14, Zeitverzögerung 15
  78. scroff(14,0,0,0,15)
  79.  
  80. # Bild auf sichtbaren Bildschirm übertragen Videoschnitt 16
  81. # Zeitverzögerung 15
  82. scron(16,0,0,15)
  83. # Löschen Videoschnitt 16, Zeitverzögerung 15
  84. scroff(16,0,0,0,15)
  85.  
  86. # Erdbeeren -----------------------------------------------------------------
  87.  
  88. # Bild aus XMS auf virtuellen Bildschirm laden
  89. getxmsp(2)
  90.  
  91. #Fabrpalette aus XMS holen und aktivieren
  92. getxmspal(2)
  93. activedpal
  94.  
  95. # Bild auf sichtbaren Bildschirm übertragen Videoschnitt 22
  96. # Schrittweite Vergrößerung 2, Zeitverzögerung 0
  97. scron(24,2,0,0)
  98. # Löschen Videoschnitt 22, Zeitverzögerung 0
  99. # Schrittweite Verkleinerung 2, Zeitverzögerung 0
  100. scroff(24,2,0,0,0)
  101.  
  102. # Papagei -------------------------------------------------------------------
  103.  
  104. # Bild aus XMS auf virtuellen Bildschirm laden
  105. getxmsp(3)
  106.  
  107. #Fabrpalette aus XMS holen und aktivieren
  108. getxmspal(3)
  109. activedpal
  110.  
  111. # Bild auf sichtbaren Bildschirm übertragen Videoschnitt 18
  112. # Schrittweite Vergrößerung 1, Zeitverzögerung 0
  113. scron(20,1,0,0)
  114. # Löschen Videoschnitt 19, Zeitverzögerung 0
  115. # Schrittweite Verkleinerung 1,
  116. scroff(21,1,0,0,0)
  117.  
  118. # Bild auf sichtbaren Bildschirm übertragen Videoschnitt 20
  119. # Schrittweite Vergrößerung 2, Zeitverzögerung 0
  120. scron(22,2,0,0)
  121. # Löschen Videoschnitt 21, Zeitverzögerung 0
  122. # Schrittweite Verkleinerung 2,
  123. scroff(23,2,0,0,0)
  124.  
  125. # Rose ----------------------------------------------------------------------
  126.  
  127. # Bild aus XMS auf virtuellen Bildschirm laden
  128. getxmsp(1)
  129.  
  130. #Fabrpalette aus XMS holen und aktivieren
  131. getxmspal(1)
  132. activedpal
  133.  
  134. # Bild auf sichtbaren Bildschirm übertragen Videoschnitt 15
  135. # Zeitverzögerung 15
  136. scron(15,0,0,15)
  137. # Löschen Videoschnitt 22, Zeitverzögerung 0
  138. # Schrittweite 2, Nachlaufeffekt Zeitverzögerung 1
  139. scroff(24,0,0,1,0)
  140.  
  141. # Werbetext -----------------------------------------------------------------
  142. loadpal('palett_1.pal');
  143. activedpal
  144. textcolf(1)
  145. textwide(1)
  146. chain4off(1)
  147. cls(0)
  148. xytext(2,160,10,'Mit GTI koennen Sie Ihre eigenen Programme',233,2)
  149. xytext(2,160,30,'mit einem Vor- und Abspann versehen.',233,2)
  150. xytext(2,160,50,'Sie koennen bequem einen elektronischen',233,2)
  151. xytext(2,160,70,'Katalog ueber Ihrer Sharewareprodukte',233,2)
  152. xytext(2,160,90,'erstellen.',233,2)
  153. xytext(2,160,110,'Zum Erwerb der Vollversionen lesen Sie bitte',233,2)
  154. xytext(2,160,130,'DV_KATLG.DOC',135,2)
  155. xytext(1,160,160,'Kontacktadresse Deutschland',33,2)
  156. xytext(1,160,170,'JENS MEISSNER',43,2)
  157. xytext(1,160,180,'THEODOR-HEUSS-RING 20',43,2)
  158. xytext(1,160,190,'55232 ALZEY',43,2)
  159.  
  160. page2vpage(2)
  161. hwscroll(0,400,1,1,100)
  162.  
  163. # Ende Sound einleiten ------------------------------------------------------
  164. # Sound soll ausgeblendet werden
  165. modblende(20);
  166. # Sound ausblenden
  167. modend
  168.