Darn it! what the hey!
OINE LAST TRY.. BTW This looks really crappy in DBPRO its the same result just it looks REALLY bad all the 2d dose.."
dim BCurv(250,8)
BCurv(0,0)=10:BCurv(1,0)=300:BCurv(2,0)=1
BCurv(3,0)=100:BCurv(4,0)=100:BCurv(5,0)=0
BCurv(6,0)=200:BCurv(7,0)=10:BCurv(8,0)=0
BCurv(9,0)=250:BCurv(10,0)=50:BCurv(11,0)=0
BCurv(12,0)=300:BCurv(13,0)=200:BCurv(14,0)=0
BCurv(15,0)=350:BCurv(16,0)=250:BCurv(17,0)=0
BCurv(18,0)=500:BCurv(19,0)=40:BCurv(20,0)=1
DrawCurv()
print "done"
do
sync
loop
end
`Remove reminder marks to show how it works
Function DrawCurv()
C=1:D=0:Ink RGB(0,0,255),0
VORB:
A=0:B=0:LX=BCurv(A,D):LY=BCurv(A+1,D):LM=0
BCurv(B,C)=LX:BCurv(B+1,C)=LY:BCurv(B+2,C)=1:INC B,3
while LM<>1
ink rgb(255,0,0),0:Circle LX,LY,5
INC A,3
X=BCurv(A,D):Y=BCurv(A+1,D):M=BCurv(A+2,D)
Ink RGB(0,0,255),0:Line LX,LY,X,Y:Circle LX,LY,5:Circle X,Y,5
if C=8 then ink rgb(255,255,0),0:Line LX,LY,X,Y
X2=LineSegX(LX,X):Y2=LineSegY(LY,Y)
BCurv(B,C)=X2:BCurv(B+1,C)=Y2:BCurv(B+2,C)=0:INC B,3
LX=X:LY=Y:LM=M
endwhile
BCurv(B,C)=X:BCurv(B+1,C)=Y:BCurv(B+2,C)=1
ink RGB(255,255,255),0:INC C,1:INC D,1:IF C<>9 then goto VORB
endfunction
Function LineSegY(Y,Y2)
if y>y2 then a=y:y=y2:y2=a
Y3=((Y2-Y)/2)+Y
endfunction Y3
Function LineSegX(X,X2)
if x>x2 then a=x:x=x2:x2=a
X3=((X2-X)/2)+X
endfunction X3
-----\
There was a man on the stairs that wasn't there.
He wasn't there agian today I think he's from the CIA.