home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / COLROTAT.OPT < prev    next >
Text File  |  1995-05-05  |  2KB  |  90 lines
  1.  
  2. def(i)
  3. def(j)
  4.  
  5. procedure jalousie(xl,yo,xr,yu,col,verz)
  6.    locals(i,j,l)
  7.    setcolor(col)
  8.    for i:=0 to 5 do
  9.       for j:=yo to yu step 6 do
  10.          line(xl,j+i,xr,j+i,0)
  11.          for l:=0 to verz do
  12.          next(l)
  13.       next(j)
  14.    next(i)
  15. return
  16.  
  17. procedure quattro(x,y,b,h,s)
  18.    locals(i,r)
  19.    b:=b/2
  20.    h:=h/2
  21.    for i:=0 to b-1 step s do
  22.       r:=i*(((h/b)*10)/10)
  23.       copywin(x+1  ,y+1,x+(b-1)-i,y+(h-1)-r)
  24.       loadwin(x,y,0,0)
  25.       copywin(x+b+i,y+1,x+b+i-1+(b-1)-i,y+(h-1)-r)
  26.       loadwin(x+b+1+i,y,0,0)
  27.       copywin(x+1,y+h+r,x+(b-1)-i,y+h+r-1+(h-1)-r)
  28.       loadwin(x,y+h+1+r,0,0)
  29.       copywin(x+b+i,y+h+r,x+b+i-1+(b-1)-i,y+h+r-1+(h-1)-r)
  30.       loadwin(x+b+1+i,y+h+1+r,0,0)
  31.    next(i)
  32. return
  33.  
  34. begin
  35.  
  36.   jalousie(0,0,xmax,ymax,10,2)
  37.  
  38.   readfont(1,'hel15x29.fnt')
  39.   font(1)
  40.   textcolor(249)
  41.   textcofs(4)
  42.  
  43.   for i:=1 to 120 do
  44.  
  45.     setrgbcolor(63-i,0,0+i,i)
  46.     setcolor(i)
  47.     viewport(120-i,120-i,200+i,120+i)
  48.     rectangle
  49.     viewport(440-i,360-i,520+i,360+i)
  50.     rectangle
  51.     viewport(120-i,360-i,200+i,360+i)
  52.     rectangle
  53.     viewport(440-i,120-i,520+i,120+i)
  54.     rectangle
  55.  
  56.   next(i)
  57.  
  58.   pause(500)
  59.  
  60.   gradation(1,120,0,63,0,63,0,0)
  61.   for i:=0 to 15 do
  62.      for j:=1 to 6 do
  63.         rotsubpal(j)
  64.         pause(3)
  65.      next(j)
  66.   next(i)
  67.   gradation(1,120,63,0,0,0,63,0)
  68.   for i:=0 to 15 do
  69.      for j:=1 to 6 do
  70.         rotsubpal(j)
  71.         pause(3)
  72.      next(j)
  73.   next(i)
  74.   gradation(1,120,0,0,0,0,63,63)
  75.   for i:=0 to 15 do
  76.      for j:=1 to 6 do
  77.         rotsubpal(j)
  78.         pause(3)
  79.      next(j)
  80.   next(i)
  81.  
  82.   quattro(0,120,320,240,5)
  83.   quattro(320,120,320,240,5)
  84.   quattro(160,0,320,240,5)
  85.   quattro(160,240,320,240,5)
  86.  
  87.   pause(5000)
  88.  
  89. end
  90.