P728CEEFAX@/28 W 12:01/20
>B2201205‖a16Plobak‖i15BASIC>m10÷e÷X÷b÷d
÷L PL BAK÷e÷X÷l÷p÷L by@Stelios@Zichael÷e
÷X÷v÷p÷L (c) The Micro User÷e÷X(÷↑÷C7÷e÷
X4÷t÷I"Line@or solid? (L/S)";÷e÷X<÷j÷M Q
W$=─e(─M─(&DF)÷e÷XF÷m÷U ─O"LS",QW$)>0:÷C
1÷e÷XP÷p÷?@QW$="S" ÷G19,7,4;0;÷e÷XZ÷k÷G2
3;82p2;0;0;0;÷e÷Xd÷hnumverts%=19÷e÷Xn÷hn
umfaces%=17÷e÷Xx÷m÷6 col%(numfaces%)÷e÷X
─*÷g÷6 pnt(2,19)÷e÷X─4÷p÷6 face%(numface
s%,3)÷e÷X─>÷s÷6 scr#pts%(1,numverts%)÷e÷
X─H÷l÷6 ck%(numfaces%)÷e÷X─R÷n÷6 pnts%(n
umfacesER÷e÷X─½÷qcpos=─C(.2):spos=─→(.2)
÷e÷X─f÷tcnjg=─C(-0.2):snjg=─→(-.2)÷e÷X─p
÷cDE=2000÷e÷X÷*÷‖─EJ=1÷e÷X÷4÷iDistanceE=
500÷e÷X÷>÷f÷JRead#data÷e÷X÷H÷→÷M÷e÷X÷R÷#
÷Q=0÷e÷Y÷½$÷?@─N-73@÷JR#tate#X(cpos,spos
):E%=1÷e÷Y÷f%÷? ─N-105 ■JRotate#X(cneg,s
neg):EJ=1÷e÷Y÷p$÷? ─N-98 ÷JRotate#Y(cneg
,sneg):E%=1÷e÷Y"$÷? ─N-67 ÷JRotate#Y(cpo
s,spos):E%=1÷e÷Y,$÷? ─N←17 ÷JRotate#5(cp
os,spos):E%=1÷e÷Y6$÷? ─N-34 ■JRotate#Z(c
njg,snjg):E%=1÷e÷Y@÷w÷? ─N-99 ÷JTtanslat
e(-50):E%=1÷e÷YJ÷v÷? ─N-74 ■JTranslate(5
p):E%=1÷e÷YT7÷?@E%=1 ÷JChange:÷ C
P728CEEFAX@/28 Weh 1:@ ct 12:07/27
‖B22p2205‖a16Plobak‖m3314÷hE%=p:*FX15,1÷
e÷Yh÷#÷U ─K÷e÷Yr÷g÷4J30,0,-100÷e÷Y‖‖÷g÷4
30,0,-100÷e÷Y─.÷e÷4 60,0,65÷e÷Y─8÷e÷4-6
0,0,65÷e÷Y─B÷f÷4-25,8,100÷e÷Y─L÷f÷4 25,8
,100÷e÷Y─V÷f÷4 0,25,50÷e÷Y─‖─÷g÷4-25,-8
,100÷e÷Y─j÷g÷4 25,-8,100÷e÷Y─t÷g÷4 0,-2
5,50÷e÷Y÷.÷g÷4J20,-8,-55÷e÷Y÷8÷h÷4-18,-1
p,-)p÷e÷Y÷B÷P÷h@18,Z1p,-)0÷e÷Y÷L÷g÷h@2p,
-8,-55÷e÷Y÷V÷f÷4-35,10,40÷e÷Z÷‖─÷f÷4-30,
6,-30÷e÷Z÷j÷f÷4J25,14,25÷e÷Z÷t÷f÷4 25,14
,25÷e÷Z&÷f÷4 30,6,-30÷e÷
j÷ DZN
÷4 3,3,0,6÷e÷ XZ
,6,5÷e÷ Z
÷Z─(÷e÷4 3,1,0,9÷e÷
÷e÷4 3,2,9,8÷e÷ F P
3,7,9,3÷e÷ ZZ
,8,/,4÷e÷5─n÷e÷4 3,4,/,3÷e÷ P
11,12,13÷e÷Z÷2÷h÷4 3,14,15,16÷e÷Z÷<÷h÷4
3,1/,18,2:÷e÷ FJJJJJJJ
,-1,-1÷e÷Z÷P÷t÷4 -1,-1,-1,-1,1,-1,2,2,2÷
e÷←÷Z÷g÷5÷JRead#data÷e÷←÷d÷l÷; Vertex%=0
─‖─ 19÷e÷←÷n2÷K pnt(0,Vertex%),pnt(1,Ve
rtexER,p↑t(%,VertexER÷e÷← ÷→÷E÷e÷←T÷q÷7
P728CEEFAX 728 Wed 19@ ct 12:0%/40
‖B22032p5‖a16Plobak‖m35EB(Eace%)÷e÷←>!÷;
Pnt#num%=0 ─‖─ pnts%(Eace%R-1÷e÷←H÷s÷K
face%(Eace%,Pnt#num%R÷e÷←$÷#÷E:÷E÷e÷←½÷q
÷; Face%=0 ─‖─ numfaces%÷e÷←f÷k÷K col%(E
ace%):÷E÷e÷←p÷→÷9÷e÷←z÷k÷5÷JRotate#X(C,S
)÷e÷←─,÷s÷; VertexE=0 ─‖─ numverts%÷e÷←─
6%Z=pnt(2,Vertex%):Y=pnt(1,Vertex%)÷e÷←─
@÷rp↑t(1,.ertexER=:*CJ5*S÷e¾←─J÷rp↑t(2,.
ertex%)=Y*S+Z*C÷e÷←─T÷#÷E:÷9÷e÷←─↑÷k÷5÷J
Rotate#Y(C,S)÷e÷←─h÷s÷; Vertex%=0 ─‖─ nu
mverts%÷e÷←─r%Z=pnt(2,Vertex%):X=pnt(0,V
jrtexER÷e÷←÷,÷rpnt(0,Vertex%R=X*C-5*S÷e÷
←÷6÷rpnt(2,Vertex%)=X*S+Z*C÷e÷←÷@÷#÷E:÷9
÷e÷←÷J÷k÷5÷JRotate#5(C,S)÷e÷←÷(÷t÷; Vert
ex%= 0 ─‖─ numverts%÷e÷½÷↑%Y=pnt(1,Verte
x%):X=pnt(0,Vertex%)÷e÷½÷h÷rpnt(0,Vertex
%)=X*C-Y*S÷e÷½÷r÷rpnt(1,Vertex%)=X*S+Y*C
÷e÷½$¾#÷ :÷9÷e÷½-÷k÷5÷JTtanslate(T%)÷e÷½
8÷s÷; Vertex%=0 ─‖─ numverts%÷e÷½B$pnt(2
,VertexER=p↑t(%,Vertex%R+T%÷e÷½L÷#÷ :÷9÷
e÷½V÷d÷5÷JChange÷e÷½‖─÷s÷; Vertex%=0 ─‖─
numverts%÷e÷½j÷mAE=pnt(0,Vertex%)÷e÷½t÷
mB%=pnt(1,Vertex%)÷e÷½‖÷÷wA%=pnt(2,Verte
xER-Distance%÷e÷½─0@scr#pts%(0,Vertex%R=
P728CEEFAX@728 Wed 19@Oct 12:08/00
‖B2204205‖a16Plobak‖m3923%*B%/C%÷e÷½─D÷#
÷E:÷9÷e÷½─N÷h÷5÷ CXF
=0 ─‖─ numfaces%÷e÷½─b÷lVX0%=face%(F%,0)
÷e÷½─l÷l-X1J=face%(E%,1)÷e÷½─v÷l$X4%=fac
j%(F%,2)÷e÷½÷0)AX%=scr#pts%(0,VX0%)-scr#
pts%(0,.X1%)÷e÷½÷:)AY%=scr#pts%(1,.Xp%)-
scr#pts%(1,.X1%)÷e÷½÷D)BX%=scr#pts%(0,VX
2%R-scr#pts%(0,.X1J)÷e÷½÷NQBYE=scr#pts%(
1,VX2%)-scr#pts%(1,VX1%)÷e÷→÷X÷oNZ%=AX%*
BYE←AYE*BX%÷e÷←÷b"÷?@N5%>=0@cS*(EJR=1 ─3
cS%(F%)=0÷e÷→÷l÷#÷E:÷9÷e÷→÷v÷j÷5÷JWhich
#eace5÷3÷i÷→(÷q÷;@FaceE=0@─‖─ nuUfaces%÷
j÷→4÷s÷?@cS%(EaceE) ÷JDraw#e!ce÷e÷→<÷#÷E
:÷9÷e÷→F÷g÷5÷JDraw#eace÷e÷→P$÷?QW$="S" ÷
JSolid#face:÷>0,0 ─3 ÷>0,7÷e÷→Z%K%=scr#p
ts%(0,face%(Eace%,0)Q+6)0÷e÷→d%M%=scr#pt
s%(1,face%(Face%,0))+512÷e÷→n÷c÷D K%,M%■
e÷→x÷s÷; SE=1 ─‖─ pnts%(Face%)-1÷e÷→─*E÷
7 scr#pts%(0,face%(Face%,S%))+640,scr#pt
s%(1,face%(Face%,S%R)Wk12÷e÷→─4÷g÷E:÷7@K
%,M%:÷9÷e÷→─>÷h÷5÷JSolid#face÷e÷→─H*÷? c
#l%(Eace%*>-1 ÷>0,col%(Eace%) ─3 ÷>0,7÷e
÷→─RC÷D scr#pts%(0,face%(Face%,0))+640,s
cr#pts%(1,face%(Face%,p))+k12÷e÷→─½C÷7 s
P728CEEFAX 728 Wed 19@Oct 12:08/22
‖B2205205‖a16Plobak‖m3C63s%(1,face%(Eace
%,2RRWk12÷e÷→─e ÷P85,scr?pts%(0,face%(Fa
ce%,2))+640,scr#pts%(1,face%(Face%,2))+5
12÷e÷→─p÷n÷? pnts%(Eace%)=3 ÷9÷e÷→÷*B÷7s
cr#pts%(0,face%(Face%,0))+640,scr#pts%(1
,face%(Eace%,p)RWk12÷e÷→÷4E÷H85,scr#pts%
(0,face%(Face%,3))+64p,scr#pts%(1,face%(
Face%,3)RWk12÷e÷→÷>÷→÷9÷e÷W‖c