1 REM Ins{nd av Allan Lindblom <5879> 1985-12-19 03.35.54 STEREO.INF ver. 1.2 STEREOSKOPISK DELNING Avsett f|r ABC80 med 80 teckens sk{rm. N% p} rad 360 b|r s{ttas till ca 23 f|r att n}gra figurer ska ritas upp. STEREO {r ett program f|r att visa plottningstekniken med kartpar, som ska ge en stereoskopisk effekt. De b{gge figu- rerna vrids n}got till h|ger resp. till v{nster f|r att simulera en tredimensionell form. Den grafiska uppl|sningen p} ABC80 g|r dock inte programmet full r{ttvisa. Facetterna i trianguleringen p} rad 430 till 900 ger en plan rekonstruktion av ytan. Horisontell uppdelning ger kon- turer eller isolinjer f|r lika h|jd. Detta sker p} rad 990 till 1180, R anger h|jden f|r varje uppdelning. Vilken rota- tion som helst kan utf|ras, men endast en rotation beh|vs f|r att }stadkomma ett stereogram. Detta utf|rs p} rad 1370 till 1480. Resultatet plottas i ett par subrutiner (rad 1630-1680 resp. 1690-1740) och ger ett korsande sterogram, f|r ett parallellt d:o skifta endast h|ger och v{nsterrutinerna. P} rad 380 till 420 l{ggs de data in som du vill behandla. Data m}ste skalas till att ligga mellan 0 och 1. I rad 100 {r en funktion inlagd f|r att ge maximielementet av tre olika variabler. Motsvarande f|r att ge minimielemen- tet finns p} rad 110. Programmet kan varieras och utvidgas p} ett flertal olika s{tt: Det {r dimensionerat f|r 50 datapunkter, om du beh|ver fler punkter s} {ndra enligt: Om antal data = N (rad 360), s} dimensionera f|r N+3 i A1(,), 2N+1 i A2%(,), A3(,) och B1%(). De f|rsta tre talpa- ren i A1(,) {r reserverade f|r initialisering. Avpassa ocks} loopen p} rad 330-350. Om du |nkar anv{nda s{rskilda konturer kan dessa l{ggas i t.ex. B3(), v{rdet R p} rad 1060 tas d} fr}n denna vektor. Vektor B9() inneh}ller: f|rsta och andra vinkel kontrollerar orienteringen av kul- larnas skuggning. V{rde ett till fyra kontrollerar ocks} "{ggkartong"-orienteringen (vertikal uppdelning i tv} rikt- ningar). V{rde fem till sex kontrollerar vyvinkeln och v{rde sju ger stereovinkeln. Det }ttonde v{rdet anger delningarnas tjocklek, det nionde v{rdet den vertikala f|rstoringen och det tionde orsakar att en andra delning utf|rs. Vinklarna anges i grader, rad 290 till 320 konverterar dessa till radianer. F|r att uppdela i ett annat plan roteras f|rst matrisen, rad 920 till 980, och uppdelas sedan som vanligt. Matrisen }terst{lls sedan i rad 1210 till 1260. [ndra t.ex. rad 190 till: 190 DATA 15,-15,0,0,15,-15,6,.02,6,0 och ta sedan bort bort rad 910 och 1190. F|r att f} "{ggkartong"-utseende {ndras rad 190 till: 190 DATA 90,0,0,90,15,-15,6,.03,4,2 vilket orsakar att delningsloopen genomg}s tv} g}nger. Ytan, som den {r rekonstruerad h{r, kan integreras genom att kalkylera volymen under den. Det utf|rs genom att ber{k- na ytan f|r varje triangel och multiplicera med medelv{rdet f|r de tre h|jderna. Arean f|r en triangel kan uttryckas som ((x1-x2)(y1-y3)-(x1-x3)(y1-y2))/2. Allan Lindblom 851218 <5879>