10 CLS: REM save "HIDDEN.TXT"
20 PRINT "GEOMAP Demonstration Program"
30 PRINT "--- Hidden Lines Elimination ---"
40 PRINT "Part 1: Polygonal Cylindrical Body"
50 DIM APOS[2,7] : READ APOS
60 DATA -30 30 -20 30 -20 20 -10 20 -10 30 0 30 20 0
70 CAM[1]=400 : CAM[2]=10 : CAM[3]=-80 : TH=0.2
80 DPCAM CAM,TH
90 CMINIT
100 NP=7 : ANG=360 : MREV=12
110 PREVL "A", APOS[1,1], NP, MREV, ANG
120 CLG : HEDISP "A"
130 PRINT "=== DISPLAY EDGES AS A WIRE STRUCTURE === HEDISP"
140 PAUSE
150 CLG: IDASH=0 : HFDISP "A", 0, IDASH
160 PRINT "=== FAST HIDDEN LINES ELIMATION === HFDISP"
170 PAUSE
180 CLG : IDASH=3 : HFDISP "A", 0, IDASH
190 PRINT "--- HIDDEN LINES BY DASHED LINES ---"
200 PAUSE
210 CLG : HLDISP "A"
220 PRINT "=== COMPLETE HIDDEN LINES ELIMINATION === HLDISP"
230 PAUSE
240 CLG : HMIMAG "A" : HDISP "A"
250 PRINT "=== TRANSFORM INTO IMAP IMAGE === HMIMAG+HDISP "
260 PAUSE
270 PRINT "Part 2: Rounded Revolutional Body"
280 CMINIT
290 NP=7 : ANG=360 : MREV=12 : ICURV=1
300 PREVL "A", APOS[1,1], NP, MREV, ANG, ICURV
310 CLG : IDASH=0 : HFDISP "A", 0, IDASH
320 PRINT "=== FAST HIDDEN LINES ELIMATION === HFDISP"
330 PAUSE
340 CLG : IDASH=3 : HFDISP "A", 0, IDASH
350 PRINT "--- HIDDEN LINES BY DASHED LINES ---"
360 PAUSE
370 CLG : HLDISP "A", 0, 3
380 PRINT "=== COMPLETE HIDDEN LINES ELIMINATION === HLDISP"
390 PAUSE
400 CLG : HMIMAG "A" : HDISP "A"
410 PRINT "=== TRANSFORM INTO IMAP IMAGE === HMIMAG+HDISP "
420 PRINT "end"
2009.3 橋梁＆都市PROJECT |