home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / SYNCTON.OPT < prev    next >
Text File  |  1994-07-12  |  770b  |  59 lines
  1. DEF(i)
  2.  
  3. BEGIN
  4.  
  5. READSOUND('blech.snd')
  6. STARTSOUND
  7.  
  8. READFONT(1, 'tri22n.fnt')
  9. FONT(1)
  10. WRITESTYLE(3)
  11. TEXTCOLOR(14)
  12. TEXTBCOLOR(0)
  13. TEXTSHADOW(1,1)
  14.  
  15. FADEOUT(0)
  16. CLEARSCREEN(8)
  17. FADEIN(1)
  18.  
  19. READSOUND('capumusi.snd')
  20. STARTSOUND
  21. SYNC(600)
  22.  
  23. FOR i:=0 TO 445 DO
  24.  
  25.   SETCOLOR(12)
  26.   LINE(i,100,i,150,0)
  27.   PLOTc(i,100,15)
  28.   PLOTc(i,150,0)
  29.  
  30.   LINE(639-i,300,639-i,350,0)
  31.   PLOTc(639-i,300,15)
  32.   PLOTc(639-i,350,0)
  33.  
  34.   SETCOLOR(25)
  35.   LINE(400,479-i,440,479-i,0)
  36.   PLOTc(400,479-i,15)
  37.   PLOTc(440,479-i,0)
  38.  
  39.   LINE(200,i,240,i,0)
  40.   PLOTc(200,i,15)
  41.   PLOTc(240,i,0)
  42.   SYNC(i*3)
  43.  
  44. NEXT(i)
  45.  
  46. SYNC(4600)
  47.  
  48. READSOUND('1234.snd')
  49.  
  50. FOR i:=0 TO 10 DO
  51.    STARTSOUND
  52.    PRINTAT(100,50+i*35,'OPTIX-SYNCHRONTON')
  53.    SYNC(350)
  54. NEXT(i)
  55.  
  56. PAUSE(300)
  57.  
  58. END
  59.