I.4 GEOMAPの例題1

前のページ; 次のページ

図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 

次のページ