Yay! I found the bug. I was accidentally using B when B was already in use. :roll:
BASIC Code wrote:
:ClrDraw
:0
dim(LA
:0dim(LB
:0dim(LC
:0dim(LA2
:0dim(LB2
:0dim(LC2
:Input
:X+YiLA2(1
:Pt-On(X,Y,3
:Input
:X+YiLB2(1
:Pt-On(X,Y,3
:Input
:X+YiLC2(1
:Pt-On(X,Y,3
:For(Z,0,2
:LA2LA
:0dim(LA2
:LB2LB
:0dim(LB2
:LC2LC
:0dim(LC2
:For(I,1,dim(LA
:(real(LA(I))+real(LB(I)))/2+i(imag(LA(I))+imag(LB(I)))/2C
:(real(LA(I))+real(LC(I)))/2+i(imag(LA(I))+imag(LC(I)))/2B
:(real(LB(I))+real(LC(I)))/2+i(imag(LB(I))+imag(LC(I)))/2A
:Line(real(LA(I)),imag(LA(I)),real(A),imag(A
:Line(real(LB(I)),imag(LB(I)),real(B),imag(B
:Line(real(LC(I)),imag(LC(I)),real(C),imag(C
:(imag(LA(I))-imag(A))/(real(LA(I))-real(AM
:(imag(LB(I))-imag(B))/(real(LB(I))-real(BN
:(-)Mreal(LA(I))+imag(LA(IU
:(-)Nreal(LB(I))+imag(LB(IV
:(U-V)/(N-M)G
:MG+UH
:G+HiJ
:LA(I)LA2(1+dim(LA2
:BLB2(1+dim(LB2
:JLC2(1+dim(LC2
:LA(I)LA2(1+dim(LA2
:CLB2(1+dim(LB2
:JLC2(1+dim(LC2
:LB(I)LA2(1+dim(LA2
:CLB2(1+dim(LB2
:JLC2(1+dim(LC2
:LB(I)LA2(1+dim(LA2
:ALB2(1+dim(LB2
:JLC2(1+dim(LC2
:LC(I)LA2(1+dim(LA2
:ALB2(1+dim(LB2
:JLC2(1+dim(LC2
:LC(I)LA2(1+dim(LA2
:BLB2(1+dim(LB2
:JLC2(1+dim(LC2
:End
:End
:Pause
Generated by SourceCoder, © 2005 Cemetech
:0
dim(LA
:0
dim(LB
:0
dim(LC
:0
dim(LA2
:0
dim(LB2
:0
dim(LC2
:Input
:X+Yi
LA2(1
:Pt-On(X,Y,3
:Input
:X+Yi
LB2(1
:Pt-On(X,Y,3
:Input
:X+Yi
LC2(1
:Pt-On(X,Y,3
:For(Z,0,2
:LA2
LA
:0
dim(LA2
:LB2
LB
:0
dim(LB2
:LC2
LC
:0
dim(LC2
:For(I,1,dim(LA
:(real(LA(I))+real(LB(I)))/2+i(imag(LA(I))+imag(LB(I)))/2
C
:(real(LA(I))+real(LC(I)))/2+i(imag(LA(I))+imag(LC(I)))/2
B
:(real(LB(I))+real(LC(I)))/2+i(imag(LB(I))+imag(LC(I)))/2
A
:Line(real(LA(I)),imag(LA(I)),real(A),imag(A
:Line(real(LB(I)),imag(LB(I)),real(B),imag(B
:Line(real(LC(I)),imag(LC(I)),real(C),imag(C
:(imag(LA(I))-imag(A))/(real(LA(I))-real(A
M
:(imag(LB(I))-imag(B))/(real(LB(I))-real(B
N
:(-)Mreal(LA(I))+imag(LA(I
U
:(-)Nreal(LB(I))+imag(LB(I
V
:(U-V)/(N-M)
G
:MG+U
H
:G+Hi
J
:LA(I)
LA2(1+dim(LA2
:B
LB2(1+dim(LB2
:J
LC2(1+dim(LC2
:LA(I)
LA2(1+dim(LA2
:C
LB2(1+dim(LB2
:J
LC2(1+dim(LC2
:LB(I)
LA2(1+dim(LA2
:C
LB2(1+dim(LB2
:J
LC2(1+dim(LC2
:LB(I)
LA2(1+dim(LA2
:A
LB2(1+dim(LB2
:J
LC2(1+dim(LC2
:LC(I)
LA2(1+dim(LA2
:A
LB2(1+dim(LB2
:J
LC2(1+dim(LC2
:LC(I)
LA2(1+dim(LA2
:B
LB2(1+dim(LB2
:J
LC2(1+dim(LC2
:End
:End
:Pause
Generated by SourceCoder, © 2005 Cemetech
