|
|
OPTION BASE 0
DIM X(20),Y(20),Z(20)
LET L=100
FOR TH=0 TO 359 STEP 72
LET X(I)=L*COS((TH+18)*PI/180)
LET Z(I)=L*SIN((TH+18)*PI/180)
LET Y(I)=L*(SQR(5)+3)/4
LET I=I+1
NEXT TH
FOR TH=0 TO 359 STEP 72
LET X(I)=L*(SQR(5)+1)/2*COS((TH+18)*PI/180)
LET Z(I)=L*(SQR(5)+1)/2*SIN((TH+18)*PI/180)
LET Y(I)=L*(SQR(5)-1)/4
LET I=I+1
NEXT TH
FOR TH=0 TO 359 STEP 72
LET X(I)=L*(SQR(5)+1)/2*COS((TH+54)*PI/180)
LET Z(I)=L*(SQR(5)+1)/2*SIN((TH+54)*PI/180)
LET Y(I)=-L*(SQR(5)-1)/4
LET I=I+1
NEXT TH
FOR TH=0 TO 359 STEP 72
LET X(I)=L*COS((TH+54)*PI/180)
LET Z(I)=L*SIN((TH+54)*PI/180)
LET Y(I)=-L*(SQR(5)+3)/4
LET I=I+1
NEXT TH
FILE GETSAVENAME F$,"dxfファイル|*.dxf"
IF F$="" THEN STOP
IF POS(UCASE$(F$),".DXF")=0 THEN LET F$=F$ & ".dxf"
OPEN #1:NAME F$
ERASE #1
PRINT #1:"0"
PRINT #1:"SECTION"
PRINT #1:"2"
PRINT #1:"ENTITIES"
FOR I=1 TO 36
READ A,B,C
PRINT #1:"0"
PRINT #1:"3DFACE"
PRINT #1:"8"
PRINT #1:"LAYER1"
PRINT #1:"62"
PRINT #1:"1"
PRINT #1:"10"
PRINT #1:X(A)
PRINT #1:"20"
PRINT #1:Y(A)
PRINT #1:"30"
PRINT #1:Z(A)
PRINT #1:"11"
PRINT #1:X(B)
PRINT #1:"21"
PRINT #1:Y(B)
PRINT #1:"31"
PRINT #1:Z(B)
PRINT #1:"12"
PRINT #1:X(C)
PRINT #1:"22"
PRINT #1:Y(C)
PRINT #1:"32"
PRINT #1:Z(C)
NEXT I
PRINT #1:"0"
PRINT #1:"ENDSEC"
PRINT #1:"0"
PRINT #1:"EOF"
CLOSE #1
DATA 0,1,2
DATA 0,2,3
DATA 0,3,4
DATA 5,10,6
DATA 5,6,1
DATA 5,1,0
DATA 6,11,7
DATA 6,7,2
DATA 6,2,1
DATA 7,12,8
DATA 7,8,3
DATA 7,3,2
DATA 8,13,9
DATA 8,9,4
DATA 8,4,3
DATA 9,14,5
DATA 9,5,0
DATA 9,0,4
DATA 15,16,11
DATA 15,11,6
DATA 15,6,10
DATA 16,17,12
DATA 16,12,7
DATA 16,7,11
DATA 17,18,13
DATA 17,13,8
DATA 17,8,12
DATA 18,19,14
DATA 18,14,9
DATA 18,9,13
DATA 19,15,10
DATA 19,10,5
DATA 19,5,14
DATA 19,18,17
DATA 19,17,16
DATA 19,16,15
END
|
|