By Kerm Martian
Kerm_Martian@yahoo.com
http://www.cemetech.tk
:ClrDraw
:Lbl A
:For(X,1,dim(
X),4
:X(X)
A
:X(X+2)B
:Y(X)C
:Y(X+2)D
:Z(X)E
:Z(X+2)F
:R((X+3)/4)R
:X(X+1)-AG
:X(X+3)-BH
:Y(X+1)-CI
:Y(X+3)-DJ
:Z(X+1)-EK
:Z(X+3)-FL
:If G>H:Then
:
XM:X(H/G)N
:End
:If H>G:Then
:XN:X(G/H)M
:End
:If H=G:Then
:XM:XN
:End
:0O:0P
:If I
0
:X(I/G)O
:If J0
:X(j/H)P
:0Q:0S
:If K0
:X(K/G)O
:If L0
:X(L/H)P
:1T
:If R<0:0T
:abs(R)R
:Lbl B
:Line((A+.5E),(C+.25E),(B+.5F),(D+.25F),T
:A+RMA
:B+RNB
:C+ROC
:D+RPD
:E+RQE
:F+RSF
:If A<X(X+1
:Goto B:End