home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / ASCANBE.OPT < prev    next >
Text File  |  1995-05-02  |  4KB  |  193 lines
  1.  
  2.  
  3. rem************************************************************************
  4. rem
  5. rem
  6. rem
  7. rem         ********   *********  **********  ****  ****   ****
  8. rem        **********  ********** **********  ****  ****   ****
  9. rem        **********  ********** **********  ****  ****   ****
  10. rem        ****  ****  ****  ****    ****     ****   **** ****
  11. rem        ****  ****  ****  ****    ****     ****    *******
  12. rem        ****  ****  ****  ****    ****     ****     *****
  13. rem        ****  ****  **********    ****     ****     *****
  14. rem        ****  ****  **********    ****     ****    *******
  15. rem        ****  ****  *********     ****     ****   **** ****
  16. rem        ****  ****  ****          ****     ****  ****   ****
  17. rem        **********  ****          ****     ****  ****   ****
  18. rem        **********  ****          ****     ****  ****   ****
  19. rem         ********   ****          ****     ****  ****   ****
  20. rem
  21. rem
  22. rem
  23. rem             Drücken Sie bitte <F9> und starten Sie das
  24. rem                     Demo-Programm. Weitere Demos
  25. rem           können durch <Alt-D>+<Öffnen> geladen und dann
  26. rem                ebenfalls durch <F9> gestartet werden.
  27. rem                OPTIX-Compilate ('.ANI') werden durch
  28. rem                    <Alt-S>+<Animation> gestartet.
  29. rem
  30. rem                Weitere Hilfe finden Sie per <F1> bzw.
  31. rem             - sobald der Cursor auf einem Befehlsnamen
  32. rem                   plaziert ist - durch <Strg><F1>.
  33. rem
  34. rem
  35. rem
  36. rem************************************************************************
  37.  
  38.  
  39.  
  40. def(i)
  41. def(j)
  42. def(i1)
  43. def(j1)
  44.  
  45. procedure frame(xl,yo,xr,yu,col,dick)
  46.   rem ***  Erzeugt einen Rahmen m. den inneren Eckkoordinaten xl,yo,xr,yu
  47.   rem ***  und der Dicke 'dick'. Dabei wird bis zur halben Dicke
  48.   rem ***  des Rahmens jeder Linie fortlaufend ab der Farbe 'col' die
  49.   rem ***  jeweils folgende Farbe zugeordnet. Ab der halben Rahmendicke
  50.   rem ***  läuft die Farbzuordnung umgekehrt. Bei geeigneter Farbpalette
  51.   rem ***  kann so ein 'Rohrrahmen' erzeugt werden.
  52.   rem ***  z.B.:  GRADATION(240,249,12,24,15,24,48,30)
  53.   rem ***         FRAME(100,100,200,200,240,20)
  54.   rem ***
  55.   rem ***  nach Rückkehr ist SETCOLOR und VIEWPORT verändert.
  56.   locals(i,j)
  57.   viewport(xl,yo,xr,yu)
  58.   for i:=1 to dick/2 do
  59.     setcolor(col+i-1)
  60.     rectangle
  61.     incviewport
  62.   next(i)
  63.   if (dick/2)*2<>dick
  64.     incviewport
  65.   endif
  66.   for j:=1 to dick/2 do
  67.     setcolor(col+i-j)
  68.     rectangle
  69.     incviewport
  70.   next(j)
  71. return
  72.  
  73. begin
  74.  
  75. readsound('capumusi.snd')
  76.  
  77. clearscreen(0)
  78. scrtobuf
  79.  
  80. readpic('cmdmini.bmp')
  81. setallpal
  82.  
  83. gradation(233,246,20,10,15,60,32,45)
  84. scrtobuf
  85. soundloop(1)
  86. startsound
  87.  
  88. for i:= 29 downto 20 do
  89.   loadwin(520-(30-i)*5,440-(30-i)*5,i,0)
  90. next(i)
  91.  
  92. keycol(0)
  93. key(on)
  94. gradation(235,249,10,5,7,63,35,50)
  95. setrgbcolor(0,0,0,159)
  96. clearscreen(159)
  97. loadwin(500,400,22,0)
  98. viewport(82,120,578,395)
  99. cbox(9,0,0)
  100. frame(80,115,550,368,238,20)
  101.  
  102. copywin(65,100,74,109)
  103. for i:=82 to 540 step 12 do
  104.   loadwin(i,117,0,0)
  105. next(i)
  106.  
  107. copywin(82,117,560,130)
  108. for j:=117 to 358 step 12 do
  109.   loadwin(82,j,0,0)
  110. next(j)
  111.  
  112. readpic('cmdmini.bmp')
  113. for i:=0 to 30 do
  114.   setrgbcolor(i,i,i,159)
  115.   pause(20)
  116. next(i)
  117. scrtobuf
  118.  
  119. i1:=180
  120. j1:=230
  121. for i:= 29 downto 21 do
  122.   i1:=i1-4
  123.   j1:=j1-6
  124.   loadwin(i1,j1,i,0)
  125. next(i)
  126. viewport(500,400,635,475)
  127. cbox(8,159,20)
  128. viewport(130,176,130+winx/2,176+winy/2)
  129. restorebox(0,0)
  130.  
  131. loadwin(130,176,20,0)
  132. frame(80,115,550,368,238,20)
  133.  
  134. readpic('cmdmini.bmp')
  135.  
  136. for i:= 595 to 0 step -54 do
  137.   loadwin(i,450,24,0)
  138.   loadwin(i,0,24,0)
  139. next(i)
  140. for i:= 0 to 450 step 35 do
  141.   loadwin(0,i,24,0)
  142.   loadwin(595,i,24,0)
  143. next(i)
  144.  
  145. setrgbcolor(56,56,0,254)
  146. readfont(1,'hel15x29.fnt')
  147.  
  148. font(1)
  149. textcofs(0)
  150. textcolor(1)
  151. printc(421,262,' * MULTIMEDIA *')
  152. printc(421,292,'...und kein Ende')
  153. textcolor(254)
  154. printc(419,260,' * MULTIMEDIA *')
  155. printc(419,290,'...und kein Ende')
  156.  
  157. for i:=53 downto 20 do
  158.   setrgbcolor(i,i,48,159)
  159.   pause(20)
  160. next(i)
  161. loadwin(102,80,23,0)
  162. key(off)
  163.  
  164. copywin(90,70,160,145)
  165. for i:=90 to 420 step 12 do
  166.   loadwin(i,70,0,0)
  167.   pause(10)
  168. next(i)
  169.  
  170. copywin(284,248,519,367)
  171. j:=248
  172. for i:=284 to 310 step 12 do
  173.   loadwin(i,j,0,0)
  174.   dec(j,12)
  175.   pause(50)
  176. next(i)
  177. for i:=188 to 150 step -12 do
  178.   loadwin(308,i,0,0)
  179.   pause(50)
  180. next(i)
  181.  
  182. key(on)
  183. viewport(95,120,300,367)
  184. restorebox(0,0)
  185.  
  186. readpic('cmdmini.bmp')
  187. loadwin(90,110,8,0)
  188.  
  189. sync(11000)
  190.  
  191.  
  192. end
  193.