home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pcmagazi
/
1985
/
11
/
eldorado.dat
next >
Wrap
Text File
|
1985-02-18
|
1KB
|
26 lines
1000 '=====Eldorado Peak================== get data for lines
1010 READ NLINES,XMAX
1020 DATA 4,25
1030 NLINES=(NLINES*2)-1 'leave room for interpolations
1040 FOR I=1 TO NLINES STEP 2:READ MP(I):NEXT '# data points for each line
1050 DATA 9,8,6,6
1060 FOR K=1 TO NLINES STEP 2:FOR I=1 TO MP(K):READ H(K,I)
1070 H(K,I)=(H(K,I)-8000)/25 'scaling
1080 NEXT :NEXT
1090 YMAX=(15000 -8000) /25
1100 ' Heights for each line, starting at farthest from view
1110 DATA 12400,12900,12300,12350,11400,11700,12325,11200,10400
1120 DATA 12000,13200,13220,12000,11200,10300,10800,10000
1130 DATA 11600,12200,10800,10000,9600,9200
1140 DATA 12100,10800,11200,10400,9400,9200
1150 'horizontal distances across each line
1160 FOR K=1 TO NLINES STEP 2:FOR I=1 TO MP(K):READ P(K,I):NEXT :NEXT
1170 DATA 7,8,10,13,15,18,20,22,25
1180 DATA 1,3,5,7,10,15,20,25
1190 DATA 1,5,10,15,20,25, 1,5,10,15,20,25
1200 CLS:INPUT "Roughness (2-10)";RUFFNESS
1210 PRINT "tolerance (min"; 2* NLINES/100;")";:INPUT ;TOLERANCE
1220 YINC=60/NLINES
1230 XINC=100/NLINES 'scaling factors for transforms
1240 RETURN