home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / ANIMATIO.OPT < prev    next >
Text File  |  1995-06-08  |  4KB  |  157 lines
  1. DEF(i)
  2. DEF(j)
  3. DEFS(o$,'*OPTIX*')
  4.  
  5. procedure cmd(xl,yo,dm,rot,blau,grau)
  6.  
  7.    rem ****************************************************
  8.    rem zeichnet ein CMD-Logo
  9.    rem xl,yo           = obere, linke Ecke
  10.    rem dm              = Durchmesser (Höhe) des Logos
  11.    rem rot, blau, grau = die drei Systemfarben aus der aktuellen Palette
  12.    rem der 'WIN'-Puffer ist anschließend verändert
  13.    rem ****************************************************
  14.  
  15.    locals(rad,lin,i,j,k,l)
  16.    l   :=0
  17.    rad := dm/2
  18.    lin := dm/30
  19.    copywin(xl+rad-lin-1,yo,xl+dm+(rad/2)+lin,yo+dm+1)
  20.    disk(xl+rad,yo+rad,rad,rot)
  21.    disk(xl+dm+(rad/2),yo+rad,rad,rot)
  22.    loadwin(xl+rad-lin-1,yo,0,0)
  23.    j := ((dm-(rad/2))/2+lin)*880/1000
  24.    k := dm+(rad/2)-2
  25.    setcolor(blau)
  26.    for i:= 0 to j-1 do
  27.      inc(l,4)
  28.      line(xl+rad+i+1,yo+(l/5),xl+rad+i+1,yo+dm-1,0)
  29.      line(xl+k-i+1,yo+(l/5),xl+k-i+1,yo+dm-1,0)
  30.    next(i)
  31.    disk(xl+rad-lin,yo+rad,dm*2/9,grau)
  32.    disk(xl+dm+(rad/2)+lin,yo+rad,dm*2/9,grau)
  33.  
  34. return
  35.  
  36. BEGIN
  37.   FADEOUT(1)
  38.   SETPSTD
  39.   CLEARSCREEN(0)
  40.   SETALLPAL
  41.   READSOUND('loop.voc')
  42.   SOUNDLOOP(on)
  43.   STARTSOUND
  44.   FOR i:=0 TO 63 DO
  45.     SETRGBCOLOR(i,i,i,30+i)
  46.     VIEWPORT(0,39+i*7,639,39+i*7+6)
  47.     CBOX(0,30+i,0)
  48.   NEXT(i)
  49.   READFONT(1,'TRI22N.FNT')
  50.   FONT(1)
  51.   WRITESTYLE(3)
  52.   TEXTCOFS(70)
  53.   SETCOLOR(253)
  54.   FOR i:=0 TO 59 DO
  55.     LINE(320,460,20+i*10,20,0)
  56.     disk(21+i*10,20,1,255)
  57.   NEXT(i)
  58.   SCRTOBUF
  59.   SETRGBCOLOR(30,30,30,247)
  60.   TEXTSPEED(0)
  61.   TEXTSHADOW(1,1)
  62.   TEXTBCOLOR(0)
  63.   TEXTCOLOR(247)
  64.   PRINTC(350,120,o$)
  65.   TEXTSHADOW(0,0)
  66.   TEXTCOLOR(15)
  67.   PRINTC(349,119,o$)
  68.   TEXTSPEED(220)
  69.   TEXTCOLOR(247)
  70.   PRINTC(350,120,o$)
  71.   TEXTSPEED(10)
  72.   READFONT(1,'hel15x29.FNT')
  73.   WRITESTYLE(3)
  74.   TEXTSHADOW(1,1)
  75.   PRINTAT(210,280,'         der')
  76.   PRINTAT(210,313,'Multimedia Manager')
  77.   FOR i:=0 TO 30 DO
  78.     SETRGBCOLOR(30+i,30+i,30-i,247)
  79.     WAIT(10)
  80.   NEXT(i)
  81.   FOR i:=0 TO 60 DO
  82.     SETRGBCOLOR(60,60-i,0,247)
  83.     WAIT(10)
  84.   NEXT(i)
  85.   FOR i:=0 TO 30 DO
  86.     SETRGBCOLOR(60-i,i,i,247)
  87.     WAIT(10)
  88.   NEXT(i)
  89.   FOR i:=0 TO 33 DO
  90.     SETRGBCOLOR(63-i,63-i,63-i,247)
  91.     WAIT(10)
  92.   NEXT(i)
  93.   SETCOLOR(10)
  94.   LINE(320,479,320,102,50)
  95.   LINE(300,103,340,103,0)
  96.   LINE(250,102,390,102,0)
  97.   LINE(100,101,540,101,0)
  98.   LINE(0,100,639,100,1)
  99.   RESTORELINE(320,479,320,102,50)
  100.   FOR i:=0 TO 60 DO
  101.     RESTORELINE(0,100+i,639,100+i,0)
  102.     LINE(100,100+i+1,639,100+i+1,0)
  103.     LINE(0,100+i+2,639,100+i+2,1)
  104.   NEXT(i)
  105.   VIEWPORT(0,100+i+1,639,100+i+2)
  106.   RESTOREBOX(12,100)
  107.   CMD(XMAX/2-60,56,76,12,9,7)
  108.   TEXTCOLOR(7)
  109.   TEXTSHADOW(6,6)
  110.   TEXTBCOLOR(0)
  111.   PRINTAT(170,166,'COMPUTER MEDIA DESIGN')
  112.   PRINTAT(160,196,'          HANNOVER')
  113.   PAUSE(2000)
  114.   VIEWPORT(150,260,500,310)
  115.   RESTOREBOX(8,60)
  116.   VIEWPORT(150,310,500,430)
  117.   RESTOREBOX(8,60)
  118.   PAUSE(1000)
  119.   READFONT(1,'TRI22N.FNT')
  120.   SETCOLOR(14)
  121.   FOR i:=0 TO 81 DO
  122.     LINE(285-i*2,i*4,355+i*2,i*4,0)
  123.     WAIT(10)
  124.   NEXT(i)
  125.   FOR i:=0 TO 109 DO
  126.     VIEWPORT(0,i*3,639,3+i*3)
  127.     RESTOREBOX(1,30)
  128.   NEXT(i)
  129.   FOR i:=0 TO 63 DO
  130.     SETRGBCOLOR(63,28,63-i,160-i)
  131.     SETCOLOR(160-i)
  132.     LINE(120,340+i,520,340+i,0)
  133.   NEXT(i)
  134.   TEXTCOLOR(15)
  135.   TEXTBCOLOR(0)
  136.   TEXTSHADOW(2,2)
  137.   TEXTCOFS(7)
  138.   TEXTSPEED(180)
  139.   WRITESTYLE(3)
  140.   PRINTC(xmax/2,370,'ANIMATION')
  141.   FOR i:=0 TO 63 DO
  142.     SETRGBCOLOR(0,0,0,93-i)
  143.     WAIT(20)
  144.   NEXT(i)
  145.   SOUNDLOOP(off)
  146.   REPEAT
  147.     FOR i:=63 DOWNTO 0 DO
  148.       SETRGBCOLOR(i,i,63-i,7)
  149.       WAIT(20)
  150.     NEXT(i)
  151.     FOR i:=63 DOWNTO 0 DO
  152.       SETRGBCOLOR(i,63-i,63-i,253)
  153.       WAIT(20)
  154.     NEXT(i)
  155.   UNTIL MOUSEK<>KEYPRESSED
  156. END
  157.