home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l076 / 1.ddi / SPIRO.TRU < prev    next >
Encoding:
Text File  |  1988-08-27  |  2.4 KB  |  102 lines
  1. !  Spirograph.
  2. !
  3. !  IBM PC Version 2.0 copyright (c) 1988 by True BASIC, Inc.
  4. !
  5. DIM rr(15),gg(15),bb(15)
  6. SET MODE "ega"
  7.  
  8. LET colormax = 15
  9. CALL Init(rr,gg,bb,colormax)
  10. ASK MAX COLOR mc
  11. IF mc=1 then 
  12.    LET bw,colormax = 1
  13. else if mc>3 then
  14.    LET cyclecolor = 1
  15. end if
  16.  
  17. RANDOMIZE
  18. LET BaseX = 150
  19. LET BaseY = 256
  20. LET a = 70
  21. LET b = 19
  22. LET ab = 0
  23. LET ba = 5
  24. LET Incr1 = 4
  25. LET Incr2 = -4
  26.  
  27. SUB Spiro
  28.     LET Xa = 64 * a
  29.     LET Ya = 0
  30.     LET Xb = 64 * b
  31.     LET Yb = 0
  32.     LET Vx = 0
  33.     LET Vy = 15000
  34.     FOR i = 1 to 300
  35.         LET y1 = Basey + Int((Xa + Xb + Vx) / 64)
  36.         LET x1 = Basex + Int((Ya + Yb + Vy) / 64)
  37.         LET y2 = Basey + Int((Xa + Xb - Vx) / 64)
  38.         LET x2 = Basex + Int((Ya + Yb - Vy) / 64)
  39.         IF cyclecolor<>0 then CALL Cycle(rr,gg,bb,col,colormax)
  40.         LET col = col+1
  41.         IF col>colormax then LET col = 1
  42.         SET COLOR col
  43.         PLOT x1,y1; x2,y2
  44.         LET Xa = Xa - Int(Ya / incr2)
  45.         LET Ya = Int(Xa / incr2) + Ya
  46.         LET Xb = Xb - Int(Yb / incr1)
  47.         LET Yb = Int(Xb / incr1) + Yb
  48.         LET Vx = Vx - Int(Vy / incr1)
  49.         LET Vy = Int(Vx / incr1) + Vy
  50.     NEXT i
  51. END SUB
  52.  
  53. IF bw<>0 then BOX KEEP 0,1,0,1 in s$
  54. SET WINDOW -200,500,-100,600
  55. LET s1 = 1
  56. LET s2 = -1
  57. LET tt = time
  58. DO
  59.    FOR j = 1 to 2
  60.        CALL Spiro
  61.        IF bw<>0 then
  62.           BOX SHOW s$ at -200,-100 using 10      !invert screen
  63.        ELSE
  64.           ASK COLOR MIX(0) bb1,bb2,bb3
  65.           PAUSE 1
  66.           SET COLOR MIX(0) 1-bb1,1-bb2,1-bb3
  67.           CLEAR
  68.        END IF
  69.    NEXT j
  70.    LET incr1 = incr1+s1*Int(7*rnd)
  71.    LET incr2 = incr2+s2*Int(3*rnd)
  72.    IF abs(incr1)>27 then LET s1 = -Sgn(incr1)
  73.    IF abs(incr2)>27 then LET s2 = -Sgn(incr2)
  74. LOOP
  75. END
  76.  
  77. SUB Init(r(),g(),b(),colormax)    !set 15 colors to rainbow
  78.  
  79.     MAT READ r, g, b
  80.     DATA  1,  1, 1, .6, .3,  0,  0,  0,  0,  0, .3, .6,  1,  1,  1
  81.     DATA .3, .6, 1,  1,  1,  1,  1,  1, .6, .3,  0,  0,  0,  0,  0
  82.     DATA  0,  0, 0,  0,  0, .3, .6,  1,  1,  1,  1,  1,  1, .6, .3
  83.  
  84.     LET j = 1
  85.     FOR i = 1 to colormax
  86.         SET COLOR MIX(i) r(j), g(j), b(j)
  87.         LET j = j + 1
  88.     NEXT i
  89.  
  90. END SUB
  91.  
  92. SUB Cycle(r(),g(),b(),c,colormax)      !cycle colors
  93.     LET c1 = mod(c,14)+1
  94.     LET j = c
  95.     FOR i = colormax-1 to 1 step -1
  96.         LET j = j-1
  97.         IF j<1 then LET j=colormax-1
  98.         SET COLOR MIX (i) r(j),g(j),b(j)
  99.     NEXT i
  100.     LET c = c1
  101. END SUB
  102.