home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 July / IMM0795.ISO / demo / optix / optxfpac.set / VASERELY.OPT < prev    next >
Text File  |  1995-04-05  |  2KB  |  102 lines
  1. def(i)
  2. def(j)
  3. def(sin1)
  4. def(cos1)
  5. def(sin2)
  6. def(cos2)
  7. def(sin3)
  8. def(cos3)
  9. def(sin4)
  10. def(cos4)
  11. defs(dum$,'')
  12. def(R)
  13. def(G)
  14. def(B)
  15. def(rd)
  16. def(COL)
  17. defai(sintab,2,360)
  18. BEGIN
  19.   new(sintab)
  20.   READfont(1,'hel15x29.fnt')
  21.   font(1)
  22.   textcolor(252)
  23.   textbcolor(244)
  24.   writestyle(3)
  25.   textshadow(2,1)
  26.   textcofs(4)
  27.   READarr(sintab,'sincos.tab')
  28.   gradation(1,20,5,10,5,60,10,20)
  29.   i:=320
  30.   printc(320,228,'VASERELY life')
  31.   for i:=1 TO 100 step 2 DO
  32.     j:=i
  33.     mod(j,20)
  34.     setcolor(j+1)
  35.     sin1:=sintab[1,180-i]
  36.     cos1:=sintab[2,180-i]
  37.     sin2:=sintab[1,180+i]
  38.     cos2:=sintab[2,180+i]
  39.     sin3:=sintab[1, 90+i]
  40.     cos3:=sintab[2, 90+i]
  41.     sin4:=sintab[1,270-i]
  42.     cos4:=sintab[2,270-i]
  43.     line(56+sin1/7,150+cos1/8,584+sin2/7,150+cos2/8,0)
  44.     line(584+sin2/7,150+cos2/8,440+sin3/7,439+cos3/8,0)
  45.     line(440+sin3/7,439+cos3/8,200+sin4/7,439+cos4/8,0)
  46.     line(200+sin4/7,439+cos4/8,56+sin1/7,150+cos1/8,0)
  47.     line(57+sin1/7,151+cos1/8,583+sin2/7,151+cos2/8,0)
  48.     line(583+sin2/7,151+cos2/8,439+sin3/7,438+cos3/8,0)
  49.     line(439+sin3/7,438+cos3/8,201+sin4/7,438+cos4/8,0)
  50.     line(201+sin4/7,438+cos4/8,57+sin1/7,151+cos1/8,0)
  51.   next(i)
  52.   :LL
  53.   for j:=0 to 100 do
  54.    i:=readkey
  55.    if i=49
  56.     gradation(1,20,5+j/2,10,5,30,60-j/2,30+j/3)
  57.    endif
  58.    if i=50
  59.     gradation(1,20,5,10+j/3,5,30+j/3,60,30)
  60.    endif
  61.    if i=51
  62.     gradation(1,20,5+j/2,10,5+j/2,30,60-j/2,30)
  63.    endif
  64.    if i=52
  65.     gradation(1,20,5,10,5+j/2,30+j/3,60-j/2,30+j/3)
  66.    endif
  67.    for i:=0 to 40 do
  68.      if mousek=1
  69.        rotpal(1,20)
  70.        getrgbcolor(20,R,G,B)
  71.        inc(R,1)
  72.        inc(b,1)
  73.        if I = 40
  74.          inc(G,1)
  75.        endif
  76.        setrgbcolor(R,G,B,20)
  77.      else
  78.        rotpal(20,1)
  79.        getrgbcolor(20,R,G,B)
  80.        inc(r,rd)
  81.        dec(g,10)
  82.        inc(b,rd)
  83.        if r = 63
  84.          r := 17
  85.        endif
  86.        if g = 10
  87.          g := 63
  88.        endif
  89.        if b >= 30
  90.          random(3,rd)
  91.          dec(rd,1)
  92.          b := 0
  93.        endif
  94.        setrgbcolor(R,G,B,20)
  95.      endif
  96.    next(i)
  97.   next(j)
  98.   goto('LL')
  99. end
  100.  
  101.  
  102.