Category : Printer + Display Graphics
Archive   : JWEGADEM.ZIP
Filename : EGALINES.BAS

defint a-z
dim a1(2500 ),a2(2500 ),b1(2500 ),b2(2500 )
SCREEN 1,1
COLOR 0,0
cnt=0
input "Enter number of iterations:",cnt
if cnt=0 then cnt=1000
stp = -1
print "redraw after ? lines:"
while stp < 0 or stp > 2501
input "(MAX=2500, 2501 for no redraw)",stp
wend
cls
GOSUB 5000 : ' get random seed and randomize
gosub 4000 : ' get first set of points
x1=xa:x2=xb:y1=ya:y2=yb:c=1:k=0:CN=0
print "spacebar to reblank screen : S to quit"
for p=1 to cnt
d=d+1
c=c+1
CN=CN+1
if c>3 then c=1
if d>15 then d=2
IF CN > 48 THEN CN=0:PALETTE 0,C0:C0=C0+1:IF C0 > 7 THEN C0=0
palette c,d
gosub 3000 'draw a set of lines using color c

ink$=inkey$
if ink$=" " then cls:print "spacebar to reblank screen : S to quit"
if ink$="s" then p=cnt+1
if ink$="S" then p=cnt+1
next p
end
3000'print " ":' lprint "ITERATION #";p:' lprint " "
spd=40*rnd(1) : spd=200+(spd*100)
gosub 4000
'print xa;" ";ya;" ";xb;" ";yb;" target"
incr=20+(rnd(1)*80)
dx1=(xa-x1)/incr
dx2=(xb-x2)/incr
dy1=(ya-y1)/incr
dy2=(yb-y2)/incr
'print dx1;" ";dy1;" ";dx2;" ";dy2;" increment"
for i=1 to incr
x1=x1+dx1 :x2=x2+dx2:y1=y1+dy1:y2=y2+dy2
gosub 3500
line (x1,y1)-(x2,y2),c
'print x1;" ";y1;" ";x2;" ";y2;" in loop"
for ix=1 to spd:next ix
next i
return
3500 'store plotted points
k=k+1
if k > stp then k=1
kx=k+1
if kx > stp then kx=1
'print "k=";k;" kx=";kx
a1(k)=x1:a2(k)=x2:b1(k)=y1:b2(k)=y2
line (a1(kx), b1(kx)) - (a2(kx), b2(kx)),0
return
4000 ' generate random points
xa=(300*(RND(1)))+10
xb=(300*(RND(1)))+10
ya=(180*(RND(1)))+10
yb=(180*(RND(1)))+10
RETURN
5000 ' generate a random seed number
A1$=MID$(TIME$,4,2):A2$=MID$(TIME$,7,2):A3$=MID$(TIME$,1,2)
V1 = (100 * VAL(A2$)) + VAL(A1$) - VAL(A3$):RANDOMIZE V1:RETURN