home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / FRAMROTA.OPT < prev    next >
Text File  |  1995-05-05  |  5KB  |  270 lines
  1.  
  2. DEF(I)
  3. DEF(J)
  4. DEF(k)
  5. DEF(x)
  6. DEF(y)
  7.  
  8. procedure fbox1(xl,yo,xr,yu,cnt,col,mod,verz)
  9.    locals(pb)
  10.  
  11.    pb:=(yu-yo)/cnt-1
  12.  
  13.    do
  14.      viewport(xl,yo,xr,yo+pb)
  15.      inc(yo,pb)
  16.      cbox(mod,col,verz)
  17.      inc(col,1)
  18.    loop(cnt)
  19.  
  20. return
  21.  
  22. PROCEDURE fbox2(xl,yo,xr,yu,cnt,col,mod,verz)
  23.  
  24.    locals(pi)
  25.    INC(col,cnt)
  26.    pi:=((yu-yo)/cnt)-1
  27.  
  28.    DO
  29.      yu:=yo
  30.      INC(yu,pi)
  31.      VIEWPORT(xl,yo,xr,yu)
  32.      INC(yo,pi)
  33.      CBOX(mod,col,verz)
  34.      DEC(col,1)
  35.    LOOP(cnt)
  36.  
  37. RETURN
  38.  
  39. procedure ball(xm,ym,col,rad)
  40.  
  41.    do
  42.      disk(xm,ym,rad,col)
  43.      inc(col,1)
  44.    loop(rad)
  45.  
  46. return
  47.  
  48. procedure ring(xm,ym,col,rad,dick)
  49.  
  50.    locals(pb)
  51.    pb:=dick/2
  52.    dick:=dick/2-1
  53.  
  54.    do
  55.      disk(xm,ym,rad,col)
  56.      inc(col,1)
  57.      dec(rad,1)
  58.    loop(dick)
  59.  
  60.    dick:=pb
  61.    dec(dick,1)
  62.  
  63.    dec(col,1)
  64.  
  65.    do
  66.      disk(xm,ym,rad,col)
  67.      dec(col,1)
  68.      dec(rad,1)
  69.    loop(dick)
  70.  
  71. return
  72.  
  73. procedure frame(xl,yo,xr,yu,col,dick)
  74.   locals(i,j)
  75.   viewport(xl,yo,xr,yu)
  76.   for i:=1 to dick/2 do
  77.     setcolor(col+i-1)
  78.     rectangle
  79.     incviewport
  80.   next(i)
  81.   if (dick/2)*2<>dick
  82.     incviewport
  83.   endif
  84.   for j:=1 to dick/2 do
  85.     setcolor(col+i-j)
  86.     rectangle
  87.     incviewport
  88.   next(j)
  89. return
  90.  
  91.  
  92. begin
  93.  
  94.   font(0)
  95.   sysfont(3,1)
  96.  
  97.   readsound('capumusi.snd')
  98.   startsound
  99.   clearscreen(0)
  100.  
  101.   gradation(240,255,0,0,0,40,40,63)
  102.   frame(102,22,537,457,242,20)
  103.  
  104.   gradation(224,239,0,0,0,20,30,53)
  105.   frame(122,42,517,437,226,20)
  106.  
  107.   gradation(208,223,0,0,0,60,60,43)
  108.   frame(142,62,497,417,210,20)
  109.  
  110.   gradation(192,207,0,0,0,60,50,13)
  111.   frame(162,82,477,397,194,20)
  112.  
  113.   gradation(176,191,0,0,0,20,50,50)
  114.   frame(182,102,457,377,178,20)
  115.  
  116.   gradation(160,175,0,0,0,60,40,40)
  117.   frame(202,122,437,357,162,20)
  118.  
  119.   gradation(144,159,0,0,0,20,63,20)
  120.   frame(222,142,417,337,146,20)
  121.  
  122.   gradation(128,143,0,0,0,10,63,50)
  123.   frame(242,162,397,317,130,20)
  124.  
  125.   gradation(112,127,0,0,0,63,10,10)
  126.   frame(262,182,377,297,114,20)
  127.  
  128.   gradation(96,111,0,0,0,40,13,60)
  129.   frame(282,202,357,277,98,20)
  130.  
  131.   gradation(80,95,0,0,0,10,33,63)
  132.   frame(302,222,337,257,82,20)
  133.  
  134.   for k:=15 downto 5 do
  135.      for i:=0 to 15 do
  136.         rotsubpal(k)
  137.         pause(8)
  138.      next(i)
  139.   next(k)
  140.   for k:=5 to 15 do
  141.      for i:=0 to 15 do
  142.         rotsubpal(k)
  143.         pause(8)
  144.      next(i)
  145.   next(k)
  146.  
  147.   startsound
  148.  
  149.   pause(1000)
  150.   viewport(0,0,xmax,ymax)
  151.   cbox(5,8,100)
  152.   setallpal
  153.  
  154.   gradation(240,255,0,0,0,33,55,15)
  155.   gradation(224,239,0,0,0,60,20,50)
  156.   gradation(192,223,0,0,0,20,20,60)
  157.  
  158.   fbox1(20,20,320,470,30,193,0,0)
  159.   fbox2(320,20,620,470,30,193,0,0)
  160.   frame(56,56,582,424,200,48)
  161.   fbox2(156,160,215,270,10,224,4,2)
  162.  
  163.   frame(128,128,515,355,227,20)
  164.   frame(100,100,540,380,242,26)
  165.   frame(156,162,215,255,242,26)
  166.  
  167.   frame(390,210,428,250,242,26)
  168.  
  169.   j:=5
  170.   x:=160
  171.   do
  172.     disk(x,324,10,254)
  173.     pause(80)
  174.     ball(x,324,242,13)
  175.     inc(x,30)
  176.   loop(j)
  177.   j:=5
  178.   do
  179.     dec(x,30)
  180.     disk(x,324,10,254)
  181.     pause(80)
  182.     ball(x,324,242,13)
  183.   loop(j)
  184.  
  185.   sync(8160)
  186.   startsound
  187.  
  188.   ring(400,242,226,110,22)
  189.   setcolor(14)
  190.  
  191.   printc(400,226,'Hauptsache, es')
  192.   printc(400,246,'ist schön bunt und')
  193.   printc(400,266,'es passiert was!!!')
  194.   printat(65,60,'Bunte Bilder machen sie alle!')
  195.  
  196.   j:=3
  197.   do
  198.     i:=16
  199.     do
  200.       rotsubpal(12)
  201.       pause(30)
  202.     loop(i)
  203.     i:=16
  204.     do
  205.       rotsubpal(13)
  206.       pause(30)
  207.     loop(i)
  208.   loop(j)
  209.  
  210.   i:=2
  211.   do
  212.     gradation(240,255,0,0,0,43,25,35)
  213.     pause(200)
  214.     gradation(240,255,0,0,0,63,45,5)
  215.     pause(200)
  216.     gradation(240,255,0,0,0,33,15,55)
  217.     pause(200)
  218.     gradation(240,255,0,0,0,20,65,65)
  219.     pause(200)
  220.     gradation(240,255,0,0,0,63,20,20)
  221.     pause(200)
  222.   loop(i)
  223.  
  224.   readsound('typewrit.snd')
  225.  
  226.   for i:=0 to 3 do
  227.     for j:=0 to 15 do
  228.       setrgbcolor(240+j,j*4-1,0,63)
  229.       viewport(i*160+j*10,0,i*160+j*10+9,9)
  230.       cbox(0,240+j,0)
  231.       viewport(629,i*120+j*8,639,i*120+j*8+7)
  232.       cbox(0,240+j,0)
  233.       viewport(i*160+j*10,469,i*160+j*10+9,479)
  234.       cbox(0,255-j,0)
  235.       viewport(0,i*120+j*8,9,i*120+j*8+7)
  236.       cbox(0,255-j,0)
  237.     next(j)
  238.   next(i)
  239.  
  240.   for i:=0 to 159 do
  241.     startsound
  242.     rotsubpal(15)
  243.     pause((i/8+1))
  244.   next(i)
  245.  
  246.   for i:=0 to 3 do
  247.     for j:=0 to 15 do
  248.       setrgbcolor(240+j,j*4-1,0,63)
  249.       viewport(i*160+j*10,0,i*160+j*10+9,9)
  250.       cbox(0,255-j,0)
  251.       viewport(629,i*120+j*8,639,i*120+j*8+7)
  252.       cbox(0,255-j,0)
  253.       viewport(i*160+j*10,469,i*160+j*10+9,479)
  254.       cbox(0,240+j,0)
  255.       viewport(0,i*120+j*8,9,i*120+j*8+7)
  256.       cbox(0,240+j,0)
  257.     next(j)
  258.   next(i)
  259.  
  260.   for i:=159 downto 0 do
  261.     startsound
  262.     rotsubpal(15)
  263.     pause((i/8+1))
  264.   next(i)
  265.  
  266.  
  267.   pause(0)
  268.  
  269. end
  270.