12.2 例題プログラム CONTRAST.BAS の解説

  目次へ戻る

10 PRINT "GEOMAP Demonstration Program"
20 PRINT "--- Hatching Lines are drawn after Contrast ---"
30 PRINT "--- Light Source is defined by POS ---"
40 PRINT "--- Hidden line Image by Map Specification ---"
50 CMINIT
60 PRCYLN "A", 30, , 10., 20., 1
70 CPOS(1)=60. : CPOS(2)=60. : CPOS(3)=20.
80 TH=0.6
90 DPCAM CPOS,TH
100 POS(1)=30
110 HLIGHT "A",POS,,16
120 HMIMAG "A","AIMAG"
130 CLS : HDISP "AIMAG"
140 HATCHC "AIMAG",0.5,30.
150 END

目次へ戻る