home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.ISO01.iso / magazin / optix / disk2 / optxfpac.set / ZOOM.OPT < prev   
Text File  |  1995-04-05  |  3KB  |  102 lines
  1. DEFS(rand$)
  2. DEFS(dum1$)
  3. DEFS(dum2$)
  4. DEFS(dum3$)
  5. DEF(i)
  6. DEF(j)
  7. DEF(k)
  8. DEF(l)
  9. DEF(X0)
  10. DEF(Y0)
  11. BEGIN
  12.   rand$:=      '013137900530358303272347932266825250546273405746879763'
  13.   rand$:=rand$+'95766724805396778533219156345575654492946012701632260'
  14.   rand$:=rand$+'27415071025118186061451726171841742643604200043134541'
  15.   READSOUND('capumusi.snd')
  16.   READPIC('plakat.tga')
  17.   SETALLPAL
  18.   CLEARSCREEN(0)
  19.   FOR k:=0 TO 79 DO
  20.     dum1$:=rand$[k*2+1]
  21.     VAL(dum1$,i,l)
  22.     dum1$:=rand$[k*2+2]
  23.     VAL(dum1$,j,l)
  24.     FOR x0:= 0 TO 3 DO
  25.       FOR y0:= 0 TO 3 DO
  26.         VIEWPORT(i*16+x0*160,j*15+y0*120,i*16+15+x0*160,j*15+14+y0*120)
  27.         RESTOREBOX(0,0)
  28.       NEXT(y0)
  29.     NEXT(x0)
  30.   NEXT(k)
  31.   COPYWIN(0,0,XMAX,YMAX)
  32.   STARTSOUND
  33.   FOR i:=0 TO 15 DO
  34.     SETVOL(i)
  35.     WAIT(200)
  36.   NEXT(i)
  37.   CLEARSCREEN(4)
  38.   FOR k:=0 TO 29 step 4 DO
  39.     FOR j:=0 TO 14 STEP 2 DO
  40.       FOR i:=0 TO 18 STEP 2 DO
  41.         LOADSPRITE(16+i*32,15+j*30+k,16+i*32,15+j*30+k,32,4)
  42.       NEXT(i)
  43.     NEXT(j)
  44.     FOR j:=1 TO 14 STEP 2 DO
  45.       FOR i:=1 TO 18 STEP 2 DO
  46.         LOADSPRITE(16+i*32,15+j*30+k,16+i*32,15+j*30+k,32,4)
  47.       NEXT(i)
  48.     NEXT(j)
  49.   NEXT(k)
  50.   SCRTOBUF
  51.   FOR i:=400 TO 50 STEP -8 DO
  52.     VIEWPORT(45,i+80,200,i+88)
  53.     RESTOREBOX(0,0)
  54.     LOADSPRITE(45,i,45,i,100,80)
  55.     VIEWPORT(i+80,56,i+88,136)
  56.     RESTOREBOX(0,0)
  57.     LOADSPRITE(i,56,i,56,80,80)
  58.   NEXT(i)
  59.   SCRTOBUF
  60.   VIEWPORT(30,30,395,215)
  61.   CBOX(9,0,0)
  62.   VIEWPORT(25,25,385,205)
  63.   CBOX(8,132,0)
  64.   VIEWPORT(55,60,60+xmax/4,65+ymax/4)
  65.   CBOX(9,0,0)
  66.   VIEWPORT(45,50,45+xmax/4,50+ymax/4)
  67.   CBOX(8,122,0)
  68.   FOR i:=0 TO 5 DO
  69.     VIEWPORT(25-i,25-i,385+i,205+i)
  70.     PLATEAU(255,0)
  71.     VIEWPORT(45-i,50-i,45+xmax/4+i,50+ymax/4+i)
  72.     PLATEAU(255,0)
  73.     VIEWPORT(249-i,50-i,249+xmax/6+i+1,50+ymax/6+i+1)
  74.     PLATEAU(255,0)
  75.   NEXT(i)
  76.   FOR i:=29 DOWNTO 24 DO
  77.     LOADWIN(250+WINX/12-WINX/(11-(29-i))/2,50+WINY/12-WINY/(11-(29-i))/2,i,0)
  78.   NEXT(I)
  79.   SETBCOLOR(132)
  80.   PRINTC(305,153,'* ZOOM-EFFEKT *')
  81.   PRINTC(305,166,'Bitte drücken Sie')
  82.   PRINTC(305,179,'eine Maustaste!')
  83.   SCRTOBUF
  84.   CURSBOUND(0,0,XMAX-WINX/4,YMAX-WINY/4)
  85.   REPEAT
  86.     IF MOUSEK >0
  87.       X0 := MOUSEX
  88.       Y0 := MOUSEY
  89.       VIEWPORT(250+x0/6,50+y0/6,250+x0/6+WINX/6/4,50+y0/6+WINY/6/4)
  90.       RECTANGLE
  91.       LOADSPRITE(X0,Y0,45,50,(XMAX+1)/4,(YMAX+1)/4)
  92.       REPEAT
  93.         IF MOUSEY<>y0
  94.           x0:=-1
  95.         ENDIF
  96.       UNTIL MOUSEX<>x0
  97.       RESTOREBOX(0,0)
  98.     ENDIF
  99.   UNTIL MOUSEK = 3
  100. END
  101.  
  102.