図I.1 PUZZLE
10 PRINT "GEOMAP Demonstration Program"
20 PRINT "--- Synthesized Model; PUZZLE ---"
60 CMINIT
70 PRCYLN "A",6,,2.,20.
80 COPY "A","B","C"
90 DIR(1)= 3.0 : DIR(2)= 1.732 : PGDIS "A",,DIR
100 DIR(1)=-3.0 : PGDIS "B",,DIR
110 DIR(1)= 0.0 : DIR(2)=-3.464 : PGDIS "C",,DIR
120 PUNI "A","B","C"
130 AXIS(2,2)=1.0
140 PGROTA "A",,54.73,AXIS
150 COPY "A","A2","A3","A4"
160 AXIS(2,2)=0.0 : AXIS(3,2)=1.0
170 PGROTA "A2",, 90.,AXIS
180 PGROTA "A3",,180.,AXIS
190 PGROTA "A4",,270.,AXIS
200 PUNI "A","A2","A3","A4"
210 CPOS(1)=30 : CPOS(2)=30 : CPOS(3)=20
220 TH=0.8
230 DPCAM CPOS,TH
240 HEDISP "A"
250 HLIMAG "A","AIMAG"
260 CLS : HDISP "AIMAG"
270 END
次のページ