+: Diamond 3D - Een TURBO R listingX: ************************************: NB: Met basic kun : _RUN ! werkt dit: programma ook redelijk snel op̀: de MSX2 en 2+ !!: ************************************: AQ: RZ A$[ T(,): X(),Y(),Z(),XX(),YY(),A(),B(),C()c:v( 12,29,256,80~2:< 44.282, 0 ,123.301F 19.282, 0 , 80ՁP 44.282, 0 , 36.6988Z 94.282, 0 , 36.6988d119.282, 0 , 80,n 94.282, 0 ,123.301Fx 69.282, 22.9825,160` 0 , 22.9825,120z 0 , 22.9825, 40 69.282, 22.9825, 0138.564, 22.9825, 40Ȃ138.564, 22.9825,120₴ 69.282,102.983 , 80ꂾ: 0,1,1,2,2,3,3,4,4,5,5,0* 6,7,7,8,8,9,9,10,10,11,11,6d 0,6,0,7,1,7,1,8,2,8,2,9,3,9,3,10,4,10,4,11,5,11,5,6 6,12,7,12,8,12,9,12,10,12,11,12: 1,1,1,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,3,3,3,3,2,2,2,2,2,4,2,2,2,2,2,1,1,3,3,3,3,0 ::# ,,: @"P:Q: PAGE P,Q:,:t,(,,,):(,,,):(,,,):(,,,)6RA@XM:YM:ZMJU():T(,):T(,)(U):T(,)T(,):T(,)(U):T(,)T(,) TI%:J%:C(J%I%)J%:J%:I%^:'h N%,M%: OX,OYKr I% N%: X(I%),Y(I%),Z(I%)s|XMXMX(I%):YMYMY(I%):ZMZMZ(I%) I%:XMXMI%:YMYMI:ZMZMI%օ I% N:X(I%)X(I%)XM:Y(I%)Y(I%)YM:Z(I%)Z(I%)ZM:I% I% M: A(I%),B(I%):I% : : A/ A : Q A T(,),T(,): [AAk I% N%XX(I%)T(C(A),C(A))Y(I%)T(C(A),C(A))Z(I%)T(C(A),C(A))YX(I%)T(C(A),C(A))Y(I%)T(C(A),C(A))Z(I%)T(C(A),C(A))@ZX(I%)T(C(A),C(A))Y(I%)T(C(A),C(A))Z(I%)T(C(A),C(A))aX(I%)X:Y(I%)Y:Z(I%)Z: I% I% N%:W(Z(I%))XXX(I%)X(I%)RWOX:YY(I%)Y(I%)WOY& I%͇0 PAGE P,Q:: P,Q݇: I% M%;L((Z(A(I%)))(Z(B(I%)))(Z(A(I%))Z(B(I%))))QD(XX(A(I%)),YY(A(I%)))(XX(B(I%)),YY(B(I%))),L,,ZN I%sO " " ,,::}X