home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1985 / 11 / eldorado.dat next >
Text File  |  1985-02-18  |  1KB  |  26 lines

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