Water Waves

[SierraKen]

At first I sped it up a lot faster but the flashing was getting to me, so I slowed it down a lot.
What do you all think of this? I thought about drawing the picture from the left to right instead but that would be redoing most of it and possibly beyond me.
Feel free to do what you wish with it as always.

Code: QB64: [Select]

1. _TITLE "Water by Ken G."
2. SCREEN _NEWIMAGE(800, 600, 32)
3. xx = -40
4. si = 40
5. bl = 50
6. bl2 = 5
7. DO
8.     _LIMIT 200
9.     yy = yy + 5
10.     IF yy > 600 THEN yy = 5
11.     DO
12.         IF xx > 800 THEN GOTO again2:
13.         tt = tt + 1
14.         xx = xx + (si * 2)
15.         bl = bl + bl2
16.         IF bl > 255 THEN bl2 = -1: bl = bl + bl2
17.         IF bl < 50 THEN bl2 = 1: bl = bl + bl2
18.         IF tt = 1 THEN
19.             FOR sz = 1 TO 15 STEP .25
20.                 CIRCLE (xx, yy), si + sz, _RGB32(6, 28, bl), _PI, 0
21.             NEXT sz
22.         END IF
23.         IF tt = 2 THEN
24.             FOR sz = 1 TO 15 STEP .25
25.                 CIRCLE (xx, yy), si - sz, _RGB32(6, 28, bl), 0, _PI
26.             NEXT sz
27.             tt = 0
28.         END IF
29.     LOOP
30.     again2:
31.     RANDOMIZE TIMER
32.     si2 = INT(RND * 100) + 1
33.     IF si2 > 90 THEN si = si + 1
34.     IF si > 100 THEN si = 100
35.     IF si2 <= 10 THEN si = si - 1
36.     IF si < 15 THEN si = 15
37.     xx = -40
38.     _DISPLAY
39. LOOP
40.  

[bplus]

Doesn't look that much like waves but I sure like watching it like waves.

The word "surreal" comes to mind again.

[SierraKen]

Thanks bplus. Yeah you have to watch it a bit to see wave patterns. It's random sizes of waves. Doesn't look too much like water but waves are waves. :)

[Petr]

That's an interesting job, SierraKen. I'll try to write you a method of fraud - you will get fluency through fraud. Because I noticed that you like to use SaveImage, I will show you practical use. In a simple way, you can create a Sprite image (phased motion), which is then extremely fast and very little intensive to CPU, but very intensive to RAM.

Code: QB64: [Select]

1. _TITLE "Water by Ken G."
2. Ken = _NEWIMAGE(800, 600, 32)
3. DIM frames(30) AS LONG
4.  
5. xx = -40
6. si = 40
7. bl = 50
8. bl2 = 5
9. Actual = _DEST
10.  
11. FOR CreateFrame = 0 TO 30
12.     _DEST Actual
13.     LOCATE 1, 1: PRINT "Wait, generating frames...[" + LTRIM$(STR$(CreateFrame)) + LTRIM$("/30]")
14.  
15.     _DEST Ken '                                  as you see, in previous rows is none SCREEN statement. All graphic is now created to virtual screen "Ken" in memory
16.     FOR yy = 0 TO 600 STEP 5
17.         DO
18.             IF xx > 800 THEN EXIT DO
19.             tt = tt + 1
20.             xx = xx + (si * 2)
21.             bl = bl + bl2
22.             IF bl > 255 THEN bl2 = -1: bl = bl + bl2
23.             IF bl < 50 THEN bl2 = 1: bl = bl + bl2
24.             IF tt = 1 THEN
25.                 FOR sz = 1 TO 15 STEP .25
26.                     CIRCLE (xx, yy), si + sz, _RGB32(6, 28, bl), _PI, 0
27.                 NEXT sz
28.             END IF
29.             IF tt = 2 THEN
30.                 FOR sz = 1 TO 15 STEP .25
31.                     CIRCLE (xx, yy), si - sz, _RGB32(6, 28, bl), 0, _PI
32.                 NEXT sz
33.                 tt = 0
34.             END IF
35.         LOOP
36.  
37.         RANDOMIZE TIMER
38.         si2 = INT(RND * 100) + 1
39.         IF si2 > 90 THEN si = si + 1
40.         IF si > 100 THEN si = 100
41.         IF si2 <= 10 THEN si = si - 1
42.         IF si < 15 THEN si = 15
43.         xx = -40
44.     NEXT yy
45.     frames(framecount) = _COPYIMAGE(Ken, 32) 'after is one screen (also one frame) done, is copyed as image to array Frames
46.     framecount = framecount + 1
47. NEXT
48.  
49. SCREEN Ken
50. CLS
51. DO UNTIL _KEYHIT = 27
52.     FOR show = 0 TO 30
53.         _PUTIMAGE , frames(show) '       now is it all played as small video sequence, vhich contains 30 frames. Its very fast, but also memory intensive. Of course, you can save all this frame as BMP - as sprite image!
54.         _LIMIT 15
55.     NEXT
56. LOOP
57.  
58. CLS
59. SCREEN 0
60. INPUT "Save this 30 frames as 1 bitmap file? [1=YES, 0=No]"; answer
61.  
62. 'let set one movie image size as image size 200 x 150 (is the same ratio as 800 x 600), x4
63. IF answer THEN 'this condition is true if answer <> 0
64.     bitmap = _NEWIMAGE(31 * 200, 150, 32)
65.     FOR allFrames = 0 TO 30
66.         _PUTIMAGE (xposition, 1)-(xposition + 200, 150), frames(allFrames), bitmap
67.         xposition = xposition + 200
68.     NEXT
69.  
70.     SCREEN bitmap
71.  
72.     SaveImage bitmap, "SierraKen-Sprite.bmp"
73. END IF
74.  
75.  
76. SCREEN Ken
77. CLS
78. _FREEIMAGE bitmap
79. INPUT "Show, how use created bitmap file? [1=YES, 0=No]"; answer2
80. 'Because frames are saved to file in 4x lower resolution, is "video" in 4x lower quality
81. IF answer2 THEN
82.     xposition = 0
83.     source_image = _LOADIMAGE("SierraKen-Sprite.bmp", 32)
84.     DIM toframes(30) AS LONG
85.     FOR l = 0 TO 30
86.         toframes(l) = _NEWIMAGE(200, 150, 32)
87.         _PUTIMAGE (0, 0), source_image, toframes(l), (xposition, 1)-(xposition + 200, 150)
88.         xposition = xposition + 200
89.     NEXT l
90.  
91.     DO UNTIL _KEYHIT = 27
92.         FOR show = 0 TO 30
93.             _PUTIMAGE , toframes(show)
94.             _LIMIT 15
95.         NEXT
96.     LOOP
97. ELSE END
98. END IF
99.  
100. 'before quit erase all created images from RAM
101. SCREEN 0 'switch to basic screen, so is possbile deleting all graphic screens
102. FOR e = 1 TO 30
103.     _FREEIMAGE toframes(e)
104.     _FREEIMAGE frames(e)
105. NEXT e
106. _FREEIMAGE Ken
107. ERASE frames
108. ERASE toframes
109. SYSTEM
110.  
111. SUB SaveImage (image AS LONG, filename AS STRING)
112.     bytesperpixel& = _PIXELSIZE(image&)
113.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
114.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
115.     x& = _WIDTH(image&)
116.     y& = _HEIGHT(image&)
117.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
118.     IF bytesperpixel& = 1 THEN
119.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
120.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
121.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
122.         NEXT
123.     END IF
124.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
125.     lastsource& = _SOURCE
126.     _SOURCE image&
127.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
128.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
129.         r$ = ""
130.         FOR px& = 0 TO x& - 1
131.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
132.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
133.         NEXT px&
134.         d$ = d$ + r$ + padder$
135.     NEXT py&
136.     _SOURCE lastsource&
137.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
138.     b$ = b$ + d$ ' total file data bytes to create file
139.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
140.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
141.     f& = FREEFILE
142.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
143.     OPEN filename$ + ext$ FOR BINARY AS #f&
144.     PUT #f&, , b$
145.     CLOSE #f&
146. END SUB
147.  

[johnno56]

I like 'both' versions... and besides... I didn't have to ask, "Does it come in blue?"

Nicely done guys!!

[SierraKen]

Thanks Johno!

Petr that's just incredible! I will have to learn more on how to use .bmp's as videos like that. Thank you! I don't really have a need for it right now but I will hopefully look into it more soon. :)

[SMcNeill]

Water waves!

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. DIM k(8) AS _UNSIGNED LONG
3. _FONT 8
4. text$ = "WATER"
5. FOR k = 0 TO 8
6.     k(k) = _RGB32(k * 8, k * 8, 128 + 128 / 8 * k)
7. NEXT
8.  
9. i = 802
10. DO
11.     i = (i - 8)
12.     IF i < -80 THEN i = 800
13.     FOR m = 0 TO 640 STEP 80
14.         COLOR k(m \ 80)
15.         FOR j = -600 TO 600 STEP 50
16.             _PRINTSTRING (i + m, SIN(_D2R(i)) * 300 + 300 + j), text$
17.         NEXT
18.     NEXT
19.     _LIMIT 60
20. LOOP

[SierraKen]

That's totally awesome Steve! I just changed it a little bit by removing the text and adding CIRCLE and PAINT. :) I still have to study your variables though. Thanks!

Code: QB64: [Select]

1. 'By SMcNeil and Ken G.
2. SCREEN _NEWIMAGE(800, 600, 32)
3. DIM k(8) AS _UNSIGNED LONG
4. '_FONT 8
5. 'text$ = "WATER"
6. FOR k = 0 TO 8
7.     k(k) = _RGB32(k * 8, k * 8, 128 + 128 / 8 * k)
8. NEXT
9.  
10. i = 802
11. DO
12.     i = (i - 8)
13.     IF i < -80 THEN i = 800
14.     FOR m = 0 TO 640 STEP 80
15.         COLOR k(m \ 80)
16.         FOR j = -600 TO 600 STEP 50
17.             '_PRINTSTRING (i + m, SIN(_D2R(i)) * 300 + 300 + j), text$
18.             RANDOMIZE TIMER
19.             sz = (RND * 30) + 5
20.             CIRCLE (i + m, SIN(_D2R(i)) * 300 + 300 + j), sz
21.             PAINT (i + m, SIN(_D2R(i)) * 300 + 300 + j), k(m \ 80)
22.         NEXT
23.     NEXT
24.     _LIMIT 60
25. LOOP
26.  

[SierraKen]

Here's a different kind. Instead of circles and paint, I just used PSET and adjusted the STEPs on both loops and the LIMIT and we get "Water Waves - Digital Version".

Code: QB64: [Select]

1. 'Water Waves - Digital Version
2. 'By SMcNeil and Ken G.
3. SCREEN _NEWIMAGE(800, 600, 32)
4. DIM k(8) AS _UNSIGNED LONG
5. FOR k = 0 TO 8
6.     k(k) = _RGB32(k * 8, k * 8, 128 + 128 / 8 * k)
7. NEXT
8.  
9. i = 802
10. DO
11.     i = (i - 8)
12.     IF i < -80 THEN i = 800
13.     FOR m = 0 TO 640 STEP 5
14.         COLOR k(m \ 80)
15.         FOR j = -600 TO 600 STEP 5
16.             RANDOMIZE TIMER
17.             PSET (i + m, SIN(_D2R(i)) * 300 + 300 + j)
18.         NEXT
19.     NEXT
20.     _LIMIT 100
21. LOOP
22.  

[STxAxTIC]

@SMcNeill

Water waves... waves literally made of the word "Water"... slow clap.

I never thought that 10 pounds of dad joke could be crammed in an ounce of qb64 code, but Steve surprises us regularly.

I love this place....

[SMcNeill]

That's totally awesome Steve! I just changed it a little bit by removing the text and adding CIRCLE and PAINT. :) I still have to study your variables though. Thanks!

It’s basically nothing more than plotting the SIN curve, but with a few offsets to move it horizontally and vertically a bit to fill the whole screen.  ;)

[Petr]

And my version :)

Code: QB64: [Select]

1. DEFSNG A-Z
2. SCREEN _NEWIMAGE(800, 600, 256)
3.  
4. 'set colors 128 to 255 as blue
5.  
6. DIM c(127) AS _UNSIGNED LONG
7. DIM S(18) AS INTEGER
8.  
9.  
10.  
11. FOR c = 128 TO 255
12.     _PALETTECOLOR c, _RGB32(0, 0, c)
13.     c(i) = _RGB32(0, 0, c)
14.     i = i + 1
15. NEXT
16.  
17.  
18. FOR fs = 0 TO 18
19.     S(fs) = 1 + 30 * RND
20. NEXT
21.  
22. CLS
23. w = 0
24.  
25. DO
26.     y = -64
27.     DO UNTIL y = 608
28.         IF si > 18 THEN si = 9
29.         IF S(si) >= 30 THEN mS = -1
30.         IF S(si) <= 15 THEN mS = 1
31.         S(si) = S(si) + mS
32.         t = y + 127
33.         DO UNTIL t = y
34.             w = w2
35.             IF y MOD 128 = 0 THEN w = -w2
36.             x = 0
37.             DO UNTIL x >= 800
38.                 COLOR 128 + t - y
39.                 LINE (x - 5, t + y + SIN(w - .1) * S(si))-(x, t + y + SIN(w) * S(si))
40.                 w = w + .1
41.                 x = x + 5
42.             LOOP
43.             w2 = w2 + .001
44.             t = t - 1
45.         LOOP
46.         si = si + 1
47.         y = y + 32
48.     LOOP
49.     r = r + 1
50.     psh:
51.  
52.     IF r MOD 10 = 0 THEN
53.         r = 0
54.         sp = 128
55.         DO UNTIL sp = 255
56.             IF pal > 127 THEN pal = 0
57.             _PALETTECOLOR sp, c(pal), 0
58.             pal = pal + 1
59.             sp = sp + 1
60.         LOOP
61.     END IF
62.     okr = okr + 1
63.     IF okr > 128 THEN okr = 0
64.     pal = okr
65.     _LIMIT 20
66.     _DISPLAY
67. LOOP
68.  

[STxAxTIC]

Some ancient QB45 code of mine - just pretend the colors are all blue and you've got your waves (pretty sure I skipped posting this on July 4th)

Code: QB64: [Select]

1. '#lang "qb" '...for freebasic compiler. Keep disabled for QB64.
2.  
3. ' *** Video settings. ***
4.  
5. screenwidth = 640
6. screenheight = 480
7. SCREEN 12
8.  
9. ' *** Performance settings. ***
10.  
11. bignumber = 500000 ' Maximum objects per array (determined by memory).
12. globaldelayinit = 1000 ' Loop damping factor (fine adjustment below).
13. RANDOMIZE TIMER
14.  
15. ' *** Initialize counters and array sizes. ***
16.  
17. numparticleorig = bignumber
18. numparticlevisible = bignumber
19.  
20. ' *** Define basis arrays and structures. ***
21.  
22. ' Screen vectors in three-space.
23. ' These vectors define the camera angle.
24. DIM uhat(1 TO 3), vhat(1 TO 3), nhat(1 TO 3)
25.  
26. ' Basis vectors defined in three-space.
27. DIM xhat(1 TO 4), yhat(1 TO 4), zhat(1 TO 4)
28. xhat(1) = 1: xhat(2) = 0: xhat(3) = 0: xhat(4) = 4
29. yhat(1) = 0: yhat(2) = 1: yhat(3) = 0: yhat(4) = 2
30. zhat(1) = 0: zhat(2) = 0: zhat(3) = 1: zhat(4) = 1
31.  
32. ' Basis vectors projected into uv two-space.
33. DIM xhatp(1 TO 2), yhatp(1 TO 2), zhatp(1 TO 2)
34. DIM xhatp.old(1 TO 2), yhatp.old(1 TO 2), zhatp.old(1 TO 2)
35.  
36. ' *** Define particle arrays and structures. ***
37.  
38. ' Particle vectors defined in three-space.
39. DIM vec(numparticleorig, 4)
40. DIM vecdotnhat(numparticleorig)
41. DIM vecdotnhatunit.old(numparticleorig)
42. DIM vecvisible(numparticlevisible, 4)
43. DIM vecvisibledotnhat(numparticlevisible)
44. DIM vecvisibledotnhatunit.old(numparticlevisible)
45.  
46. ' Particle vectors projected onto infinite uv two-space.
47. DIM vecpuv(numparticleorig, 1 TO 2)
48. DIM vecpuv.old(numparticleorig, 1 TO 2)
49. DIM vecvisiblepuv(numparticlevisible, 1 TO 2)
50. DIM vecvisiblepuv.old(numparticlevisible, 1 TO 2)
51.  
52. ' Particle projections adjusted for screen uv two-space.
53. DIM vecpuvs(numparticleorig, 1 TO 2)
54. DIM vecpuvs.old(numparticleorig, 1 TO 2)
55. DIM vecvisiblepuvs(numparticlevisible, 1 TO 2)
56. DIM vecvisiblepuvs.old(numparticlevisible, 1 TO 2)
57.  
58. ' *** Define specialized arrays and structures. ***
59.  
60. ' Arrays for tech 2 mesh plotting.
61. DIM plotflag(numparticleorig)
62. DIM plotflag.old(numparticleorig)
63.  
64. ' *** Set mathematical constants. ***
65.  
66. pi = 3.1415926536
67. ee = 2.7182818285
68.  
69. mainstart:
70.  
71. ' *** Initialize user input variables. ***
72. key$ = ""
73. 'mousekey$ = ""
74.  
75. ' *** Process first user input. ***
76.  
77. a$ = "13"
78.  
79. SELECT CASE a$
80.     CASE "13": genscheme$ = "wave2d": plotmode$ = "simplemesh"
81. END SELECT
82.  
83. substart:
84.  
85. ' *** Zero counters and array sizes. ***
86.  
87. numparticleorig = 0
88. numparticlevisible = 0
89.  
90. ' *** Constants and switch control. ***
91.  
92. ' Perspective and animation switches/defaults.
93. centerx = screenwidth / 2
94. centery = screenheight / 2
95. speedconst = 50
96. falsedepth = .01
97. zoom = 30
98. timevar = 0
99. T = 0
100. togglehud = 1
101. toggleatomnumbers = -1
102. toggletimeanimate = -1
103. toggletimealert = 0
104. camx = 0
105. camy = 0
106. camz = 0
107. uhat(1) = -3: uhat(2) = 5: uhat(3) = 1 / 4
108. vhat(1) = -1: vhat(2) = -1: vhat(3) = 8
109.  
110. CLS
111.  
112. SELECT CASE LCASE$(genscheme$)
113.     CASE "wave2d":
114.         globaldelay = globaldelayinit * 1500
115.         uhat(1) = .7802773: uhat(2) = -.4759201: uhat(3) = .4058135
116.         vhat(1) = .2502121: vhat(2) = .8321912: vhat(3) = .4948249
117.         togglehud = 1
118.         toggletimealert = 1
119.         GOSUB genscheme.wave2d.init
120.         numparticleorig = pcountparticleorig
121.         REDIM vec2dz(xrange, yrange)
122.         REDIM vec2dztemp(xrange, yrange)
123.         REDIM vec2dzprev(xrange, yrange)
124.         GOSUB genschemeUSAcolors
125.         GOSUB genscheme.wave2d.gridinit
126. END SELECT
127.  
128. ' Move objects to accomodate initial camera position.
129. IF camx <> 0 AND camy <> 0 AND camz <> 0 THEN
130.     FOR i = 1 TO numparticleorig
131.         vec(i, 1) = vec(i, 1) + camx
132.         vec(i, 2) = vec(i, 2) + camy
133.         vec(i, 3) = vec(i, 3) + camz
134.     NEXT
135. END IF
136.  
137. GOSUB redraw
138.  
139. ' *** Begin main loop. ***
140. DO
141.     IF toggletimeanimate = 1 THEN
142.         GOSUB timeanimate
143.         flagredraw = 1
144.     END IF
145.     IF flagredraw = 1 THEN
146.         GOSUB redraw
147.         flagredraw = -1
148.     END IF
149.     GOSUB keyprocess
150.     IF toggletimeanimate = 1 THEN
151.         FOR delaycount = 1 TO globaldelay: NEXT
152.     END IF
153. LOOP
154. ' *** End main loop. ***
155.  
156. ' *** Begin function definitions. ***
157.  
158. ' Comment out the conents of this gosub for non-QB64 compiler.
159. mouseprocess:
160. RETURN
161.  
162. keyprocess:
163. key$ = INKEY$
164. IF key$ <> "" THEN
165.     flagredraw = 1
166. END IF
167. SELECT CASE LCASE$(key$)
168.     CASE "8":
169.         GOSUB rotate.vhat.plus
170.     CASE "2":
171.         GOSUB rotate.vhat.minus
172.     CASE "4":
173.         GOSUB rotate.uhat.minus
174.     CASE "6":
175.         GOSUB rotate.uhat.plus
176.     CASE "7":
177.         GOSUB rotate.clockwise
178.     CASE "9":
179.         GOSUB rotate.counterclockwise
180.     CASE "1":
181.         GOSUB rotate.uhat.minus: GOSUB normalize.screen.vectors: GOSUB rotate.clockwise
182.     CASE "3":
183.         GOSUB rotate.uhat.plus: GOSUB normalize.screen.vectors: GOSUB rotate.counterclockwise
184.     CASE "q"
185.         GOSUB strafe.objects.vhat.plus
186.         GOSUB strafe.camera.vhat.plus
187.     CASE "e"
188.         GOSUB strafe.objects.vhat.minus
189.         GOSUB strafe.camera.vhat.minus
190.     CASE "x"
191.         uhat(1) = 0: uhat(2) = 1: uhat(3) = 0
192.         vhat(1) = 0: vhat(2) = 0: vhat(3) = 1
193.     CASE "y"
194.         uhat(1) = 0: uhat(2) = 0: uhat(3) = 1
195.         vhat(1) = 1: vhat(2) = 0: vhat(3) = 0
196.     CASE "z"
197.         uhat(1) = 1: uhat(2) = 0: uhat(3) = 0
198.         vhat(1) = 0: vhat(2) = 1: vhat(3) = 0
199.     CASE "t"
200.         toggletimeanimate = -toggletimeanimate
201.     CASE "r"
202.         timevar = 0
203.     CASE "f"
204.         GOTO substart
205.     CASE "g"
206.         GOTO mainstart
207.     CASE "-"
208.         globaldelay = globaldelay * 1.1
209.     CASE "="
210.         globaldelay = globaldelay * 0.9
211.     CASE "`"
212.         globaldelayinit = globaldelay
213.     CASE " "
214.         togglehud = -togglehud
215.         CLS
216.     CASE CHR$(27)
217.         END
218. END SELECT
219. RETURN
220.  
221. convert:
222. ' Convert graphics from uv-cartesian coordinates to monitor coordinates.
223. x0 = x: y0 = y
224. x = x0 + centerx
225. y = -y0 + centery
226. RETURN
227.  
228. ' *** Define functions for view translation and rotation. ***
229.  
230. rotate.uhat.plus:
231. uhat(1) = nhat(1) + speedconst * uhat(1)
232. uhat(2) = nhat(2) + speedconst * uhat(2)
233. uhat(3) = nhat(3) + speedconst * uhat(3)
234. RETURN
235.  
236. rotate.uhat.minus:
237. uhat(1) = -nhat(1) + speedconst * uhat(1)
238. uhat(2) = -nhat(2) + speedconst * uhat(2)
239. uhat(3) = -nhat(3) + speedconst * uhat(3)
240. RETURN
241.  
242. rotate.vhat.plus:
243. vhat(1) = nhat(1) + speedconst * vhat(1)
244. vhat(2) = nhat(2) + speedconst * vhat(2)
245. vhat(3) = nhat(3) + speedconst * vhat(3)
246. RETURN
247.  
248. rotate.vhat.minus:
249. vhat(1) = -nhat(1) + speedconst * vhat(1)
250. vhat(2) = -nhat(2) + speedconst * vhat(2)
251. vhat(3) = -nhat(3) + speedconst * vhat(3)
252. RETURN
253.  
254. rotate.counterclockwise:
255. v1 = vhat(1)
256. v2 = vhat(2)
257. v3 = vhat(3)
258. vhat(1) = uhat(1) + speedconst * vhat(1)
259. vhat(2) = uhat(2) + speedconst * vhat(2)
260. vhat(3) = uhat(3) + speedconst * vhat(3)
261. uhat(1) = -v1 + speedconst * uhat(1)
262. uhat(2) = -v2 + speedconst * uhat(2)
263. uhat(3) = -v3 + speedconst * uhat(3)
264. RETURN
265.  
266. rotate.clockwise:
267. v1 = vhat(1)
268. v2 = vhat(2)
269. v3 = vhat(3)
270. vhat(1) = -uhat(1) + speedconst * vhat(1)
271. vhat(2) = -uhat(2) + speedconst * vhat(2)
272. vhat(3) = -uhat(3) + speedconst * vhat(3)
273. uhat(1) = v1 + speedconst * uhat(1)
274. uhat(2) = v2 + speedconst * uhat(2)
275. uhat(3) = v3 + speedconst * uhat(3)
276. RETURN
277. RETURN
278.  
279. strafe.objects.uhat.plus:
280. FOR i = 1 TO numparticleorig
281.     vec(i, 1) = vec(i, 1) + uhat(1) * 1 / zoom
282.     vec(i, 2) = vec(i, 2) + uhat(2) * 1 / zoom
283.     vec(i, 3) = vec(i, 3) + uhat(3) * 1 / zoom
284. NEXT
285. RETURN
286.  
287. strafe.objects.uhat.minus:
288. FOR i = 1 TO numparticleorig
289.     vec(i, 1) = vec(i, 1) - uhat(1) * 1 / zoom
290.     vec(i, 2) = vec(i, 2) - uhat(2) * 1 / zoom
291.     vec(i, 3) = vec(i, 3) - uhat(3) * 1 / zoom
292. NEXT
293. RETURN
294.  
295. strafe.objects.vhat.plus:
296. FOR i = 1 TO numparticleorig
297.     vec(i, 1) = vec(i, 1) + vhat(1) * 1 / zoom
298.     vec(i, 2) = vec(i, 2) + vhat(2) * 1 / zoom
299.     vec(i, 3) = vec(i, 3) + vhat(3) * 1 / zoom
300. NEXT
301. RETURN
302.  
303. strafe.objects.vhat.minus:
304. FOR i = 1 TO numparticleorig
305.     vec(i, 1) = vec(i, 1) - vhat(1) * 1 / zoom
306.     vec(i, 2) = vec(i, 2) - vhat(2) * 1 / zoom
307.     vec(i, 3) = vec(i, 3) - vhat(3) * 1 / zoom
308. NEXT
309. RETURN
310.  
311. strafe.objects.nhat.plus:
312. FOR i = 1 TO numparticleorig
313.     vec(i, 1) = vec(i, 1) + nhat(1) * 1 / zoom
314.     vec(i, 2) = vec(i, 2) + nhat(2) * 1 / zoom
315.     vec(i, 3) = vec(i, 3) + nhat(3) * 1 / zoom
316. NEXT
317. RETURN
318.  
319. strafe.objects.nhat.minus:
320. FOR i = 1 TO numparticleorig
321.     vec(i, 1) = vec(i, 1) - nhat(1) * 1 / zoom
322.     vec(i, 2) = vec(i, 2) - nhat(2) * 1 / zoom
323.     vec(i, 3) = vec(i, 3) - nhat(3) * 1 / zoom
324. NEXT
325. RETURN
326.  
327. strafe.camera.uhat.plus:
328. camx = camx + uhat(1) * 1 / zoom
329. camy = camy + uhat(2) * 1 / zoom
330. camz = camz + uhat(3) * 1 / zoom
331. RETURN
332.  
333. strafe.camera.uhat.minus:
334. camx = camx - uhat(1) * 1 / zoom
335. camy = camy - uhat(2) * 1 / zoom
336. camz = camz - uhat(3) * 1 / zoom
337. RETURN
338.  
339. strafe.camera.vhat.plus:
340. camx = camx + vhat(1) * 1 / zoom
341. camy = camy + vhat(2) * 1 / zoom
342. camz = camz + vhat(3) * 1 / zoom
343. RETURN
344.  
345. strafe.camera.vhat.minus:
346. camx = camx - vhat(1) * 1 / zoom
347. camy = camy - vhat(2) * 1 / zoom
348. camz = camz - vhat(3) * 1 / zoom
349. RETURN
350.  
351. strafe.camera.nhat.plus:
352. camx = camx + nhat(1) * 1 / zoom
353. camy = camy + nhat(2) * 1 / zoom
354. camz = camz + nhat(3) * 1 / zoom
355. RETURN
356.  
357. strafe.camera.nhat.minus:
358. camx = camx - nhat(1) * 1 / zoom
359. camy = camy - nhat(2) * 1 / zoom
360. camz = camz - nhat(3) * 1 / zoom
361. RETURN
362.  
363. ' *** Define core functions. ***
364.  
365. timeanimate:
366. timevar = timevar + 1
367. IF timevar > 10 ^ 6 THEN timevar = 1
368. SELECT CASE genscheme$
369.     CASE "wave2d": GOSUB genscheme.wave2d.timeanimate
370. END SELECT
371. RETURN
372.  
373. normalize.screen.vectors:
374. 'normalize the two vectors that define the screen orientation
375. uhatmag = SQR(uhat(1) ^ 2 + uhat(2) ^ 2 + uhat(3) ^ 2)
376. uhat(1) = uhat(1) / uhatmag: uhat(2) = uhat(2) / uhatmag: uhat(3) = uhat(3) / uhatmag
377. vhatmag = SQR(vhat(1) ^ 2 + vhat(2) ^ 2 + vhat(3) ^ 2)
378. vhat(1) = vhat(1) / vhatmag: vhat(2) = vhat(2) / vhatmag: vhat(3) = vhat(3) / vhatmag
379. uhatdotvhat = uhat(1) * vhat(1) + uhat(2) * vhat(2) + uhat(3) * vhat(3)
380. IF SQR(uhatdotvhat ^ 2) > .0005 THEN
381.     CLS: COLOR 15: LOCATE 5, 5: PRINT "Screen vectors are not perpendicular. Press ESC to quit."
382.     'DO: LOOP UNTIL INKEY$ = CHR$(27): END
383. END IF
384. ' Compute the normal vector to the view plane.
385. ' The normal vector points toward the eye, away from view frustum.
386. nhat(1) = uhat(2) * vhat(3) - uhat(3) * vhat(2)
387. nhat(2) = uhat(3) * vhat(1) - uhat(1) * vhat(3)
388. nhat(3) = uhat(1) * vhat(2) - uhat(2) * vhat(1)
389. nhatmag = SQR(nhat(1) ^ 2 + nhat(2) ^ 2 + nhat(3) ^ 2)
390. nhat(1) = nhat(1) / nhatmag: nhat(2) = nhat(2) / nhatmag: nhat(3) = nhat(3) / nhatmag
391. RETURN
392.  
393. redraw:
394. GOSUB normalize.screen.vectors
395. ' Project the three-space basis vectors onto the screen plane.
396. xhatp(1) = xhat(1) * uhat(1) + xhat(2) * uhat(2) + xhat(3) * uhat(3)
397. xhatp(2) = xhat(1) * vhat(1) + xhat(2) * vhat(2) + xhat(3) * vhat(3)
398. yhatp(1) = yhat(1) * uhat(1) + yhat(2) * uhat(2) + yhat(3) * uhat(3)
399. yhatp(2) = yhat(1) * vhat(1) + yhat(2) * vhat(2) + yhat(3) * vhat(3)
400. zhatp(1) = zhat(1) * uhat(1) + zhat(2) * uhat(2) + zhat(3) * uhat(3)
401. zhatp(2) = zhat(1) * vhat(1) + zhat(2) * vhat(2) + zhat(3) * vhat(3)
402. IF numparticleorig > 0 THEN
403.     GOSUB compute.visible.particles
404.     GOSUB project.particles
405.     GOSUB depth.adjust.particles
406. END IF
407. GOSUB draw.all.objects
408. GOSUB store.screen.projections
409. RETURN
410.  
411. reverse.uvnhat:
412. uhat(1) = -uhat(1)
413. uhat(2) = -uhat(2)
414. uhat(3) = -uhat(3)
415. GOSUB normalize.screen.vectors
416. RETURN
417.  
418. compute.visible.particles:
419. numparticlevisible = 0
420. FOR i = 1 TO numparticleorig
421.     IF falsedepth = 0 THEN
422.     ELSE
423.         numparticlevisible = numparticlevisible + 1
424.         vecvisible(numparticlevisible, 1) = vec(i, 1)
425.         vecvisible(numparticlevisible, 2) = vec(i, 2)
426.         vecvisible(numparticlevisible, 3) = vec(i, 3)
427.         vecvisible(numparticlevisible, 4) = vec(i, 4)
428.     END IF
429. NEXT
430. RETURN
431.  
432. project.particles:
433. ' Project object vectors onto the screen plane.
434. FOR i = 1 TO numparticlevisible
435.     vecvisibledotnhat(i) = vecvisible(i, 1) * nhat(1) + vecvisible(i, 2) * nhat(2) + vecvisible(i, 3) * nhat(3)
436.     vecvisiblepuv(i, 1) = (vecvisible(i, 1) * uhat(1) + vecvisible(i, 2) * uhat(2) + vecvisible(i, 3) * uhat(3))
437.     vecvisiblepuv(i, 2) = (vecvisible(i, 1) * vhat(1) + vecvisible(i, 2) * vhat(2) + vecvisible(i, 3) * vhat(3))
438. NEXT
439. RETURN
440.  
441. depth.adjust.particles:
442. IF falsedepth = 0 THEN
443.     FOR i = 1 TO numparticlevisible
444.         vecvisiblepuvs(i, 1) = vecvisiblepuv(i, 1) * fovd / vecvisibledotnhat(i)
445.         vecvisiblepuvs(i, 2) = vecvisiblepuv(i, 2) * fovd / vecvisibledotnhat(i)
446.     NEXT
447. ELSE
448.     FOR i = 1 TO numparticlevisible
449.         vecvisiblepuvs(i, 1) = vecvisiblepuv(i, 1) * (1 + falsedepth * vecvisibledotnhat(i))
450.         vecvisiblepuvs(i, 2) = vecvisiblepuv(i, 2) * (1 + falsedepth * vecvisibledotnhat(i))
451.     NEXT
452. END IF
453. RETURN
454.  
455. draw.all.objects:
456. SELECT CASE plotmode$
457.     CASE "simplemesh": GOSUB plotmode.simplemesh
458. END SELECT
459. COLOR 7
460. LOCATE 28, 23: PRINT "SPACE = toggle HUD,  ESC = quit."
461. IF togglehud = 1 THEN
462.     ' Replace basis vector triad.
463.     x = 50 * xhatp.old(1): y = 50 * xhatp.old(2): GOSUB convert
464.     LINE (centerx, centery)-(x, y), 0
465.     x = 50 * yhatp.old(1): y = 50 * yhatp.old(2): GOSUB convert
466.     LINE (centerx, centery)-(x, y), 0
467.     x = 50 * zhatp.old(1): y = 50 * zhatp.old(2): GOSUB convert
468.     LINE (centerx, centery)-(x, y), 0
469.     x = 50 * xhatp(1): y = 50 * xhatp(2): GOSUB convert
470.     LINE (centerx, centery)-(x, y), xhat(4)
471.     x = 50 * yhatp(1): y = 50 * yhatp(2): GOSUB convert
472.     LINE (centerx, centery)-(x, y), yhat(4)
473.     x = 50 * zhatp(1): y = 50 * zhatp(2): GOSUB convert
474.     LINE (centerx, centery)-(x, y), zhat(4)
475.     COLOR 14
476.     LOCATE 25, 68: PRINT "-   VIEW   -"
477.     COLOR 15
478.     LOCATE 26, 68: PRINT "  8  "
479.     LOCATE 27, 68: PRINT "4   6"
480.     LOCATE 28, 68: PRINT "  2  "
481.     COLOR 7
482.     LOCATE 26, 75: PRINT "7   9"
483.     LOCATE 27, 75: PRINT "     "
484.     LOCATE 28, 75: PRINT "1   3"
485. END IF
486. IF toggletimealert = 1 THEN
487.     COLOR 7
488.     LOCATE 1, 25: PRINT "Press 'T' to toggle animation."
489.     LOCATE 2, 25: PRINT "Use numeric keypad to rotate."
490.     LOCATE 3, 25: PRINT "      Press G to reset."
491. END IF
492. RETURN
493.  
494. store.screen.projections:
495. xhatp.old(1) = xhatp(1): xhatp.old(2) = xhatp(2)
496. yhatp.old(1) = yhatp(1): yhatp.old(2) = yhatp(2)
497. zhatp.old(1) = zhatp(1): zhatp.old(2) = zhatp(2)
498. FOR i = 1 TO numparticlevisible
499.     vecvisiblepuvs.old(i, 1) = vecvisiblepuvs(i, 1)
500.     vecvisiblepuvs.old(i, 2) = vecvisiblepuvs(i, 2)
501. NEXT
502. numparticlevisible.old = numparticlevisible
503. RETURN
504.  
505. plotmode.simplemesh:
506. FOR i = 1 TO numparticlevisible - 1
507.     IF i MOD yrange <> 0 THEN 'point obeys normal neighbor-connect scheme
508.         ' Erase old graphics.
509.         x = zoom * vecvisiblepuvs.old(i, 1): y = zoom * vecvisiblepuvs.old(i, 2): GOSUB convert: x1 = x: y1 = y
510.         x = zoom * vecvisiblepuvs.old(i + 1, 1): y = zoom * vecvisiblepuvs.old(i + 1, 2): GOSUB convert: x2 = x: y2 = y
511.         x = zoom * vecvisiblepuvs.old(i + yrange, 1): y = zoom * vecvisiblepuvs.old(i + yrange, 2): GOSUB convert: x3 = x: y3 = y
512.         LINE (x1, y1)-(x2, y2), 0
513.         IF i < (numparticlevisible - yrange) THEN LINE (x1, y1)-(x3, y3), 0
514.         ' Draw new graphics.
515.         x = zoom * vecvisiblepuvs(i, 1): y = zoom * vecvisiblepuvs(i, 2): GOSUB convert: x1 = x: y1 = y
516.         x = zoom * vecvisiblepuvs(i + 1, 1): y = zoom * vecvisiblepuvs(i + 1, 2): GOSUB convert: x2 = x: y2 = y
517.         x = zoom * vecvisiblepuvs(i + yrange, 1): y = zoom * vecvisiblepuvs(i + yrange, 2): GOSUB convert: x3 = x: y3 = y
518.         LINE (x1, y1)-(x2, y2), vecvisible(i, 4)
519.         IF i < (numparticlevisible - yrange) THEN LINE (x1, y1)-(x3, y3), vecvisible(i, 4)
520.     ELSE 'point does not obey normal neighbor-connect scheme
521.         ' Erase old graphics.
522.         x = zoom * vecvisiblepuvs.old(i, 1): y = zoom * vecvisiblepuvs.old(i, 2): GOSUB convert: x1 = x: y1 = y
523.         x = zoom * vecvisiblepuvs.old(i + yrange, 1): y = zoom * vecvisiblepuvs.old(i + yrange, 2): GOSUB convert: x3 = x: y3 = y
524.         IF i < (numparticlevisible - yrange + 1) THEN LINE (x1, y1)-(x3, y3), 0
525.         ' Draw new graphics.
526.         x = zoom * vecvisiblepuvs(i, 1): y = zoom * vecvisiblepuvs(i, 2): GOSUB convert: x1 = x: y1 = y
527.         x = zoom * vecvisiblepuvs(i + yrange, 1): y = zoom * vecvisiblepuvs(i + yrange, 2): GOSUB convert: x3 = x: y3 = y
528.         IF i < (numparticlevisible - yrange + 1) THEN LINE (x1, y1)-(x3, y3), vecvisible(i, 4)
529.     END IF
530. NEXT
531. RETURN
532.  
533. genschemeUSAcolors:
534. 'delinearize
535. pcountparticleorig = 0
536. FOR i = 1 TO xrange
537.     FOR j = 1 TO yrange
538.         pcountparticleorig = pcountparticleorig + 1
539.         vec2dztemp(i, j) = vec(pcountparticleorig, 4)
540.     NEXT
541. NEXT
542. FOR i = 1 TO xrange
543.     FOR jj = 0 TO 12 STEP 2
544.         FOR j = jj * yrange / 13 + 1 TO (jj + 1) * yrange / 13
545.             vec2dztemp(i, j) = 4
546.         NEXT
547.     NEXT
548.     FOR jj = 1 TO 11 STEP 2
549.         FOR j = jj * yrange / 13 + 1 TO (jj + 1) * yrange / 13
550.             vec2dztemp(i, j) = 7
551.         NEXT
552.     NEXT
553. NEXT
554. starflag = -1
555. FOR i = 1 TO xrange * .76 / 1.9
556.     FOR j = yrange TO yrange * .5385 STEP -1
557.         IF starflag = 1 THEN
558.             vec2dztemp(i, j) = 15
559.         ELSE
560.             vec2dztemp(i, j) = 1
561.         END IF
562.         starflag = -starflag
563.     NEXT
564. NEXT
565. 'relinearize
566. pcountparticleorig = 0
567. FOR i = 1 TO xrange
568.     FOR j = 1 TO yrange
569.         pcountparticleorig = pcountparticleorig + 1
570.         vec(pcountparticleorig, 4) = vec2dztemp(i, j)
571.     NEXT
572. NEXT
573. RETURN
574.  
575. genscheme.wave2d.init:
576. xl = -1.9: xr = 1.9
577. yl = -1: yr = 1
578. xl = xl * 4: xr = xr * 4: yl = yl * 4: yr = yr * 4
579. Dx = .32
580. Dy = .32
581. xrange = 1 + INT((-xl + xr) / Dx)
582. yrange = 1 + INT((-yl + yr) / Dy)
583. alpha = .25
584. pcountparticleorig = 0
585. FOR i = xl TO xr STEP Dx
586.     FOR j = yl TO yr STEP Dy
587.         pcountparticleorig = pcountparticleorig + 1
588.         vec(pcountparticleorig, 1) = i
589.         vec(pcountparticleorig, 2) = j
590.         vec(pcountparticleorig, 3) = 0
591.         '*' vec(pcountparticleorig, 4) = 14 'use special color scheme
592.     NEXT
593. NEXT
594. RETURN
595.  
596. genscheme.wave2d.gridinit:
597. 'delinearize
598. pcountparticleorig = 0
599. FOR i = 1 TO xrange
600.     FOR j = 1 TO yrange
601.         pcountparticleorig = pcountparticleorig + 1
602.         vec2dztemp(i, j) = vec(pcountparticleorig, 3)
603.     NEXT
604. NEXT
605. 'initial position condition
606. 'FOR i = 1 TO xrange 'random high points
607. '  FOR j = 1 TO yrange
608. '      nrand = RND * 1000
609. '      IF nrand < 10 THEN
610. '          vec2dz(i, j) = 5
611. '      END IF
612. '  NEXT
613. 'NEXT
614. 'vec2dz(xrange * .8, yrange * .2) = -2.5 'single plucked point
615. 'FOR i = 1 TO xrange 'cross arm
616. '   vec2dz(i, yrange / 3) = 2
617. 'NEXT
618. 'FOR j = 1 TO yrange 'cross arm
619. '   vec2dz(xrange / 2, j) = 1
620. 'NEXT
621. 'sync
622. pcountparticleorig = 0
623. FOR i = 1 TO xrange
624.     FOR j = 1 TO yrange
625.         pcountparticleorig = pcountparticleorig + 1
626.         vec2dzprev(i, j) = vec2dz(i, j)
627.         vec2dztemp(i, j) = vec2dz(i, j)
628.     NEXT
629. NEXT
630. 'initial velocity condition
631. vec2dzprev(xrange * .8, yrange * .8) = 1.5 'single struck point
632. 'relinearize
633. pcountparticleorig = 0
634. FOR i = 1 TO xrange
635.     FOR j = 1 TO yrange
636.         pcountparticleorig = pcountparticleorig + 1
637.         vec(pcountparticleorig, 3) = vec2dz(i, j)
638.     NEXT
639. NEXT
640. RETURN
641.  
642. genscheme.wave2d.timeanimate:
643. 'delinearize
644. pcountparticleorig = 0
645. FOR i = 1 TO xrange
646.     FOR j = 1 TO yrange
647.         pcountparticleorig = pcountparticleorig + 1
648.         vec2dztemp(i, j) = vec(pcountparticleorig, 3)
649.     NEXT
650. NEXT
651. 'begin propagation process
652. FOR i = 2 TO xrange - 1 'boDy, no edges
653.     FOR j = 2 TO yrange - 1
654.         wp1 = alpha * (vec2dztemp(i + 1, j) + vec2dztemp(i - 1, j)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
655.         wp2 = alpha * (vec2dztemp(i, j + 1) + vec2dztemp(i, j - 1)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
656.         vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
657.     NEXT
658. NEXT
659. 'comment out this section for fixed edges (or pieces of this section)
660. i = 1 'left edge
661. FOR j = 2 TO yrange - 1
662.     wfp = vec2dztemp(i, j)
663.     wp1 = alpha * (vec2dztemp(i + 1, j) + wfp) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
664.     wp2 = alpha * (vec2dztemp(i, j + 1) + vec2dztemp(i, j - 1)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
665.     'vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
666. NEXT
667. i = xrange 'right edge
668. FOR j = 2 TO yrange - 1
669.     wfp = vec2dztemp(i, j)
670.     wp1 = alpha * (wfp + vec2dztemp(i - 1, j)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
671.     wp2 = alpha * (vec2dztemp(i, j + 1) + vec2dztemp(i, j - 1)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
672.     vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
673. NEXT
674. j = 1 'bottom edge
675. FOR i = 2 TO xrange - 1
676.     wfp = vec2dztemp(i, j)
677.     wp2 = alpha * (vec2dztemp(i, j + 1) + wfp) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
678.     wp1 = alpha * (vec2dztemp(i + 1, j) + vec2dztemp(i - 1, j)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
679.     vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
680. NEXT
681. j = yrange 'top edge
682. FOR i = 2 TO xrange - 1
683.     wfp = vec2dztemp(i, j)
684.     wp2 = alpha * (wfp + vec2dztemp(i, j - 1)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
685.     wp1 = alpha * (vec2dztemp(i + 1, j) + vec2dztemp(i - 1, j)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
686.     vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
687. NEXT
688. 'bottom left corner
689. i = 1: j = 1
690. wfp1 = vec2dztemp(i, j)
691. wfp2 = vec2dztemp(i, j)
692. wp1 = alpha * (vec2dztemp(i + 1, j) + wfp1) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
693. wp2 = alpha * (vec2dztemp(i, j + 1) + wfp2) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
694. 'vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
695. 'bottom right corner
696. i = xrange: j = 1
697. wfp1 = vec2dztemp(i, j)
698. wfp2 = vec2dztemp(i, j)
699. wp1 = alpha * (wfp1 + vec2dztemp(i - 1, j)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
700. wp2 = alpha * (vec2dztemp(i, j + 1) + wfp2) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
701. vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
702. 'top left corner
703. i = 1: j = yrange
704. wfp1 = vec2dztemp(i, j)
705. wfp2 = vec2dztemp(i, j)
706. wp1 = alpha * (vec2dztemp(i + 1, j) + wfp1) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
707. wp2 = alpha * (wfp2 + vec2dztemp(i, j - 1)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
708. 'vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
709. 'top right corner
710. i = xrange: j = yrange
711. wfp1 = vec2dztemp(i, j)
712. wfp2 = vec2dztemp(i, j)
713. wp1 = alpha * (wfp1 + vec2dztemp(i - 1, j)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
714. wp2 = alpha * (wfp2 + vec2dztemp(i, j - 1)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
715. vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
716. 'start special movements
717. T = timevar / 5
718. IF T < pi THEN 'wave left edge just once
719.     FOR j = 1 TO yrange
720.         i = 1
721.         vec2dz(i, j) = (j / yrange) * 1.5 * SIN(T)
722.     NEXT
723. END IF
724. IF T < pi THEN 'wave bottom edge just once
725.     FOR i = 1 TO xrange
726.         j = 1
727.         vec2dz(i, j) = (i / xrange) * .45 * SIN(T)
728.     NEXT
729. END IF
730. 'relinearize
731. pcountparticleorig = 0
732. FOR i = 1 TO xrange
733.     FOR j = 1 TO yrange
734.         pcountparticleorig = pcountparticleorig + 1
735.         vec2dzprev(i, j) = vec2dztemp(i, j)
736.         vec2dztemp(i, j) = vec2dz(i, j)
737.         vec(pcountparticleorig, 3) = vec2dz(i, j)
738.     NEXT
739. NEXT
740. RETURN
741.  

[bplus]

Ah speaking of ancient code, here's one I fished out of past, maybe Johnno remember's:

Code: QB64: [Select]

1. _TITLE "Ocean view" 'b+ 2020-01-11 from sdlbasic 2015-07-02
2. CONST sw = 640, sh = 480
3. SCREEN _NEWIMAGE(sw, sh, 32)
4. FOR i = 0 TO sh / 2
5.     LINE (0, i)-(sw, i), _RGB32(40, 60, 2 * i / sh * 148 + 80)
6. NEXT
7. FOR y = sh / 2 TO sh
8.     FOR x = 0 TO sw
9.         COLOR _RGB32(RND * 40, RND * 60 + 100, RND * 55 + 120)
10.         PSET (x, y)
11.     NEXT
12. NEXT
13. WHILE _KEYDOWN(27) = 0
14.     z = RND * sh / 2
15.     wh = z / (sh / 2) * 15
16.     wf = 10 - 10 * (z / (sh / 2))
17.     wo = z MOD 2
18.     COLOR _RGB32(RND * 40, RND * 60 + 100, RND * 55 + 120)
19.     FOR x = 0 TO sw
20.         y = sh / 2 + z + wh * COS(_D2R(wf * x + 180 * wo))
21.         LINE (x, y)-STEP(0, 0), , BF
22.     NEXT
23.     _DISPLAY
24.     _LIMIT 60
25. WEND
26.  

In the beginning was the word, right Steve? ;-))

Petr, very nice!

STxAxTIC Probably would work in blue and grid stretched over surface. Sorry mine is not 740 lines ;(

[STxAxTIC]

Choose mode 14:

Code: QB64: [Select]

1. '#lang "qb" '...for freebasic compiler. Must disable for QB64 features.
2.  
3. ' *** Video settings. ***
4.  
5. screenwidth = 640
6. screenheight = 480
7. SCREEN 12
8.  
9. ' *** Performance settings. ***
10.  
11. bignumber = 500000 ' Maximum objects per array (determined by memory).
12. globaldelayinit = 1000 ' Loop damping factor (fine adjustment below).
13. RANDOMIZE TIMER
14.  
15. ' *** Initialize counters and array sizes. ***
16.  
17. numparticleorig = bignumber
18. numparticlevisible = bignumber
19. numdoubletorig = bignumber
20. numdoubletclip = bignumber
21. numdoubletclipwork = bignumber
22. numdoubletsnip = bignumber
23. numdoubletsnipwork = bignumber
24. numdoubletintinfo = bignumber
25. numtripletorig = bignumber
26. numtripletfaceon = bignumber
27. numtripletclip = bignumber
28. numtripletclipwork = bignumber
29. numtripletsnip = bignumber
30. numtripletsnipimage = bignumber
31. numtripletsnipwork = bignumber
32. numtripletencpoint = bignumber
33. numtripletintpointpair = bignumber
34. numtripletfinal = bignumber
35.  
36. ' *** Define basis arrays and structures. ***
37.  
38. ' Screen vectors in three-space.
39. ' These vectors define the camera angle.
40. DIM uhat(1 TO 3), vhat(1 TO 3), nhat(1 TO 3)
41.  
42. ' View clipping planes defined in three-space.
43. DIM nearplane(1 TO 4), farplane(1 TO 4), rightplane(1 TO 4), leftplane(1 TO 4), topplane(1 TO 4), bottomplane(1 TO 4)
44. DIM nearplanespotlight(1 TO 4), farplanespotlight(1 TO 4), rightplanespotlight(1 TO 4), leftplanespotlight(1 TO 4), topplanespotlight(1 TO 4), bottomplanespotlight(1 TO 4)
45.  
46. ' Basis vectors defined in three-space.
47. DIM xhat(1 TO 4), yhat(1 TO 4), zhat(1 TO 4)
48. xhat(1) = 1: xhat(2) = 0: xhat(3) = 0: xhat(4) = 4
49. yhat(1) = 0: yhat(2) = 1: yhat(3) = 0: yhat(4) = 2
50. zhat(1) = 0: zhat(2) = 0: zhat(3) = 1: zhat(4) = 1
51.  
52. ' Basis vectors projected into uv two-space.
53. DIM xhatp(1 TO 2), yhatp(1 TO 2), zhatp(1 TO 2)
54. DIM xhatp.old(1 TO 2), yhatp.old(1 TO 2), zhatp.old(1 TO 2)
55.  
56. ' *** Define particle arrays and structures. ***
57.  
58. ' Particle vectors defined in three-space.
59. DIM vec(numparticleorig, 4)
60. DIM vecdotnhat(numparticleorig)
61. DIM vecdotnhatunit.old(numparticleorig)
62. DIM vecvisible(numparticlevisible, 4)
63. DIM vecvisibledotnhat(numparticlevisible)
64. DIM vecvisibledotnhatunit.old(numparticlevisible)
65.  
66. ' Particle vectors projected onto infinite uv two-space.
67. DIM vecpuv(numparticleorig, 1 TO 2)
68. DIM vecpuv.old(numparticleorig, 1 TO 2)
69. DIM vecvisiblepuv(numparticlevisible, 1 TO 2)
70. DIM vecvisiblepuv.old(numparticlevisible, 1 TO 2)
71.  
72. ' Particle projections adjusted for screen uv two-space.
73. DIM vecpuvs(numparticleorig, 1 TO 2)
74. DIM vecpuvs.old(numparticleorig, 1 TO 2)
75. DIM vecvisiblepuvs(numparticlevisible, 1 TO 2)
76. DIM vecvisiblepuvs.old(numparticlevisible, 1 TO 2)
77.  
78. ' *** Define doublet arrays and structures. ***
79.  
80. ' Doublet vectors defined in three-space.
81. DIM doubletorig(numdoubletorig, 7)
82.  
83. ' Doublet vectors clipped by view planes.
84. DIM doubletclip(numdoubletclip, 7)
85. DIM doubletclipdotnhat(numdoubletclip, 2)
86. DIM doubletclipdotnhat.old(numdoubletclip, 2)
87. DIM doubletclipwork(numdoubletclipwork, 7)
88. DIM doubletclipworkdotnhat(numdoubletclipwork, 2)
89. DIM doubletclipworkdotnhat.old(numdoubletclipwork, 2)
90.  
91. ' Doublet vectors clipped and projected onto infinite uv two-space.
92. DIM doubletclippuv(numdoubletclip, 4)
93. DIM doubletclippuv.old(numdoubletclip, 4)
94.  
95. ' Doublet vectors snipped by apparent intersections.
96. DIM doubletsnip(numdoubletsnip, 7)
97. DIM doubletsnipwork(numdoubletsnipwork, 7)
98. DIM doubletsnipdotnhat(numdoubletsnip, 2)
99. DIM doubletsnipdotnhat.old(numdoubletsnip, 2)
100.  
101. ' Doublet vectors snipped and projected onto infinite uv two-space.
102. DIM doubletsnippuv(numdoubletsnip, 4)
103. DIM doubletsnippuv.old(numdoubletsnip, 4)
104.  
105. ' Array information inferred from apparent intersections.
106. DIM doubletintinfo(numdoubletintinfo, 2)
107.  
108. ' Doublet projections adjusted for screen uv two-space.
109. DIM doubletsnippuvs(numdoubletsnip, 4)
110. DIM doubletsnippuvs.old(numdoubletsnip, 4)
111. DIM doubletclippuvs(numdoubletclip, 4)
112. DIM doubletclippuvs.old(numdoubletclip, 4)
113.  
114. ' *** Define triplet arrays and structures. ***
115.  
116. ' Triplet vectors defined in three-space.
117. DIM tripletorig(numtripletorig, 10)
118.  
119. ' Triplet vectors after discarding outfacing members.
120. DIM tripletfaceon(numtripletfaceon, 10)
121. DIM tripletfaceondotnhat(numtripletfaceon, 3)
122. DIM tripletfaceondotnhat.old(numtripletfaceon, 3)
123.  
124. ' Triplet vectors clipped by view planes.
125. DIM tripletclip(numtripletclip, 10)
126. DIM tripletclipdotnhat(numtripletclip, 3)
127. DIM tripletclipdotnhat.old(numtripletclip, 3)
128. DIM tripletclipwork(numtripletclipwork, 10)
129. DIM tripletclipworkdotnhat(numtripletclipwork, 3)
130. DIM tripletclipworkdotnhat.old(numtripletclipwork, 3)
131.  
132. ' Triplet vectors clipped and projected onto infinite uv two-space.
133. DIM tripletfaceonpuv(numtripletfaceon, 6)
134. DIM tripletfaceonpuv.old(numtripletfaceon, 6)
135. DIM tripletclippuv(numtripletclip, 6)
136. DIM tripletclippuv.old(numtripletclip, 6)
137.  
138. ' Triplet vectors snipped by apparent intersections.
139. DIM tripletsnip(numtripletsnip, 10)
140. DIM tripletsnipimage(numtripletsnipimage, 10)
141. DIM tripletsnipwork(numtripletsnipwork, 10)
142. DIM tripletsnipdotnhat(numtripletsnip, 3)
143. DIM tripletsnipdotnhat.old(numtripletsnip, 3)
144. DIM tripletfinal(numtripletfinal, 10)
145. DIM tripletfinaldotnhat(numtripletfinal, 3)
146. DIM tripletfinaldotnhat.old(numtripletfinal, 3)
147.  
148. ' Triplet vectors snipped and projected onto infinite uv two-space.
149. 'DIM tripletsnippuv(numtripletsnip, 7)
150. 'DIM tripletsnippuv.old(numtripletsnip, 7)
151. DIM tripletfinalpuv(numtripletfinal, 7)
152. DIM tripletfinalpuv.old(numtripletfinal, 7)
153.  
154. ' Array information inferred from apparent intersections.
155. DIM tripletencpoint(9, 8)
156. DIM tripletintpointpair(9, 21)
157.  
158. ' Triplet projections adjusted for screen uv two-space.
159. DIM tripletfinalpuvs(numtripletfinal, 6)
160. DIM tripletfinalpuvs.old(numtripletfinal, 6)
161.  
162. ' *** Define specialized arrays and structures. ***
163.  
164. ' Arrays for tech 2 mesh plotting.
165. DIM plotflag(numparticleorig)
166. DIM plotflag.old(numparticleorig)
167.  
168. ' Binary switches for triangle snip algorithm.
169. snip000enabled = 1
170. snip004enabled = 1
171. snip030enabled = 1
172. snip003enabled = 1
173. snip006enabled = 1
174. snip012enabled = 1
175. snip102enabled = 1
176. snip112enabled = 1
177. snip022enabled = 1
178. snip202enabled = 1
179. snip122enabled = 1
180. snip212enabled = 1
181. snip014enabled = 1
182. snip104enabled = 1
183. snip114enabled = 1
184.  
185. ' *** Set mathematical constants. ***
186.  
187. pi = 3.1415926536
188. ee = 2.7182818285
189.  
190. mainstart:
191.  
192. ' *** Initialize user input variables. ***
193. key$ = ""
194. 'mousekey$ = ""
195.  
196. ' *** Show first visual. ***
197.  
198. CLS
199. COLOR 15
200. PRINT " *** Welcome to 3DCTRWGRAPH ***"
201. PRINT "     by: William F. Barnes"
202. PRINT
203. PRINT " 3D Graphics and Physics Engine"
204. PRINT
205. COLOR 14
206. PRINT " -3D World Prototypes-"
207. PRINT " 1:  3D world made of only particles. (Type 'file' to load object3d.txt)"
208. PRINT " 2:  3D world made of line segments with three-space clipping feature."
209. PRINT " 3:  3D polygon world using advanded three-space clipping algorithm."
210. COLOR 15
211. PRINT
212. PRINT " -Plotting and Geometry Demonstrations-"
213. PRINT " 4:  Parameterized curve with linear point connecting."
214. PRINT " 5:  Parameterized surface made of single points."
215. PRINT " 6:  Molecule with atoms connected by lines."
216. PRINT " 7:  Abstract 3D objects with near-neighbor tiling."
217. PRINT " 8:  Time-animated surface in simple mesh tiling."
218. PRINT " 9:  Time-animated surface in tech-2 mesh tiling."
219. COLOR 8
220. PRINT " 10: Spherical harmonics (in development) in single point plot mode."
221. COLOR 15
222. PRINT
223. PRINT " -Physics Engine Demonstrations-"
224. PRINT " 11: Solution to 2D Laplace equation via relaxation in tech-2 mesh tiling."
225. PRINT " 12: Sphere with random surface features in tech-2 custom mesh tiling."
226. PRINT " 13: Wave 2D propagation on flexible membrane in simple mesh tiling."
227. PRINT " 14: Waves on infinite surface in simple mesh tiling."
228. PRINT " 15: Brownian mating bacteria in custom single point plot mode."
229. PRINT " 16: Elementary neural network with three-space neighbor-connections."
230. PRINT: INPUT " Enter a choice (99 to quit) and press ENTER: ", a$
231.  
232. ' *** Process first user input. ***
233.  
234. SELECT CASE a$
235.     CASE "1": genscheme$ = "3denvparticles": plotmode$ = "3denvparticles"
236.     CASE "file": genscheme$ = "3denvparticlesfile": plotmode$ = "3denvparticles"
237.     CASE "2": genscheme$ = "3denvdoublets": plotmode$ = "3denvdoublets"
238.     CASE "3": genscheme$ = "3denvtriplets": plotmode$ = "3denvtriplets"
239.     CASE "4": genscheme$ = "curve": plotmode$ = "linearconnect"
240.     CASE "5": genscheme$ = "simplepoints": plotmode$ = "simplepoints"
241.     CASE "6": genscheme$ = "molecule": plotmode$ = "molecule"
242.     CASE "7": genscheme$ = "neighbortile": plotmode$ = "neighbortile"
243.     CASE "8": genscheme$ = "animatedflag": plotmode$ = "simplemesh"
244.     CASE "9": genscheme$ = "animatedpretzel": plotmode$ = "meshtech2"
245.     CASE "10": genscheme$ = "sphericalharmonics": plotmode$ = "simplepoints"
246.     CASE "11": genscheme$ = "laplace2d": plotmode$ = "meshtech2"
247.     CASE "12": genscheme$ = "planet": plotmode$ = "meshtech2planet"
248.     CASE "13": genscheme$ = "wave2d": plotmode$ = "simplemesh"
249.     CASE "14": genscheme$ = "wave2dinf": plotmode$ = "simplemesh"
250.     CASE "15": genscheme$ = "bacteria": plotmode$ = "simplepointsbacteria"
251.     CASE "16": genscheme$ = "neuron": plotmode$ = "linearneuron"
252.     CASE "99": END
253.     CASE ELSE: GOTO mainstart
254. END SELECT
255.  
256. substart:
257.  
258. ' *** Zero counters and array sizes. ***
259.  
260. numparticleorig = 0
261. numparticlevisible = 0
262. numdoubletorig = 0
263. numdoubletclip = 0
264. numdoubletclipwork = 0
265. numdoubletsnip = 0
266. numdoubletsnipwork = 0
267. numdoubletintinfo = 0
268. numtripletorig = 0
269. numtripletfaceon = 0
270. numtripletclip = 0
271. numtripletclipwork = 0
272. numtripletsnip = 0
273. numtripletsnipimage = 0
274. numtripletsnipwork = 0
275. numtripletencpoint = 0
276. numtripletintpointpair = 0
277. numtripletfinal = 0
278. pcountparticleorig = 0
279. pcountdoubletorig = 0
280. pcounttripletorig = 0
281.  
282. ' *** Constants and switch control. ***
283.  
284. ' Perspective and animation switches/defaults.
285. fovd = -256
286. nearplane(4) = 3
287. farplane(4) = -100
288. rightplane(4) = 0 '*' fovd * (nhat(1) * rightplane(1) + nhat(2) * rightplane(2) + nhat(3) * rightplane(3))
289. leftplane(4) = 0
290. topplane(4) = 0
291. bottomplane(4) = 0
292. spotlightwidth = 1.3
293. spotlightthickness = 3
294. spotlightwidth = 1.3
295. spotlightcenter = 20
296. nearplanespotlight(4) = spotlightcenter - spotlightthickness / 2
297. farplanespotlight(4) = -(spotlightcenter + spotlightthickness / 2)
298. rightplanespotlight(4) = 0
299. leftplanespotlight(4) = 0
300. topplanespotlight(4) = 0
301. bottomplanespotlight(4) = 0
302. centerx = screenwidth / 2
303. centery = screenheight / 2
304. speedconst = 50
305. falsedepth = .01
306. zoom = 30
307. timevar = 0
308. T = 0
309. togglehud = 1
310. toggleatomnumbers = -1
311. toggletimeanimate = -1
312. toggletimealert = 0
313. camx = 0
314. camy = 0
315. camz = 0
316. uhat(1) = -3: uhat(2) = 5: uhat(3) = 1 / 4
317. vhat(1) = -1: vhat(2) = -1: vhat(3) = 8
318.  
319. CLS
320.  
321. SELECT CASE LCASE$(genscheme$)
322.     CASE "curve":
323.         GOSUB genscheme.curve
324.         numparticleorig = pcountparticleorig
325.     CASE "simplepoints":
326.         uhat(1) = -0.2376385: uhat(2) = 0.970313: uhat(3) = -0.04495043
327.         vhat(1) = -0.8201708: vhat(2) = -0.1756434: vhat(3) = 0.5444899
328.         GOSUB genscheme.simplepoints
329.         numparticleorig = pcountparticleorig
330.     CASE "3denvparticles":
331.         globaldelay = globaldelayinit * 1000
332.         uhat(1) = 0.8251367: uhat(2) = -0.564903: uhat(3) = -0.005829525
333.         vhat(1) = 0.065519: vhat(2) = 0.08544215: vhat(3) = 0.9941866
334.         falsedepth = 0
335.         zoom = 1.95
336.         toggletimeanimate = 1
337.         togglehud = -1
338.         toggletimealert = 1
339.         camx = 30
340.         camy = 25
341.         camz = -25
342.         GOSUB genscheme.3denvparticles.init
343.         numparticleorig = pcountparticleorig
344.     CASE "3denvparticlesfile":
345.         uhat(1) = 0.8251367: uhat(2) = -0.564903: uhat(3) = -0.005829525
346.         vhat(1) = 0.065519: vhat(2) = 0.08544215: vhat(3) = 0.9941866
347.         falsedepth = 0
348.         zoom = 1.95
349.         togglehud = -1
350.         camx = 30
351.         camy = 30
352.         camz = -25
353.         pcountparticleorig = 0
354.         OPEN "object3d.txt" FOR INPUT AS #1
355.         DO
356.             pcountparticleorig = pcountparticleorig + 1
357.             INPUT #1, vec(pcountparticleorig, 1), vec(pcountparticleorig, 2), vec(pcountparticleorig, 3), vec(pcountparticleorig, 4)
358.         LOOP WHILE EOF(1) = 0
359.         CLOSE #1
360.         numparticleorig = pcountparticleorig
361.     CASE "molecule":
362.         uhat(1) = -0.7027042: uhat(2) = 0.5818964: uhat(3) = -0.409394
363.         vhat(1) = -0.6446534: vhat(2) = -0.2772641: vhat(3) = 0.7124231
364.         zoom = 55
365.         togglehud = -1
366.         toggleatomnumbers = 1
367.         numparticleorig = 12
368.         REDIM vec(numparticleorig, 10)
369.         REDIM vecvisible(numparticleorig, 10)
370.         FOR i = 1 TO numparticleorig
371.             READ vec(i, 1), vec(i, 2), vec(i, 3), vec(i, 4), vec(i, 5), vec(i, 6), vec(i, 7), vec(i, 8), vec(i, 9), vec(i, 10)
372.         NEXT
373.         GOSUB genscheme.molecule
374.     CASE "neighbortile":
375.         GOSUB genscheme.neighbortile
376.         numparticleorig = pcountparticleorig
377.     CASE "3denvdoublets":
378.         uhat(1) = 0.7941225: uhat(2) = -0.6026734: uhat(3) = -0.07844898
379.         vhat(1) = 0.2287595: vhat(2) = 0.1768191: vhat(3) = 0.95729
380.         falsedepth = 0
381.         zoom = 1.95
382.         camx = 30
383.         camy = 45
384.         camz = -25
385.         GOSUB genscheme.3denvdoublets
386.         numparticleorig = pcountparticleorig
387.         numdoubletorig = pcountdoubletorig
388.     CASE "3denvtriplets":
389.         uhat(1) = 0.470269: uhat(2) = -0.8823329: uhat(3) = -0.01832148
390.         vhat(1) = -0.03788515: vhat(2) = -0.0409245: vhat(3) = 0.9984438
391.         falsedepth = 0
392.         zoom = 1.95
393.         camx = 20
394.         camy = 20
395.         camz = 17
396.         GOSUB genscheme.3denvtriplets
397.         numparticleorig = pcountparticleorig
398.         numtripletorig = pcounttripletorig
399.     CASE "animatedflag":
400.         globaldelay = globaldelayinit * 5000
401.         toggletimeanimate = 1
402.         togglehud = -1
403.         toggletimealert = 1
404.         uhat(1) = .7802773: uhat(2) = -.4759201: uhat(3) = .4058135
405.         vhat(1) = .2502121: vhat(2) = .8321912: vhat(3) = .4948249
406.         GOSUB genscheme.animatedsurface.init
407.         numparticleorig = pcountparticleorig
408.         REDIM vec2dztemp(xrange, yrange)
409.         GOSUB genschemeUSAcolors
410.     CASE "animatedpretzel":
411.         globaldelay = globaldelayinit * 5000
412.         uhat(1) = .7802773: uhat(2) = -.4759201: uhat(3) = .4058135
413.         vhat(1) = .2502121: vhat(2) = .8321912: vhat(3) = .4948249
414.         toggletimealert = 1
415.         GOSUB genscheme.animatedpretzel.init
416.         numparticleorig = pcountparticleorig
417.     CASE "sphericalharmonics":
418.         GOSUB genscheme.sphericalharmonics
419.         numparticleorig = pcountparticleorig
420.     CASE "laplace2d":
421.         uhat(1) = 0.4919244: uhat(2) = 0.869175: uhat(3) = 0.0504497
422.         vhat(1) = -0.2520696: vhat(2) = 0.08672012: vhat(3) = 0.9638156
423.         globaldelay = globaldelayinit * 1500
424.         togglehud = -1
425.         toggletimealert = 1
426.         GOSUB genscheme.laplace2d.init
427.         numparticleorig = pcountparticleorig
428.         REDIM vec2dz(xrange, yrange)
429.         REDIM vec2dztemp(xrange, yrange)
430.         REDIM vec2dzfixed(xrange, yrange)
431.         GOSUB genscheme.laplace2d.gridinit
432.     CASE "planet":
433.         globaldelay = globaldelayinit * 1500
434.         uhat(1) = 0.4868324: uhat(2) = 0.8719549: uhat(3) = -0.05185585
435.         vhat(1) = 0.458436: vhat(2) = -0.2045161: vhat(3) = 0.8648755
436.         togglehud = -1
437.         toggletimealert = 1
438.         GOSUB genscheme.planet.init
439.         numparticleorig = pcountparticleorig
440.         REDIM vec2ds(xrange, yrange)
441.         REDIM vec2dstemp(xrange, yrange)
442.         REDIM vec2dsfixed(xrange, yrange)
443.         GOSUB genscheme.planet.gridinit
444.     CASE "wave2d":
445.         globaldelay = globaldelayinit * 1500
446.         uhat(1) = .7802773: uhat(2) = -.4759201: uhat(3) = .4058135
447.         vhat(1) = .2502121: vhat(2) = .8321912: vhat(3) = .4948249
448.         togglehud = -1
449.         toggletimealert = 1
450.         GOSUB genscheme.wave2d.init
451.         numparticleorig = pcountparticleorig
452.         REDIM vec2dz(xrange, yrange)
453.         REDIM vec2dztemp(xrange, yrange)
454.         REDIM vec2dzprev(xrange, yrange)
455.         GOSUB genschemeUSAcolors
456.         GOSUB genscheme.wave2d.gridinit
457.     CASE "wave2dinf":
458.         globaldelay = globaldelayinit * 4000
459.         uhat(1) = 0.6781088: uhat(2) = 0.7263383: uhat(3) = 0.1122552
460.         vhat(1) = -0.4469305: vhat(2) = 0.2862689: vhat(3) = 0.8475278
461.         toggletimeanimate = 1
462.         togglehud = -1
463.         toggletimealert = 1
464.         GOSUB genscheme.wave2dinf.init
465.         numparticleorig = pcountparticleorig
466.         REDIM vec2dz(xrange, yrange)
467.         REDIM vec2dztemp(xrange, yrange)
468.         REDIM vec2dzfixed(xrange, yrange)
469.         REDIM vec2dzprev(xrange, yrange)
470.         GOSUB genscheme.wave2dinf.gridinit
471.     CASE "bacteria":
472.         falsedepth = 0.001
473.         globaldelay = globaldelayinit
474.         toggletimeanimate = 1
475.         toggletimealert = 1
476.         zoom = 3
477.         numcreatures = 300
478.         REDIM vec(numcreatures, 10)
479.         REDIM vecvisible(numcreatures, 10)
480.         GOSUB genscheme.bacteria.init
481.         numparticleorig = pcountparticleorig
482.     CASE "neuron":
483.         globaldelay = globaldelayinit
484.         uhat(1) = 0.3494484: uhat(2) = -0.9331037: uhat(3) = -0.08487199
485.         vhat(1) = 0.4430568: vhat(2) = 0.08476364: vhat(3) = 0.8924774
486.         toggletimeanimate = 1
487.         toggletimealert = 1
488.         togglehud = -1
489.         zoom = 1.5
490.         falsedepth = 0.001
491.         REDIM vec(bignumber, 15)
492.         REDIM vecvisible(bignumber, 15)
493.         REDIM vecpuvsrev(bignumber, 15)
494.         GOSUB genscheme.neuron.init
495.         numparticleorig = pcountparticleorig
496. END SELECT
497.  
498. ' Move objects to accomodate initial camera position.
499. IF camx <> 0 AND camy <> 0 AND camz <> 0 THEN
500.     FOR i = 1 TO numparticleorig
501.         vec(i, 1) = vec(i, 1) + camx
502.         vec(i, 2) = vec(i, 2) + camy
503.         vec(i, 3) = vec(i, 3) + camz
504.     NEXT
505.     FOR i = 1 TO numdoubletorig
506.         doubletorig(i, 1) = doubletorig(i, 1) + camx
507.         doubletorig(i, 2) = doubletorig(i, 2) + camy
508.         doubletorig(i, 3) = doubletorig(i, 3) + camz
509.         doubletorig(i, 4) = doubletorig(i, 4) + camx
510.         doubletorig(i, 5) = doubletorig(i, 5) + camy
511.         doubletorig(i, 6) = doubletorig(i, 6) + camz
512.     NEXT
513.     FOR i = 1 TO numtripletorig
514.         tripletorig(i, 1) = tripletorig(i, 1) + camx
515.         tripletorig(i, 2) = tripletorig(i, 2) + camy
516.         tripletorig(i, 3) = tripletorig(i, 3) + camz
517.         tripletorig(i, 4) = tripletorig(i, 4) + camx
518.         tripletorig(i, 5) = tripletorig(i, 5) + camy
519.         tripletorig(i, 6) = tripletorig(i, 6) + camz
520.         tripletorig(i, 7) = tripletorig(i, 7) + camx
521.         tripletorig(i, 8) = tripletorig(i, 8) + camy
522.         tripletorig(i, 9) = tripletorig(i, 9) + camz
523.     NEXT
524. END IF
525.  
526. GOSUB redraw
527.  
528. ' *** Begin main loop. ***
529. DO
530.     IF toggletimeanimate = 1 THEN
531.         GOSUB timeanimate
532.         flagredraw = 1
533.     END IF
534.     IF flagredraw = 1 THEN
535.         GOSUB redraw
536.         flagredraw = -1
537.     END IF
538.     'GOSUB mouseprocess
539.     GOSUB keyprocess
540.     IF toggletimeanimate = 1 THEN
541.         FOR delaycount = 1 TO globaldelay: NEXT
542.     END IF
543. LOOP
544. ' *** End main loop. ***
545.  
546. ' *** Begin function definitions. ***
547.  
548. ' Comment out the conents of this gosub for non-QB64 compiler.
549. mouseprocess:
550. 'DO
551. '    IF _MOUSEMOVEMENTX > 0 THEN
552. '        mousekey$ = "6"
553. '        GOSUB rotate.uhat.plus: GOSUB normalize.screen.vectors: flagredraw = 1
554. '    END IF
555. '    IF _MOUSEMOVEMENTX < 0 THEN
556. '        mousekey$ = "4"
557. '        GOSUB rotate.uhat.minus: GOSUB normalize.screen.vectors: flagredraw = 1
558. '    END IF
559. '    IF _MOUSEMOVEMENTY > 0 THEN
560. '        mousekey$ = "8"
561. '        GOSUB rotate.vhat.plus: GOSUB normalize.screen.vectors: flagredraw = 1
562. '    END IF
563. '    IF _MOUSEMOVEMENTY < 0 THEN
564. '       mousekey$ = "2"
565. '       GOSUB rotate.vhat.minus: GOSUB normalize.screen.vectors: flagredraw = 1
566. '   END IF
567. '   MouseLB = _MOUSEBUTTON(1)
568. '   MouseRB = _MOUSEBUTTON(2)
569. 'LOOP WHILE _MOUSEINPUT
570. RETURN
571.  
572. keyprocess:
573. 'IF mousekey$ <> "" THEN
574. '    key$ = mousekey$
575. '    mousekey$ = ""
576. 'ELSE
577. key$ = INKEY$
578. 'END IF
579. IF key$ <> "" THEN
580.     flagredraw = 1
581. END IF
582. SELECT CASE LCASE$(key$)
583.     CASE "8":
584.         GOSUB rotate.vhat.plus
585.     CASE "2":
586.         GOSUB rotate.vhat.minus
587.     CASE "4":
588.         GOSUB rotate.uhat.minus
589.     CASE "6":
590.         GOSUB rotate.uhat.plus
591.     CASE "7":
592.         GOSUB rotate.clockwise
593.     CASE "9":
594.         GOSUB rotate.counterclockwise
595.     CASE "1":
596.         GOSUB rotate.uhat.minus: GOSUB normalize.screen.vectors: GOSUB rotate.clockwise
597.     CASE "3":
598.         GOSUB rotate.uhat.plus: GOSUB normalize.screen.vectors: GOSUB rotate.counterclockwise
599.     CASE "w"
600.         GOSUB strafe.objects.nhat.plus
601.         GOSUB strafe.camera.nhat.plus
602.     CASE "s"
603.         GOSUB strafe.objects.nhat.minus
604.         GOSUB strafe.camera.nhat.minus
605.     CASE "a"
606.         GOSUB strafe.objects.uhat.plus
607.         GOSUB strafe.camera.uhat.plus
608.     CASE "d"
609.         GOSUB strafe.objects.uhat.minus
610.         GOSUB strafe.camera.uhat.minus
611.     CASE "q"
612.         GOSUB strafe.objects.vhat.plus
613.         GOSUB strafe.camera.vhat.plus
614.     CASE "e"
615.         GOSUB strafe.objects.vhat.minus
616.         GOSUB strafe.camera.vhat.minus
617.     CASE "x"
618.         uhat(1) = 0: uhat(2) = 1: uhat(3) = 0
619.         vhat(1) = 0: vhat(2) = 0: vhat(3) = 1
620.     CASE "y"
621.         uhat(1) = 0: uhat(2) = 0: uhat(3) = 1
622.         vhat(1) = 1: vhat(2) = 0: vhat(3) = 0
623.     CASE "z"
624.         uhat(1) = 1: uhat(2) = 0: uhat(3) = 0
625.         vhat(1) = 0: vhat(2) = 1: vhat(3) = 0
626.     CASE ","
627.         nearplane(4) = nearplane(4) - 1
628.         IF nearplane(4) < 0 THEN nearplane(4) = 0
629.     CASE "."
630.         nearplane(4) = nearplane(4) + 1
631.     CASE "]"
632.         farplane(4) = farplane(4) - 1
633.     CASE "["
634.         farplane(4) = farplane(4) + 1
635.     CASE "'"
636.         spotlightcenter = spotlightcenter + spotlightthickness / 2
637.     CASE ";"
638.         spotlightcenter = spotlightcenter - spotlightthickness / 2
639.         IF spotlightcenter < 0 THEN spotlightcenter = 0
640.     CASE "t"
641.         toggletimeanimate = -toggletimeanimate
642.     CASE "r"
643.         timevar = 0
644.     CASE "f"
645.         GOTO substart
646.     CASE "g"
647.         GOTO mainstart
648.     CASE "-"
649.         spotlightthickness = spotlightthickness - .25
650.         IF spotlightthickness < 0 THEN spotlightthickness = 0
651.         globaldelay = globaldelay * 1.1
652.     CASE "="
653.         spotlightthickness = spotlightthickness + .25
654.         globaldelay = globaldelay * 0.9
655.     CASE "`"
656.         globaldelayinit = globaldelay
657.     CASE " "
658.         togglehud = -togglehud
659.         CLS
660.     CASE "n"
661.         toggleatomnumbers = -toggleatomnumbers
662.         CLS
663.     CASE "/"
664.         OPEN "uvn.txt" FOR OUTPUT AS #1
665.         PRINT #1, uhat(1); uhat(2); uhat(3)
666.         PRINT #1, vhat(1); vhat(2); vhat(3)
667.         PRINT #1, nhat(1); nhat(2); nhat(3)
668.         CLOSE #1
669.         OPEN "vec1.txt" FOR OUTPUT AS #1
670.         PRINT #1, vec(1, 1); vec(1, 2); vec(1, 3)
671.         CLOSE #1
672.         OPEN "object3d.txt" FOR OUTPUT AS #1
673.         FOR i = 1 TO numparticleorig
674.             PRINT #1, vec(i, 1); "   "; vec(i, 2); "   "; vec(i, 3); "   "; vec(i, 4)
675.         NEXT
676.         CLOSE #1
677.     CASE CHR$(27)
678.         END
679. END SELECT
680. RETURN
681.  
682. convert:
683. ' Convert graphics from uv-cartesian coordinates to monitor coordinates.
684. x0 = x: y0 = y
685. x = x0 + centerx
686. y = -y0 + centery
687. IF toggleatomnumbers = 1 THEN
688.     xtext = (x0 + centerx) * (80 / 640)
689.     ytext = (centery - y0) * (30 / 480) + 1
690.     IF xtext < 1 THEN xtext = 1
691.     IF xtext > 77 THEN xtext = 77
692.     IF ytext < 1 THEN ytext = 1
693.     IF ytext > 27 THEN ytext = 27
694. END IF
695. RETURN
696.  
697. ' *** Define functions for view translation and rotation. ***
698.  
699. rotate.uhat.plus:
700. uhat(1) = nhat(1) + speedconst * uhat(1)
701. uhat(2) = nhat(2) + speedconst * uhat(2)
702. uhat(3) = nhat(3) + speedconst * uhat(3)
703. RETURN
704.  
705. rotate.uhat.minus:
706. uhat(1) = -nhat(1) + speedconst * uhat(1)
707. uhat(2) = -nhat(2) + speedconst * uhat(2)
708. uhat(3) = -nhat(3) + speedconst * uhat(3)
709. RETURN
710.  
711. rotate.vhat.plus:
712. vhat(1) = nhat(1) + speedconst * vhat(1)
713. vhat(2) = nhat(2) + speedconst * vhat(2)
714. vhat(3) = nhat(3) + speedconst * vhat(3)
715. RETURN
716.  
717. rotate.vhat.minus:
718. vhat(1) = -nhat(1) + speedconst * vhat(1)
719. vhat(2) = -nhat(2) + speedconst * vhat(2)
720. vhat(3) = -nhat(3) + speedconst * vhat(3)
721. RETURN
722.  
723. rotate.counterclockwise:
724. v1 = vhat(1)
725. v2 = vhat(2)
726. v3 = vhat(3)
727. vhat(1) = uhat(1) + speedconst * vhat(1)
728. vhat(2) = uhat(2) + speedconst * vhat(2)
729. vhat(3) = uhat(3) + speedconst * vhat(3)
730. uhat(1) = -v1 + speedconst * uhat(1)
731. uhat(2) = -v2 + speedconst * uhat(2)
732. uhat(3) = -v3 + speedconst * uhat(3)
733. RETURN
734.  
735. rotate.clockwise:
736. v1 = vhat(1)
737. v2 = vhat(2)
738. v3 = vhat(3)
739. vhat(1) = -uhat(1) + speedconst * vhat(1)
740. vhat(2) = -uhat(2) + speedconst * vhat(2)
741. vhat(3) = -uhat(3) + speedconst * vhat(3)
742. uhat(1) = v1 + speedconst * uhat(1)
743. uhat(2) = v2 + speedconst * uhat(2)
744. uhat(3) = v3 + speedconst * uhat(3)
745. RETURN
746. RETURN
747.  
748. strafe.objects.uhat.plus:
749. FOR i = 1 TO numparticleorig
750.     vec(i, 1) = vec(i, 1) + uhat(1) * 1 / zoom
751.     vec(i, 2) = vec(i, 2) + uhat(2) * 1 / zoom
752.     vec(i, 3) = vec(i, 3) + uhat(3) * 1 / zoom
753. NEXT
754. FOR i = 1 TO numdoubletorig
755.     doubletorig(i, 1) = doubletorig(i, 1) + uhat(1) * 1 / zoom
756.     doubletorig(i, 2) = doubletorig(i, 2) + uhat(2) * 1 / zoom
757.     doubletorig(i, 3) = doubletorig(i, 3) + uhat(3) * 1 / zoom
758.     doubletorig(i, 4) = doubletorig(i, 4) + uhat(1) * 1 / zoom
759.     doubletorig(i, 5) = doubletorig(i, 5) + uhat(2) * 1 / zoom
760.     doubletorig(i, 6) = doubletorig(i, 6) + uhat(3) * 1 / zoom
761. NEXT
762. FOR i = 1 TO numtripletorig
763.     tripletorig(i, 1) = tripletorig(i, 1) + uhat(1) * 1 / zoom
764.     tripletorig(i, 2) = tripletorig(i, 2) + uhat(2) * 1 / zoom
765.     tripletorig(i, 3) = tripletorig(i, 3) + uhat(3) * 1 / zoom
766.     tripletorig(i, 4) = tripletorig(i, 4) + uhat(1) * 1 / zoom
767.     tripletorig(i, 5) = tripletorig(i, 5) + uhat(2) * 1 / zoom
768.     tripletorig(i, 6) = tripletorig(i, 6) + uhat(3) * 1 / zoom
769.     tripletorig(i, 7) = tripletorig(i, 7) + uhat(1) * 1 / zoom
770.     tripletorig(i, 8) = tripletorig(i, 8) + uhat(2) * 1 / zoom
771.     tripletorig(i, 9) = tripletorig(i, 9) + uhat(3) * 1 / zoom
772. NEXT
773. RETURN
774.  
775. strafe.objects.uhat.minus:
776. FOR i = 1 TO numparticleorig
777.     vec(i, 1) = vec(i, 1) - uhat(1) * 1 / zoom
778.     vec(i, 2) = vec(i, 2) - uhat(2) * 1 / zoom
779.     vec(i, 3) = vec(i, 3) - uhat(3) * 1 / zoom
780. NEXT
781. FOR i = 1 TO numdoubletorig
782.     doubletorig(i, 1) = doubletorig(i, 1) - uhat(1) * 1 / zoom
783.     doubletorig(i, 2) = doubletorig(i, 2) - uhat(2) * 1 / zoom
784.     doubletorig(i, 3) = doubletorig(i, 3) - uhat(3) * 1 / zoom
785.     doubletorig(i, 4) = doubletorig(i, 4) - uhat(1) * 1 / zoom
786.     doubletorig(i, 5) = doubletorig(i, 5) - uhat(2) * 1 / zoom
787.     doubletorig(i, 6) = doubletorig(i, 6) - uhat(3) * 1 / zoom
788. NEXT
789. FOR i = 1 TO numtripletorig
790.     tripletorig(i, 1) = tripletorig(i, 1) - uhat(1) * 1 / zoom
791.     tripletorig(i, 2) = tripletorig(i, 2) - uhat(2) * 1 / zoom
792.     tripletorig(i, 3) = tripletorig(i, 3) - uhat(3) * 1 / zoom
793.     tripletorig(i, 4) = tripletorig(i, 4) - uhat(1) * 1 / zoom
794.     tripletorig(i, 5) = tripletorig(i, 5) - uhat(2) * 1 / zoom
795.     tripletorig(i, 6) = tripletorig(i, 6) - uhat(3) * 1 / zoom
796.     tripletorig(i, 7) = tripletorig(i, 7) - uhat(1) * 1 / zoom
797.     tripletorig(i, 8) = tripletorig(i, 8) - uhat(2) * 1 / zoom
798.     tripletorig(i, 9) = tripletorig(i, 9) - uhat(3) * 1 / zoom
799. NEXT
800. RETURN
801.  
802. strafe.objects.vhat.plus:
803. FOR i = 1 TO numparticleorig
804.     vec(i, 1) = vec(i, 1) + vhat(1) * 1 / zoom
805.     vec(i, 2) = vec(i, 2) + vhat(2) * 1 / zoom
806.     vec(i, 3) = vec(i, 3) + vhat(3) * 1 / zoom
807. NEXT
808. FOR i = 1 TO numdoubletorig
809.     doubletorig(i, 1) = doubletorig(i, 1) + vhat(1) * 1 / zoom
810.     doubletorig(i, 2) = doubletorig(i, 2) + vhat(2) * 1 / zoom
811.     doubletorig(i, 3) = doubletorig(i, 3) + vhat(3) * 1 / zoom
812.     doubletorig(i, 4) = doubletorig(i, 4) + vhat(1) * 1 / zoom
813.     doubletorig(i, 5) = doubletorig(i, 5) + vhat(2) * 1 / zoom
814.     doubletorig(i, 6) = doubletorig(i, 6) + vhat(3) * 1 / zoom
815. NEXT
816. FOR i = 1 TO numtripletorig
817.     tripletorig(i, 1) = tripletorig(i, 1) + vhat(1) * 1 / zoom
818.     tripletorig(i, 2) = tripletorig(i, 2) + vhat(2) * 1 / zoom
819.     tripletorig(i, 3) = tripletorig(i, 3) + vhat(3) * 1 / zoom
820.     tripletorig(i, 4) = tripletorig(i, 4) + vhat(1) * 1 / zoom
821.     tripletorig(i, 5) = tripletorig(i, 5) + vhat(2) * 1 / zoom
822.     tripletorig(i, 6) = tripletorig(i, 6) + vhat(3) * 1 / zoom
823.     tripletorig(i, 7) = tripletorig(i, 7) + vhat(1) * 1 / zoom
824.     tripletorig(i, 8) = tripletorig(i, 8) + vhat(2) * 1 / zoom
825.     tripletorig(i, 9) = tripletorig(i, 9) + vhat(3) * 1 / zoom
826. NEXT
827. RETURN
828.  
829. strafe.objects.vhat.minus:
830. FOR i = 1 TO numparticleorig
831.     vec(i, 1) = vec(i, 1) - vhat(1) * 1 / zoom
832.     vec(i, 2) = vec(i, 2) - vhat(2) * 1 / zoom
833.     vec(i, 3) = vec(i, 3) - vhat(3) * 1 / zoom
834. NEXT
835. FOR i = 1 TO numdoubletorig
836.     doubletorig(i, 1) = doubletorig(i, 1) - vhat(1) * 1 / zoom
837.     doubletorig(i, 2) = doubletorig(i, 2) - vhat(2) * 1 / zoom
838.     doubletorig(i, 3) = doubletorig(i, 3) - vhat(3) * 1 / zoom
839.     doubletorig(i, 4) = doubletorig(i, 4) - vhat(1) * 1 / zoom
840.     doubletorig(i, 5) = doubletorig(i, 5) - vhat(2) * 1 / zoom
841.     doubletorig(i, 6) = doubletorig(i, 6) - vhat(3) * 1 / zoom
842. NEXT
843. FOR i = 1 TO numtripletorig
844.     tripletorig(i, 1) = tripletorig(i, 1) - vhat(1) * 1 / zoom
845.     tripletorig(i, 2) = tripletorig(i, 2) - vhat(2) * 1 / zoom
846.     tripletorig(i, 3) = tripletorig(i, 3) - vhat(3) * 1 / zoom
847.     tripletorig(i, 4) = tripletorig(i, 4) - vhat(1) * 1 / zoom
848.     tripletorig(i, 5) = tripletorig(i, 5) - vhat(2) * 1 / zoom
849.     tripletorig(i, 6) = tripletorig(i, 6) - vhat(3) * 1 / zoom
850.     tripletorig(i, 7) = tripletorig(i, 7) - vhat(1) * 1 / zoom
851.     tripletorig(i, 8) = tripletorig(i, 8) - vhat(2) * 1 / zoom
852.     tripletorig(i, 9) = tripletorig(i, 9) - vhat(3) * 1 / zoom
853. NEXT
854. RETURN
855.  
856. strafe.objects.nhat.plus:
857. FOR i = 1 TO numparticleorig
858.     vec(i, 1) = vec(i, 1) + nhat(1) * 1 / zoom
859.     vec(i, 2) = vec(i, 2) + nhat(2) * 1 / zoom
860.     vec(i, 3) = vec(i, 3) + nhat(3) * 1 / zoom
861. NEXT
862. FOR i = 1 TO numdoubletorig
863.     doubletorig(i, 1) = doubletorig(i, 1) + nhat(1) * 1 / zoom
864.     doubletorig(i, 2) = doubletorig(i, 2) + nhat(2) * 1 / zoom
865.     doubletorig(i, 3) = doubletorig(i, 3) + nhat(3) * 1 / zoom
866.     doubletorig(i, 4) = doubletorig(i, 4) + nhat(1) * 1 / zoom
867.     doubletorig(i, 5) = doubletorig(i, 5) + nhat(2) * 1 / zoom
868.     doubletorig(i, 6) = doubletorig(i, 6) + nhat(3) * 1 / zoom
869. NEXT
870. FOR i = 1 TO numtripletorig
871.     tripletorig(i, 1) = tripletorig(i, 1) + nhat(1) * 1 / zoom
872.     tripletorig(i, 2) = tripletorig(i, 2) + nhat(2) * 1 / zoom
873.     tripletorig(i, 3) = tripletorig(i, 3) + nhat(3) * 1 / zoom
874.     tripletorig(i, 4) = tripletorig(i, 4) + nhat(1) * 1 / zoom
875.     tripletorig(i, 5) = tripletorig(i, 5) + nhat(2) * 1 / zoom
876.     tripletorig(i, 6) = tripletorig(i, 6) + nhat(3) * 1 / zoom
877.     tripletorig(i, 7) = tripletorig(i, 7) + nhat(1) * 1 / zoom
878.     tripletorig(i, 8) = tripletorig(i, 8) + nhat(2) * 1 / zoom
879.     tripletorig(i, 9) = tripletorig(i, 9) + nhat(3) * 1 / zoom
880. NEXT
881. RETURN
882.  
883. strafe.objects.nhat.minus:
884. FOR i = 1 TO numparticleorig
885.     vec(i, 1) = vec(i, 1) - nhat(1) * 1 / zoom
886.     vec(i, 2) = vec(i, 2) - nhat(2) * 1 / zoom
887.     vec(i, 3) = vec(i, 3) - nhat(3) * 1 / zoom
888. NEXT
889. FOR i = 1 TO numdoubletorig
890.     doubletorig(i, 1) = doubletorig(i, 1) - nhat(1) * 1 / zoom
891.     doubletorig(i, 2) = doubletorig(i, 2) - nhat(2) * 1 / zoom
892.     doubletorig(i, 3) = doubletorig(i, 3) - nhat(3) * 1 / zoom
893.     doubletorig(i, 4) = doubletorig(i, 4) - nhat(1) * 1 / zoom
894.     doubletorig(i, 5) = doubletorig(i, 5) - nhat(2) * 1 / zoom
895.     doubletorig(i, 6) = doubletorig(i, 6) - nhat(3) * 1 / zoom
896. NEXT
897. FOR i = 1 TO numtripletorig
898.     tripletorig(i, 1) = tripletorig(i, 1) - nhat(1) * 1 / zoom
899.     tripletorig(i, 2) = tripletorig(i, 2) - nhat(2) * 1 / zoom
900.     tripletorig(i, 3) = tripletorig(i, 3) - nhat(3) * 1 / zoom
901.     tripletorig(i, 4) = tripletorig(i, 4) - nhat(1) * 1 / zoom
902.     tripletorig(i, 5) = tripletorig(i, 5) - nhat(2) * 1 / zoom
903.     tripletorig(i, 6) = tripletorig(i, 6) - nhat(3) * 1 / zoom
904.     tripletorig(i, 7) = tripletorig(i, 7) - nhat(1) * 1 / zoom
905.     tripletorig(i, 8) = tripletorig(i, 8) - nhat(2) * 1 / zoom
906.     tripletorig(i, 9) = tripletorig(i, 9) - nhat(3) * 1 / zoom
907. NEXT
908. RETURN
909.  
910. strafe.camera.uhat.plus:
911. camx = camx + uhat(1) * 1 / zoom
912. camy = camy + uhat(2) * 1 / zoom
913. camz = camz + uhat(3) * 1 / zoom
914. RETURN
915.  
916. strafe.camera.uhat.minus:
917. camx = camx - uhat(1) * 1 / zoom
918. camy = camy - uhat(2) * 1 / zoom
919. camz = camz - uhat(3) * 1 / zoom
920. RETURN
921.  
922. strafe.camera.vhat.plus:
923. camx = camx + vhat(1) * 1 / zoom
924. camy = camy + vhat(2) * 1 / zoom
925. camz = camz + vhat(3) * 1 / zoom
926. RETURN
927.  
928. strafe.camera.vhat.minus:
929. camx = camx - vhat(1) * 1 / zoom
930. camy = camy - vhat(2) * 1 / zoom
931. camz = camz - vhat(3) * 1 / zoom
932. RETURN
933.  
934. strafe.camera.nhat.plus:
935. camx = camx + nhat(1) * 1 / zoom
936. camy = camy + nhat(2) * 1 / zoom
937. camz = camz + nhat(3) * 1 / zoom
938. RETURN
939.  
940. strafe.camera.nhat.minus:
941. camx = camx - nhat(1) * 1 / zoom
942. camy = camy - nhat(2) * 1 / zoom
943. camz = camz - nhat(3) * 1 / zoom
944. RETURN
945.  
946. ' *** Define core functions. ***
947.  
948. timeanimate:
949. timevar = timevar + 1
950. IF timevar > 10 ^ 6 THEN timevar = 1
951. SELECT CASE genscheme$
952.     CASE "3denvparticles": GOSUB genscheme.3denvparticles.timeanimate
953.     CASE "animatedflag": GOSUB genscheme.animatedsurface.timeanimate
954.     CASE "animatedpretzel": GOSUB genscheme.animatedpretzel.timeanimate
955.     CASE "laplace2d": GOSUB genscheme.laplace2d.timeanimate
956.     CASE "planet": GOSUB genscheme.planet.timeanimate
957.     CASE "wave2d": GOSUB genscheme.wave2d.timeanimate
958.     CASE "wave2dinf": GOSUB genscheme.wave2dinf.timeanimate
959.     CASE "bacteria": GOSUB genscheme.bacteria.timeanimate
960.     CASE "neuron": GOSUB genscheme.neuron.timeanimate
961. END SELECT
962. RETURN
963.  
964. normalize.screen.vectors:
965. 'normalize the two vectors that define the screen orientation
966. uhatmag = SQR(uhat(1) ^ 2 + uhat(2) ^ 2 + uhat(3) ^ 2)
967. uhat(1) = uhat(1) / uhatmag: uhat(2) = uhat(2) / uhatmag: uhat(3) = uhat(3) / uhatmag
968. vhatmag = SQR(vhat(1) ^ 2 + vhat(2) ^ 2 + vhat(3) ^ 2)
969. vhat(1) = vhat(1) / vhatmag: vhat(2) = vhat(2) / vhatmag: vhat(3) = vhat(3) / vhatmag
970. uhatdotvhat = uhat(1) * vhat(1) + uhat(2) * vhat(2) + uhat(3) * vhat(3)
971. IF SQR(uhatdotvhat ^ 2) > .0005 THEN
972.     CLS: COLOR 15: LOCATE 5, 5: PRINT "Screen vectors are not perpendicular. Press ESC to quit."
973.     'DO: LOOP UNTIL INKEY$ = CHR$(27): END
974. END IF
975. ' Compute the normal vector to the view plane.
976. ' The normal vector points toward the eye, away from view frustum.
977. nhat(1) = uhat(2) * vhat(3) - uhat(3) * vhat(2)
978. nhat(2) = uhat(3) * vhat(1) - uhat(1) * vhat(3)
979. nhat(3) = uhat(1) * vhat(2) - uhat(2) * vhat(1)
980. nhatmag = SQR(nhat(1) ^ 2 + nhat(2) ^ 2 + nhat(3) ^ 2)
981. nhat(1) = nhat(1) / nhatmag: nhat(2) = nhat(2) / nhatmag: nhat(3) = nhat(3) / nhatmag
982. RETURN
983.  
984. redraw:
985. GOSUB normalize.screen.vectors
986. GOSUB compute.viewplanes
987. ' Project the three-space basis vectors onto the screen plane.
988. xhatp(1) = xhat(1) * uhat(1) + xhat(2) * uhat(2) + xhat(3) * uhat(3)
989. xhatp(2) = xhat(1) * vhat(1) + xhat(2) * vhat(2) + xhat(3) * vhat(3)
990. yhatp(1) = yhat(1) * uhat(1) + yhat(2) * uhat(2) + yhat(3) * uhat(3)
991. yhatp(2) = yhat(1) * vhat(1) + yhat(2) * vhat(2) + yhat(3) * vhat(3)
992. zhatp(1) = zhat(1) * uhat(1) + zhat(2) * uhat(2) + zhat(3) * uhat(3)
993. zhatp(2) = zhat(1) * vhat(1) + zhat(2) * vhat(2) + zhat(3) * vhat(3)
994. IF numparticleorig > 0 THEN
995.     GOSUB compute.visible.particles
996.     GOSUB project.particles
997.     GOSUB depth.adjust.particles
998. END IF
999. IF numdoubletorig > 0 THEN
1000.     GOSUB copy.doublets.orig.clip
1001.     GOSUB clip.doublets.viewplanes
1002.     GOSUB copy.doublets.clip.snip
1003.     GOSUB project.doublets
1004.     GOSUB depth.adjust.doublets
1005.     GOSUB snip.doublets
1006.     GOSUB copy.doublets.snipwork.snip
1007.     GOSUB project.doublets
1008.     GOSUB depth.adjust.doublets
1009. END IF
1010. IF numtripletorig > 0 THEN
1011.     GOSUB reverse.uvnhat
1012.     GOSUB triplet.filter.faceon
1013.     GOSUB copy.triplets.faceon.clip
1014.     GOSUB clip.triplets.viewplanes
1015.     GOSUB copy.triplets.clip.snip
1016.     GOSUB snip.triplets
1017.     GOSUB copy.triplets.snip.final
1018.     GOSUB project.triplets
1019.     GOSUB depth.adjust.triplets
1020.     GOSUB reverse.uvnhat
1021. END IF
1022. GOSUB draw.all.objects
1023. GOSUB store.screen.projections
1024. RETURN
1025.  
1026. reverse.uvnhat:
1027. uhat(1) = -uhat(1)
1028. uhat(2) = -uhat(2)
1029. uhat(3) = -uhat(3)
1030. GOSUB normalize.screen.vectors
1031. RETURN
1032.  
1033. compute.visible.particles:
1034. numparticlevisible = 0
1035. FOR i = 1 TO numparticleorig
1036.     IF falsedepth = 0 THEN
1037.         GOSUB clip.particle.viewplanes
1038.     ELSE
1039.         SELECT CASE genscheme$
1040.             CASE "molecule"
1041.                 numparticlevisible = numparticlevisible + 1
1042.                 vecvisible(numparticlevisible, 1) = vec(i, 1)
1043.                 vecvisible(numparticlevisible, 2) = vec(i, 2)
1044.                 vecvisible(numparticlevisible, 3) = vec(i, 3)
1045.                 vecvisible(numparticlevisible, 4) = vec(i, 4)
1046.                 vecvisible(numparticlevisible, 5) = vec(i, 5)
1047.                 vecvisible(numparticlevisible, 6) = vec(i, 6)
1048.                 vecvisible(numparticlevisible, 7) = vec(i, 7)
1049.                 vecvisible(numparticlevisible, 8) = vec(i, 8)
1050.                 vecvisible(numparticlevisible, 9) = vec(i, 9)
1051.                 vecvisible(numparticlevisible, 10) = vec(i, 10)
1052.             CASE "bacteria"
1053.                 numparticlevisible = numparticlevisible + 1
1054.                 vecvisible(numparticlevisible, 1) = vec(i, 1)
1055.                 vecvisible(numparticlevisible, 2) = vec(i, 2)
1056.                 vecvisible(numparticlevisible, 3) = vec(i, 3)
1057.                 vecvisible(numparticlevisible, 4) = vec(i, 4)
1058.                 vecvisible(numparticlevisible, 5) = vec(i, 5)
1059.                 vecvisible(numparticlevisible, 6) = vec(i, 6)
1060.                 vecvisible(numparticlevisible, 7) = vec(i, 7)
1061.                 vecvisible(numparticlevisible, 8) = vec(i, 8)
1062.                 vecvisible(numparticlevisible, 9) = vec(i, 9)
1063.                 vecvisible(numparticlevisible, 10) = vec(i, 10)
1064.             CASE "neuron"
1065.                 numparticlevisible = numparticlevisible + 1
1066.                 vecvisible(numparticlevisible, 1) = vec(i, 1)
1067.                 vecvisible(numparticlevisible, 2) = vec(i, 2)
1068.                 vecvisible(numparticlevisible, 3) = vec(i, 3)
1069.                 vecvisible(numparticlevisible, 4) = vec(i, 4)
1070.                 vecvisible(numparticlevisible, 5) = vec(i, 5)
1071.                 vecvisible(numparticlevisible, 6) = vec(i, 6)
1072.                 vecvisible(numparticlevisible, 7) = vec(i, 7)
1073.                 vecvisible(numparticlevisible, 8) = vec(i, 8)
1074.                 vecvisible(numparticlevisible, 9) = vec(i, 9)
1075.                 vecvisible(numparticlevisible, 10) = vec(i, 10)
1076.                 vecvisible(numparticlevisible, 11) = vec(i, 11)
1077.                 vecvisible(numparticlevisible, 12) = vec(i, 12)
1078.                 vecvisible(numparticlevisible, 13) = vec(i, 13)
1079.                 vecvisible(numparticlevisible, 14) = vec(i, 14)
1080.                 vecvisible(numparticlevisible, 15) = vec(i, 15)
1081.             CASE ELSE
1082.                 numparticlevisible = numparticlevisible + 1
1083.                 vecvisible(numparticlevisible, 1) = vec(i, 1)
1084.                 vecvisible(numparticlevisible, 2) = vec(i, 2)
1085.                 vecvisible(numparticlevisible, 3) = vec(i, 3)
1086.                 vecvisible(numparticlevisible, 4) = vec(i, 4)
1087.         END SELECT
1088.     END IF
1089. NEXT
1090. RETURN
1091.  
1092. clip.particle.viewplanes:
1093. particleinview = 1
1094. fogswitch = -1
1095. ' Perform standard view plane clipping and determine depth 'fog effect'.
1096. givenplanex = nearplane(1)
1097. givenplaney = nearplane(2)
1098. givenplanez = nearplane(3)
1099. givenplaned = nearplane(4)
1100. IF vec(i, 1) * givenplanex + vec(i, 2) * givenplaney + vec(i, 3) * givenplanez - givenplaned < 0 THEN particleinview = 0
1101. givenplanex = farplane(1)
1102. givenplaney = farplane(2)
1103. givenplanez = farplane(3)
1104. givenplaned = farplane(4)
1105. IF vec(i, 1) * givenplanex + vec(i, 2) * givenplaney + vec(i, 3) * givenplanez - givenplaned < 0 THEN particleinview = 0
1106. IF togglehud = -1 THEN IF vec(i, 1) * givenplanex + vec(i, 2) * givenplaney + vec(i, 3) * givenplanez - givenplaned * .9 < 0 THEN fogswitch = 1
1107. givenplanex = rightplane(1)
1108. givenplaney = rightplane(2)
1109. givenplanez = rightplane(3)
1110. givenplaned = rightplane(4)
1111. IF vec(i, 1) * givenplanex + vec(i, 2) * givenplaney + vec(i, 3) * givenplanez - givenplaned < 0 THEN particleinview = 0
1112. givenplanex = leftplane(1)
1113. givenplaney = leftplane(2)
1114. givenplanez = leftplane(3)
1115. givenplaned = leftplane(4)
1116. IF vec(i, 1) * givenplanex + vec(i, 2) * givenplaney + vec(i, 3) * givenplanez - givenplaned < 0 THEN particleinview = 0
1117. givenplanex = topplane(1)
1118. givenplaney = topplane(2)
1119. givenplanez = topplane(3)
1120. givenplaned = topplane(4)
1121. IF vec(i, 1) * givenplanex + vec(i, 2) * givenplaney + vec(i, 3) * givenplanez - givenplaned < 0 THEN particleinview = 0
1122. givenplanex = bottomplane(1)
1123. givenplaney = bottomplane(2)
1124. givenplanez = bottomplane(3)
1125. givenplaned = bottomplane(4)
1126. IF vec(i, 1) * givenplanex + vec(i, 2) * givenplaney + vec(i, 3) * givenplanez - givenplaned < 0 THEN particleinview = 0
1127. IF particleinview = 1 AND togglehud = 1 THEN
1128.     ' Apply spotlight effect.
1129.     givenplanex = nearplanespotlight(1)
1130.     givenplaney = nearplanespotlight(2)
1131.     givenplanez = nearplanespotlight(3)
1132.     givenplaned = nearplanespotlight(4)
1133.     IF vec(i, 1) * givenplanex + vec(i, 2) * givenplaney + vec(i, 3) * givenplanez - givenplaned < 0 THEN fogswitch = 1
1134.     givenplanex = farplanespotlight(1)
1135.     givenplaney = farplanespotlight(2)
1136.     givenplanez = farplanespotlight(3)
1137.     givenplaned = farplanespotlight(4)
1138.     IF vec(i, 1) * givenplanex + vec(i, 2) * givenplaney + vec(i, 3) * givenplanez - givenplaned < 0 THEN fogswitch = 1
1139.     givenplanex = rightplanespotlight(1)
1140.     givenplaney = rightplanespotlight(2)
1141.     givenplanez = rightplanespotlight(3)
1142.     givenplaned = rightplanespotlight(4)
1143.     IF vec(i, 1) * givenplanex + vec(i, 2) * givenplaney + vec(i, 3) * givenplanez - givenplaned < 0 THEN fogswitch = 1
1144.     givenplanex = leftplanespotlight(1)
1145.     givenplaney = leftplanespotlight(2)
1146.     givenplanez = leftplanespotlight(3)
1147.     givenplaned = leftplanespotlight(4)
1148.     IF vec(i, 1) * givenplanex + vec(i, 2) * givenplaney + vec(i, 3) * givenplanez - givenplaned < 0 THEN fogswitch = 1
1149.     givenplanex = topplanespotlight(1)
1150.     givenplaney = topplanespotlight(2)
1151.     givenplanez = topplanespotlight(3)
1152.     givenplaned = topplanespotlight(4)
1153.     IF vec(i, 1) * givenplanex + vec(i, 2) * givenplaney + vec(i, 3) * givenplanez - givenplaned < 0 THEN fogswitch = 1
1154.     givenplanex = bottomplanespotlight(1)
1155.     givenplaney = bottomplanespotlight(2)
1156.     givenplanez = bottomplanespotlight(3)
1157.     givenplaned = bottomplanespotlight(4)
1158.     IF vec(i, 1) * givenplanex + vec(i, 2) * givenplaney + vec(i, 3) * givenplanez - givenplaned < 0 THEN fogswitch = 1
1159. END IF
1160. IF particleinview = 1 THEN
1161.     numparticlevisible = numparticlevisible + 1
1162.     vecvisible(numparticlevisible, 1) = vec(i, 1)
1163.     vecvisible(numparticlevisible, 2) = vec(i, 2)
1164.     vecvisible(numparticlevisible, 3) = vec(i, 3)
1165.     vecvisible(numparticlevisible, 4) = vec(i, 4)
1166.     IF fogswitch = 1 THEN vecvisible(numparticlevisible, 4) = 8
1167. END IF
1168. RETURN
1169.  
1170. project.particles:
1171. ' Project object vectors onto the screen plane.
1172. FOR i = 1 TO numparticlevisible
1173.     vecvisibledotnhat(i) = vecvisible(i, 1) * nhat(1) + vecvisible(i, 2) * nhat(2) + vecvisible(i, 3) * nhat(3)
1174.     vecvisiblepuv(i, 1) = (vecvisible(i, 1) * uhat(1) + vecvisible(i, 2) * uhat(2) + vecvisible(i, 3) * uhat(3))
1175.     vecvisiblepuv(i, 2) = (vecvisible(i, 1) * vhat(1) + vecvisible(i, 2) * vhat(2) + vecvisible(i, 3) * vhat(3))
1176. NEXT
1177. RETURN
1178.  
1179. depth.adjust.particles:
1180. IF falsedepth = 0 THEN
1181.     FOR i = 1 TO numparticlevisible
1182.         vecvisiblepuvs(i, 1) = vecvisiblepuv(i, 1) * fovd / vecvisibledotnhat(i)
1183.         vecvisiblepuvs(i, 2) = vecvisiblepuv(i, 2) * fovd / vecvisibledotnhat(i)
1184.     NEXT
1185. ELSE
1186.     FOR i = 1 TO numparticlevisible
1187.         vecvisiblepuvs(i, 1) = vecvisiblepuv(i, 1) * (1 + falsedepth * vecvisibledotnhat(i))
1188.         vecvisiblepuvs(i, 2) = vecvisiblepuv(i, 2) * (1 + falsedepth * vecvisibledotnhat(i))
1189.     NEXT
1190. END IF
1191. RETURN
1192.  
1193. draw.all.objects:
1194. SELECT CASE plotmode$
1195.     CASE "molecule": GOSUB plotmode.molecule
1196.     CASE "simplepoints": GOSUB plotmode.simplepoints
1197.     CASE "neighbortile": GOSUB plotmode.neighbortile
1198.     CASE "linearconnect": GOSUB plotmode.linearconnect
1199.     CASE "3denvparticles": GOSUB plotmode.3denvparticles
1200.     CASE "3denvdoublets"
1201.         IF numparticleorig > 0 THEN GOSUB plotmode.simplepoints
1202.         IF numdoubletorig > 0 THEN GOSUB plotmode.3denvdoublets
1203.     CASE "3denvtriplets": GOSUB plotmode.3denvtriplets
1204.     CASE "simplemesh": GOSUB plotmode.simplemesh
1205.     CASE "meshtech2": GOSUB plotmode.meshtech2
1206.     CASE "meshtech2planet": GOSUB plotmode.meshtech2planet
1207.     CASE "simplepointsbacteria": GOSUB plotmode.simplepointsbacteria
1208.     CASE "linearneuron": GOSUB plotmode.linearneuron
1209. END SELECT
1210. COLOR 7
1211. LOCATE 28, 23: PRINT "SPACE = toggle HUD,  ESC = quit."
1212. IF togglehud = 1 THEN
1213.     ' Replace basis vector triad.
1214.     x = 50 * xhatp.old(1): y = 50 * xhatp.old(2): GOSUB convert
1215.     LINE (centerx, centery)-(x, y), 0
1216.     x = 50 * yhatp.old(1): y = 50 * yhatp.old(2): GOSUB convert
1217.     LINE (centerx, centery)-(x, y), 0
1218.     x = 50 * zhatp.old(1): y = 50 * zhatp.old(2): GOSUB convert
1219.     LINE (centerx, centery)-(x, y), 0
1220.     x = 50 * xhatp(1): y = 50 * xhatp(2): GOSUB convert
1221.     LINE (centerx, centery)-(x, y), xhat(4)
1222.     x = 50 * yhatp(1): y = 50 * yhatp(2): GOSUB convert
1223.     LINE (centerx, centery)-(x, y), yhat(4)
1224.     x = 50 * zhatp(1): y = 50 * zhatp(2): GOSUB convert
1225.     LINE (centerx, centery)-(x, y), zhat(4)
1226.     COLOR 14
1227.     LOCATE 26, 2: PRINT "- MOVE -"
1228.     COLOR 15
1229.     LOCATE 27, 2: PRINT " q W e"
1230.     LOCATE 28, 2: PRINT " A S D"
1231.     COLOR 14
1232.     LOCATE 25, 68: PRINT "-   VIEW   -"
1233.     COLOR 15
1234.     LOCATE 26, 68: PRINT "  8  "
1235.     LOCATE 27, 68: PRINT "4   6"
1236.     LOCATE 28, 68: PRINT "  2  "
1237.     COLOR 7
1238.     LOCATE 26, 75: PRINT "7   9"
1239.     LOCATE 27, 75: PRINT "     "
1240.     LOCATE 28, 75: PRINT "1   3"
1241.     IF numparticleorig > 0 AND falsedepth = 0 THEN
1242.         COLOR 7
1243.         LOCATE 3, 2: PRINT "- Particle Info -"
1244.         LOCATE 4, 2: PRINT "   Total:"; numparticleorig
1245.         LOCATE 5, 2: PRINT " Visible:"; numparticlevisible
1246.         LOCATE 6, 2: PRINT " Percent:"; INT(100 * numparticlevisible / numparticleorig)
1247.         LOCATE 8, 2: PRINT " Press '/' to"
1248.         LOCATE 9, 2: PRINT " export view."
1249.         LOCATE 3, 65: PRINT "- View Planes -"
1250.         LOCATE 4, 65: PRINT " Far dist:"; -farplane(4)
1251.         LOCATE 5, 65: PRINT " Near dist:"; nearplane(4)
1252.         LOCATE 6, 65: PRINT " [,] shift Far"
1253.         LOCATE 7, 65: PRINT " <,> shift Near"
1254.         LOCATE 9, 65: PRINT "- Spotlight -"
1255.         LOCATE 10, 64: PRINT "  Center:"; spotlightcenter
1256.         LOCATE 11, 64: PRINT "  Thick:"; spotlightthickness
1257.         LOCATE 12, 64: PRINT "  Control keys:"
1258.         LOCATE 13, 64: PRINT "    ; ' - ="
1259.     END IF
1260. END IF
1261. IF toggletimealert = 1 THEN
1262.     COLOR 7
1263.     LOCATE 1, 25: PRINT "Press 'T' to toggle animation."
1264. END IF
1265. RETURN
1266.  
1267. store.screen.projections:
1268. xhatp.old(1) = xhatp(1): xhatp.old(2) = xhatp(2)
1269. yhatp.old(1) = yhatp(1): yhatp.old(2) = yhatp(2)
1270. zhatp.old(1) = zhatp(1): zhatp.old(2) = zhatp(2)
1271. FOR i = 1 TO numparticlevisible
1272.     vecvisiblepuvs.old(i, 1) = vecvisiblepuvs(i, 1)
1273.     vecvisiblepuvs.old(i, 2) = vecvisiblepuvs(i, 2)
1274. NEXT
1275. numparticlevisible.old = numparticlevisible
1276. FOR i = 1 TO numdoubletsnip
1277.     doubletsnippuvs.old(i, 1) = doubletsnippuvs(i, 1)
1278.     doubletsnippuvs.old(i, 2) = doubletsnippuvs(i, 2)
1279.     doubletsnippuvs.old(i, 3) = doubletsnippuvs(i, 3)
1280.     doubletsnippuvs.old(i, 4) = doubletsnippuvs(i, 4)
1281. NEXT
1282. numdoubletsnip.old = numdoubletsnip
1283. FOR i = 1 TO numtripletfinal
1284.     tripletfinalpuvs.old(i, 1) = tripletfinalpuvs(i, 1)
1285.     tripletfinalpuvs.old(i, 2) = tripletfinalpuvs(i, 2)
1286.     tripletfinalpuvs.old(i, 3) = tripletfinalpuvs(i, 3)
1287.     tripletfinalpuvs.old(i, 4) = tripletfinalpuvs(i, 4)
1288.     tripletfinalpuvs.old(i, 5) = tripletfinalpuvs(i, 5)
1289.     tripletfinalpuvs.old(i, 6) = tripletfinalpuvs(i, 6)
1290. NEXT
1291. numtripletfinal.old = numtripletfinal
1292. RETURN
1293.  
1294. compute.viewplanes:
1295. ' Define normal vectors to all view planes.
1296. nearplane(1) = -nhat(1)
1297. nearplane(2) = -nhat(2)
1298. nearplane(3) = -nhat(3)
1299. farplane(1) = nhat(1)
1300. farplane(2) = nhat(2)
1301. farplane(3) = nhat(3)
1302. rightplane(1) = (screenheight / 4) * fovd * uhat(1) - (screenheight / 4) * (screenwidth / 4) * nhat(1)
1303. rightplane(2) = (screenheight / 4) * fovd * uhat(2) - (screenheight / 4) * (screenwidth / 4) * nhat(2)
1304. rightplane(3) = (screenheight / 4) * fovd * uhat(3) - (screenheight / 4) * (screenwidth / 4) * nhat(3)
1305. mag = SQR((rightplane(1)) ^ 2 + (rightplane(2)) ^ 2 + (rightplane(3)) ^ 2)
1306. rightplane(1) = rightplane(1) / mag
1307. rightplane(2) = rightplane(2) / mag
1308. rightplane(3) = rightplane(3) / mag
1309. leftplane(1) = -(screenheight / 4) * fovd * uhat(1) - (screenheight / 4) * (screenwidth / 4) * nhat(1)
1310. leftplane(2) = -(screenheight / 4) * fovd * uhat(2) - (screenheight / 4) * (screenwidth / 4) * nhat(2)
1311. leftplane(3) = -(screenheight / 4) * fovd * uhat(3) - (screenheight / 4) * (screenwidth / 4) * nhat(3)
1312. mag = SQR((leftplane(1)) ^ 2 + (leftplane(2)) ^ 2 + (leftplane(3)) ^ 2)
1313. leftplane(1) = leftplane(1) / mag
1314. leftplane(2) = leftplane(2) / mag
1315. leftplane(3) = leftplane(3) / mag
1316. topplane(1) = (screenwidth / 4) * fovd * vhat(1) - (screenheight / 4) * (screenwidth / 4) * nhat(1)
1317. topplane(2) = (screenwidth / 4) * fovd * vhat(2) - (screenheight / 4) * (screenwidth / 4) * nhat(2)
1318. topplane(3) = (screenwidth / 4) * fovd * vhat(3) - (screenheight / 4) * (screenwidth / 4) * nhat(3)
1319. mag = SQR((topplane(1)) ^ 2 + (topplane(2)) ^ 2 + (topplane(3)) ^ 2)
1320. topplane(1) = topplane(1) / mag
1321. topplane(2) = topplane(2) / mag
1322. topplane(3) = topplane(3) / mag
1323. bottomplane(1) = -(screenwidth / 4) * fovd * vhat(1) - (screenheight / 4) * (screenwidth / 4) * nhat(1)
1324. bottomplane(2) = -(screenwidth / 4) * fovd * vhat(2) - (screenheight / 4) * (screenwidth / 4) * nhat(2)
1325. bottomplane(3) = -(screenwidth / 4) * fovd * vhat(3) - (screenheight / 4) * (screenwidth / 4) * nhat(3)
1326. mag = SQR((bottomplane(1)) ^ 2 + (bottomplane(2)) ^ 2 + (bottomplane(3)) ^ 2)
1327. bottomplane(1) = bottomplane(1) / mag
1328. bottomplane(2) = bottomplane(2) / mag
1329. bottomplane(3) = bottomplane(3) / mag
1330. IF togglehud = 1 THEN
1331.     nearplanespotlight(4) = spotlightcenter - spotlightthickness / 2
1332.     farplanespotlight(4) = -(spotlightcenter + spotlightthickness / 2)
1333.     nearplanespotlight(1) = -nhat(1)
1334.     nearplanespotlight(2) = -nhat(2)
1335.     nearplanespotlight(3) = -nhat(3)
1336.     farplanespotlight(1) = nhat(1)
1337.     farplanespotlight(2) = nhat(2)
1338.     farplanespotlight(3) = nhat(3)
1339.     rightplanespotlight(1) = (screenheight / (4 * spotlightwidth)) * fovd * uhat(1) - (screenheight / (4 * spotlightwidth)) * (screenwidth / (4 * spotlightwidth)) * nhat(1)
1340.     rightplanespotlight(2) = (screenheight / (4 * spotlightwidth)) * fovd * uhat(2) - (screenheight / (4 * spotlightwidth)) * (screenwidth / (4 * spotlightwidth)) * nhat(2)
1341.     rightplanespotlight(3) = (screenheight / (4 * spotlightwidth)) * fovd * uhat(3) - (screenheight / (4 * spotlightwidth)) * (screenwidth / (4 * spotlightwidth)) * nhat(3)
1342.     mag = SQR((rightplanespotlight(1)) ^ 2 + (rightplanespotlight(2)) ^ 2 + (rightplanespotlight(3)) ^ 2)
1343.     rightplanespotlight(1) = rightplanespotlight(1) / mag
1344.     rightplanespotlight(2) = rightplanespotlight(2) / mag
1345.     rightplanespotlight(3) = rightplanespotlight(3) / mag
1346.     leftplanespotlight(1) = -(screenheight / (4 * spotlightwidth)) * fovd * uhat(1) - (screenheight / (4 * spotlightwidth)) * (screenwidth / (4 * spotlightwidth)) * nhat(1)
1347.     leftplanespotlight(2) = -(screenheight / (4 * spotlightwidth)) * fovd * uhat(2) - (screenheight / (4 * spotlightwidth)) * (screenwidth / (4 * spotlightwidth)) * nhat(2)
1348.     leftplanespotlight(3) = -(screenheight / (4 * spotlightwidth)) * fovd * uhat(3) - (screenheight / (4 * spotlightwidth)) * (screenwidth / (4 * spotlightwidth)) * nhat(3)
1349.     mag = SQR((leftplanespotlight(1)) ^ 2 + (leftplanespotlight(2)) ^ 2 + (leftplanespotlight(3)) ^ 2)
1350.     leftplanespotlight(1) = leftplanespotlight(1) / mag
1351.     leftplanespotlight(2) = leftplanespotlight(2) / mag
1352.     leftplanespotlight(3) = leftplanespotlight(3) / mag
1353.     topplanespotlight(1) = (screenwidth / (4 * spotlightwidth)) * fovd * vhat(1) - (screenheight / (4 * spotlightwidth)) * (screenwidth / (4 * spotlightwidth)) * nhat(1)
1354.     topplanespotlight(2) = (screenwidth / (4 * spotlightwidth)) * fovd * vhat(2) - (screenheight / (4 * spotlightwidth)) * (screenwidth / (4 * spotlightwidth)) * nhat(2)
1355.     topplanespotlight(3) = (screenwidth / (4 * spotlightwidth)) * fovd * vhat(3) - (screenheight / (4 * spotlightwidth)) * (screenwidth / (4 * spotlightwidth)) * nhat(3)
1356.     mag = SQR((topplanespotlight(1)) ^ 2 + (topplanespotlight(2)) ^ 2 + (topplanespotlight(3)) ^ 2)
1357.     topplanespotlight(1) = topplanespotlight(1) / mag
1358.     topplanespotlight(2) = topplanespotlight(2) / mag
1359.     topplanespotlight(3) = topplanespotlight(3) / mag
1360.     bottomplanespotlight(1) = -(screenwidth / (4 * spotlightwidth)) * fovd * vhat(1) - (screenheight / (4 * spotlightwidth)) * (screenwidth / (4 * spotlightwidth)) * nhat(1)
1361.     bottomplanespotlight(2) = -(screenwidth / (4 * spotlightwidth)) * fovd * vhat(2) - (screenheight / (4 * spotlightwidth)) * (screenwidth / (4 * spotlightwidth)) * nhat(2)
1362.     bottomplanespotlight(3) = -(screenwidth / (4 * spotlightwidth)) * fovd * vhat(3) - (screenheight / (4 * spotlightwidth)) * (screenwidth / (4 * spotlightwidth)) * nhat(3)
1363.     mag = SQR((bottomplanespotlight(1)) ^ 2 + (bottomplanespotlight(2)) ^ 2 + (bottomplanespotlight(3)) ^ 2)
1364.     bottomplanespotlight(1) = bottomplanespotlight(1) / mag
1365.     bottomplanespotlight(2) = bottomplanespotlight(2) / mag
1366.     bottomplanespotlight(3) = bottomplanespotlight(3) / mag
1367. END IF
1368. RETURN
1369.  
1370. ' *** Define functions for doublet manipulations. ***
1371.  
1372. project.doublets:
1373. FOR i = 1 TO numdoubletclip
1374.     doubletclipdotnhat(i, 1) = doubletclip(i, 1) * nhat(1) + doubletclip(i, 2) * nhat(2) + doubletclip(i, 3) * nhat(3)
1375.     doubletclipdotnhat(i, 2) = doubletclip(i, 4) * nhat(1) + doubletclip(i, 5) * nhat(2) + doubletclip(i, 6) * nhat(3)
1376.     doubletclippuv(i, 1) = doubletclip(i, 1) * uhat(1) + doubletclip(i, 2) * uhat(2) + doubletclip(i, 3) * uhat(3)
1377.     doubletclippuv(i, 2) = doubletclip(i, 1) * vhat(1) + doubletclip(i, 2) * vhat(2) + doubletclip(i, 3) * vhat(3)
1378.     doubletclippuv(i, 3) = doubletclip(i, 4) * uhat(1) + doubletclip(i, 5) * uhat(2) + doubletclip(i, 6) * uhat(3)
1379.     doubletclippuv(i, 4) = doubletclip(i, 4) * vhat(1) + doubletclip(i, 5) * vhat(2) + doubletclip(i, 6) * vhat(3)
1380. NEXT
1381. FOR i = 1 TO numdoubletsnip
1382.     doubletsnipdotnhat(i, 1) = doubletsnip(i, 1) * nhat(1) + doubletsnip(i, 2) * nhat(2) + doubletsnip(i, 3) * nhat(3)
1383.     doubletsnipdotnhat(i, 2) = doubletsnip(i, 4) * nhat(1) + doubletsnip(i, 5) * nhat(2) + doubletsnip(i, 6) * nhat(3)
1384.     doubletsnippuv(i, 1) = doubletsnip(i, 1) * uhat(1) + doubletsnip(i, 2) * uhat(2) + doubletsnip(i, 3) * uhat(3)
1385.     doubletsnippuv(i, 2) = doubletsnip(i, 1) * vhat(1) + doubletsnip(i, 2) * vhat(2) + doubletsnip(i, 3) * vhat(3)
1386.     doubletsnippuv(i, 3) = doubletsnip(i, 4) * uhat(1) + doubletsnip(i, 5) * uhat(2) + doubletsnip(i, 6) * uhat(3)
1387.     doubletsnippuv(i, 4) = doubletsnip(i, 4) * vhat(1) + doubletsnip(i, 5) * vhat(2) + doubletsnip(i, 6) * vhat(3)
1388. NEXT
1389. RETURN
1390.  
1391. depth.adjust.doublets:
1392. FOR i = 1 TO numdoubletclip
1393.     doubletclippuvs(i, 1) = doubletclippuv(i, 1) * fovd / doubletclipdotnhat(i, 1)
1394.     doubletclippuvs(i, 2) = doubletclippuv(i, 2) * fovd / doubletclipdotnhat(i, 1)
1395.     doubletclippuvs(i, 3) = doubletclippuv(i, 3) * fovd / doubletclipdotnhat(i, 2)
1396.     doubletclippuvs(i, 4) = doubletclippuv(i, 4) * fovd / doubletclipdotnhat(i, 2)
1397. NEXT
1398. FOR i = 1 TO numdoubletsnip
1399.     doubletsnippuvs(i, 1) = doubletsnippuv(i, 1) * fovd / doubletsnipdotnhat(i, 1)
1400.     doubletsnippuvs(i, 2) = doubletsnippuv(i, 2) * fovd / doubletsnipdotnhat(i, 1)
1401.     doubletsnippuvs(i, 3) = doubletsnippuv(i, 3) * fovd / doubletsnipdotnhat(i, 2)
1402.     doubletsnippuvs(i, 4) = doubletsnippuv(i, 4) * fovd / doubletsnipdotnhat(i, 2)
1403. NEXT
1404. RETURN
1405.  
1406. ' *** Define functions for doublet viewplane clipping. ***
1407.  
1408. copy.doublets.orig.clip:
1409. FOR i = 1 TO numdoubletorig
1410.     doubletclip(i, 1) = doubletorig(i, 1)
1411.     doubletclip(i, 2) = doubletorig(i, 2)
1412.     doubletclip(i, 3) = doubletorig(i, 3)
1413.     doubletclip(i, 4) = doubletorig(i, 4)
1414.     doubletclip(i, 5) = doubletorig(i, 5)
1415.     doubletclip(i, 6) = doubletorig(i, 6)
1416.     doubletclip(i, 7) = doubletorig(i, 7)
1417. NEXT
1418. numdoubletclip = numdoubletorig
1419. RETURN
1420.  
1421. copy.doublets.clipwork.clip:
1422. FOR i = 1 TO pcountdoubletclipwork
1423.     doubletclip(i, 1) = doubletclipwork(i, 1)
1424.     doubletclip(i, 2) = doubletclipwork(i, 2)
1425.     doubletclip(i, 3) = doubletclipwork(i, 3)
1426.     doubletclip(i, 4) = doubletclipwork(i, 4)
1427.     doubletclip(i, 5) = doubletclipwork(i, 5)
1428.     doubletclip(i, 6) = doubletclipwork(i, 6)
1429.     doubletclip(i, 7) = doubletclipwork(i, 7)
1430. NEXT
1431. numdoubletclip = pcountdoubletclipwork
1432. RETURN
1433.  
1434. 'clip.doublets.nearplane:
1435. 'pcountdoubletclipwork = 0
1436. 'FOR i = 1 TO numdoubletclip
1437. '    doubletclip1dotnearplane = doubletclip(i, 1) * nearplane(1) + doubletclip(i, 2) * nearplane(2) + doubletclip(i, 3) * nearplane(3)
1438. '    doubletclip2dotnearplane = doubletclip(i, 4) * nearplane(1) + doubletclip(i, 5) * nearplane(2) + doubletclip(i, 6) * nearplane(3)
1439. '    gamma = doubletclip2dotnearplane / doubletclip1dotnearplane
1440. '    Ax = (doubletclip(i, 1) - doubletclip(i, 4)) / (1 - gamma)
1441. '    Ay = (doubletclip(i, 2) - doubletclip(i, 5)) / (1 - gamma)
1442. '    Az = (doubletclip(i, 3) - doubletclip(i, 6)) / (1 - gamma)
1443. '    Bx = gamma * Ax
1444. '    By = gamma * Ay
1445. '    Bz = gamma * Az
1446. '    Adotnearplane = Ax * nearplane(1) + Ay * nearplane(2) + Az * nearplane(3)
1447. '    Bdotnearplane = Bx * nearplane(1) + By * nearplane(2) + Bz * nearplane(3)
1448. '    IF Adotnearplane > nearplane(4) AND Bdotnearplane > nearplane(4) THEN
1449. '        pcountdoubletclipwork = pcountdoubletclipwork + 1
1450. '        doubletclipwork(pcountdoubletclipwork, 1) = doubletclip(i, 1)
1451. '        doubletclipwork(pcountdoubletclipwork, 2) = doubletclip(i, 2)
1452. '        doubletclipwork(pcountdoubletclipwork, 3) = doubletclip(i, 3)
1453. '        doubletclipwork(pcountdoubletclipwork, 4) = doubletclip(i, 4)
1454. '        doubletclipwork(pcountdoubletclipwork, 5) = doubletclip(i, 5)
1455. '        doubletclipwork(pcountdoubletclipwork, 6) = doubletclip(i, 6)
1456. '        doubletclipwork(pcountdoubletclipwork, 7) = doubletclip(i, 7)
1457. '    END IF
1458. '    IF Adotnearplane < nearplane(4) AND Bdotnearplane < nearplane(4) THEN
1459. '    END IF
1460. '    IF Adotnearplane > nearplane(4) AND Bdotnearplane < nearplane(4) THEN
1461. '        pcountdoubletclipwork = pcountdoubletclipwork + 1
1462. '        doubletclipwork(pcountdoubletclipwork, 1) = doubletclip(i, 1)
1463. '        doubletclipwork(pcountdoubletclipwork, 2) = doubletclip(i, 2)
1464. '        doubletclipwork(pcountdoubletclipwork, 3) = doubletclip(i, 3)
1465. '        doubletclipwork(pcountdoubletclipwork, 4) = doubletclip(i, 4) - Bx + nearplane(4) * nearplane(1)
1466. '        doubletclipwork(pcountdoubletclipwork, 5) = doubletclip(i, 5) - By + nearplane(4) * nearplane(2)
1467. '        doubletclipwork(pcountdoubletclipwork, 6) = doubletclip(i, 6) - Bz + nearplane(4) * nearplane(3)
1468. '        doubletclipwork(pcountdoubletclipwork, 7) = doubletclip(i, 7)
1469. '    END IF
1470. '    IF Adotnearplane < nearplane(4) AND Bdotnearplane > nearplane(4) THEN
1471. '        pcountdoubletclipwork = pcountdoubletclipwork + 1
1472. '        doubletclipwork(pcountdoubletclipwork, 1) = doubletclip(i, 1) - Ax + nearplane(4) * nearplane(1)
1473. '        doubletclipwork(pcountdoubletclipwork, 2) = doubletclip(i, 2) - Ay + nearplane(4) * nearplane(2)
1474. '        doubletclipwork(pcountdoubletclipwork, 3) = doubletclip(i, 3) - Az + nearplane(4) * nearplane(3)
1475. '        doubletclipwork(pcountdoubletclipwork, 4) = doubletclip(i, 4)
1476. '        doubletclipwork(pcountdoubletclipwork, 5) = doubletclip(i, 5)
1477. '        doubletclipwork(pcountdoubletclipwork, 6) = doubletclip(i, 6)
1478. '        doubletclipwork(pcountdoubletclipwork, 7) = doubletclip(i, 7)
1479. '    END IF
1480. 'NEXT
1481. 'RETURN
1482.  
1483. clip.doublets.viewplanes:
1484. givenplanex = nearplane(1)
1485. givenplaney = nearplane(2)
1486. givenplanez = nearplane(3)
1487. givenplaned = nearplane(4)
1488. GOSUB clip.doublets.givenplane
1489. GOSUB copy.doublets.clipwork.clip
1490. givenplanex = rightplane(1)
1491. givenplaney = rightplane(2)
1492. givenplanez = rightplane(3)
1493. givenplaned = rightplane(4)
1494. GOSUB clip.doublets.givenplane
1495. GOSUB copy.doublets.clipwork.clip
1496. givenplanex = leftplane(1)
1497. givenplaney = leftplane(2)
1498. givenplanez = leftplane(3)
1499. givenplaned = leftplane(4)
1500. GOSUB clip.doublets.givenplane
1501. GOSUB copy.doublets.clipwork.clip
1502. givenplanex = topplane(1)
1503. givenplaney = topplane(2)
1504. givenplanez = topplane(3)
1505. givenplaned = topplane(4)
1506. GOSUB clip.doublets.givenplane
1507. GOSUB copy.doublets.clipwork.clip
1508. givenplanex = bottomplane(1)
1509. givenplaney = bottomplane(2)
1510. givenplanez = bottomplane(3)
1511. givenplaned = bottomplane(4)
1512. GOSUB clip.doublets.givenplane
1513. GOSUB copy.doublets.clipwork.clip
1514. RETURN
1515.  
1516. clip.doublets.givenplane:
1517. pcountdoubletclipwork = 0
1518. FOR i = 1 TO numdoubletclip
1519.     doubletclip1dotgivenplane = doubletclip(i, 1) * givenplanex + doubletclip(i, 2) * givenplaney + doubletclip(i, 3) * givenplanez
1520.     doubletclip2dotgivenplane = doubletclip(i, 4) * givenplanex + doubletclip(i, 5) * givenplaney + doubletclip(i, 6) * givenplanez
1521.     gamma = doubletclip2dotgivenplane / doubletclip1dotgivenplane
1522.     Ax = (doubletclip(i, 1) - doubletclip(i, 4)) / (1 - gamma)
1523.     Ay = (doubletclip(i, 2) - doubletclip(i, 5)) / (1 - gamma)
1524.     Az = (doubletclip(i, 3) - doubletclip(i, 6)) / (1 - gamma)
1525.     Bx = gamma * Ax
1526.     By = gamma * Ay
1527.     Bz = gamma * Az
1528.     Adotgivenplane = Ax * givenplanex + Ay * givenplaney + Az * givenplanez - givenplaned
1529.     Bdotgivenplane = Bx * givenplanex + By * givenplaney + Bz * givenplanez - givenplaned
1530.     IF Adotgivenplane > 0 AND Bdotgivenplane > 0 THEN
1531.         pcountdoubletclipwork = pcountdoubletclipwork + 1
1532.         doubletclipwork(pcountdoubletclipwork, 1) = doubletclip(i, 1)
1533.         doubletclipwork(pcountdoubletclipwork, 2) = doubletclip(i, 2)
1534.         doubletclipwork(pcountdoubletclipwork, 3) = doubletclip(i, 3)
1535.         doubletclipwork(pcountdoubletclipwork, 4) = doubletclip(i, 4)
1536.         doubletclipwork(pcountdoubletclipwork, 5) = doubletclip(i, 5)
1537.         doubletclipwork(pcountdoubletclipwork, 6) = doubletclip(i, 6)
1538.         doubletclipwork(pcountdoubletclipwork, 7) = doubletclip(i, 7)
1539.     END IF
1540.     IF Adotgivenplane > 0 AND Bdotgivenplane < 0 THEN
1541.         pcountdoubletclipwork = pcountdoubletclipwork + 1
1542.         doubletclipwork(pcountdoubletclipwork, 1) = doubletclip(i, 1)
1543.         doubletclipwork(pcountdoubletclipwork, 2) = doubletclip(i, 2)
1544.         doubletclipwork(pcountdoubletclipwork, 3) = doubletclip(i, 3)
1545.         doubletclipwork(pcountdoubletclipwork, 4) = doubletclip(i, 4) - Bx + givenplaned * givenplanex
1546.         doubletclipwork(pcountdoubletclipwork, 5) = doubletclip(i, 5) - By + givenplaned * givenplaney
1547.         doubletclipwork(pcountdoubletclipwork, 6) = doubletclip(i, 6) - Bz + givenplaned * givenplanez
1548.         doubletclipwork(pcountdoubletclipwork, 7) = doubletclip(i, 7)
1549.     END IF
1550.     IF Adotgivenplane < 0 AND Bdotgivenplane > 0 THEN
1551.         pcountdoubletclipwork = pcountdoubletclipwork + 1
1552.         doubletclipwork(pcountdoubletclipwork, 1) = doubletclip(i, 1) - Ax + givenplaned * givenplanex
1553.         doubletclipwork(pcountdoubletclipwork, 2) = doubletclip(i, 2) - Ay + givenplaned * givenplaney
1554.         doubletclipwork(pcountdoubletclipwork, 3) = doubletclip(i, 3) - Az + givenplaned * givenplanez
1555.         doubletclipwork(pcountdoubletclipwork, 4) = doubletclip(i, 4)
1556.         doubletclipwork(pcountdoubletclipwork, 5) = doubletclip(i, 5)
1557.         doubletclipwork(pcountdoubletclipwork, 6) = doubletclip(i, 6)
1558.         doubletclipwork(pcountdoubletclipwork, 7) = doubletclip(i, 7)
1559.     END IF
1560. NEXT
1561. RETURN
1562.  
1563. ' *** Define functions for doublet snipping. ***
1564.  
1565. copy.doublets.clip.snip:
1566. FOR i = 1 TO numdoubletclip
1567.     doubletsnip(i, 1) = doubletclip(i, 1)
1568.     doubletsnip(i, 2) = doubletclip(i, 2)
1569.     doubletsnip(i, 3) = doubletclip(i, 3)
1570.     doubletsnip(i, 4) = doubletclip(i, 4)
1571.     doubletsnip(i, 5) = doubletclip(i, 5)
1572.     doubletsnip(i, 6) = doubletclip(i, 6)
1573.     doubletsnip(i, 7) = doubletclip(i, 7)
1574. NEXT
1575. numdoubletsnip = numdoubletclip
1576. RETURN
1577.  
1578. copy.doublets.snipwork.snip:
1579. FOR i = 1 TO snipworkpcount
1580.     doubletsnip(i, 1) = doubletsnipwork(i, 1)
1581.     doubletsnip(i, 2) = doubletsnipwork(i, 2)
1582.     doubletsnip(i, 3) = doubletsnipwork(i, 3)
1583.     doubletsnip(i, 4) = doubletsnipwork(i, 4)
1584.     doubletsnip(i, 5) = doubletsnipwork(i, 5)
1585.     doubletsnip(i, 6) = doubletsnipwork(i, 6)
1586.     doubletsnip(i, 7) = doubletsnipwork(i, 7)
1587. NEXT
1588. numdoubletsnip = snipworkpcount
1589. RETURN
1590.  
1591. snip.doublets:
1592. snipworkpcount = 0
1593. FOR i = 1 TO numdoubletsnip
1594.     Ax = doubletsnip(i, 1)
1595.     Ay = doubletsnip(i, 2)
1596.     Az = doubletsnip(i, 3)
1597.     Bx = doubletsnip(i, 4)
1598.     By = doubletsnip(i, 5)
1599.     Bz = doubletsnip(i, 6)
1600.     Au = doubletsnippuv(i, 1)
1601.     Av = doubletsnippuv(i, 2)
1602.     Bu = doubletsnippuv(i, 3)
1603.     Bv = doubletsnippuv(i, 4)
1604.     An = doubletsnipdotnhat(i, 1)
1605.     Bn = doubletsnipdotnhat(i, 2)
1606.     Asu = doubletsnippuvs(i, 1)
1607.     Asv = doubletsnippuvs(i, 2)
1608.     Bsu = doubletsnippuvs(i, 3)
1609.     Bsv = doubletsnippuvs(i, 4)
1610.     numintersections = 0
1611.     FOR j = 1 TO numdoubletsnip
1612.         IF i <> j THEN
1613.             Cx = doubletsnip(j, 1)
1614.             Cy = doubletsnip(j, 2)
1615.             Cz = doubletsnip(j, 3)
1616.             Dx = doubletsnip(j, 4)
1617.             Dy = doubletsnip(j, 5)
1618.             Dz = doubletsnip(j, 6)
1619.             Cu = doubletsnippuv(j, 1)
1620.             Cv = doubletsnippuv(j, 2)
1621.             Du = doubletsnippuv(j, 3)
1622.             Dv = doubletsnippuv(j, 4)
1623.             Cn = doubletsnipdotnhat(j, 1)
1624.             Dn = doubletsnipdotnhat(j, 2)
1625.             Csu = doubletsnippuvs(j, 1)
1626.             Csv = doubletsnippuvs(j, 2)
1627.             Dsu = doubletsnippuvs(j, 3)
1628.             Dsv = doubletsnippuvs(j, 4)
1629.             magdoubletABps = SQR((Bsu - Asu) ^ 2 + (Bsv - Asv) ^ 2)
1630.             magdoubletCDps = SQR((Dsu - Csu) ^ 2 + (Dsv - Csv) ^ 2)
1631.             slopeAB = (Bsv - Asv) / (Bsu - Asu)
1632.             intAB = Asv - slopeAB * Asu
1633.             slopeCD = (Dsv - Csv) / (Dsu - Csu)
1634.             intCD = Csv - slopeCD * Csu
1635.             xstar = -(intAB - intCD) / (slopeAB - slopeCD)
1636.             ystar = slopeAB * xstar + intAB
1637.             alphaAB1u = -xstar + Asu
1638.             alphaAB1v = -ystar + Asv
1639.             alphaAB2u = -xstar + Bsu
1640.             alphaAB2v = -ystar + Bsv
1641.             alphaCD1u = -xstar + Csu
1642.             alphaCD1v = -ystar + Csv
1643.             alphaCD2u = -xstar + Dsu
1644.             alphaCD2v = -ystar + Dsv
1645.             magalphaAB1 = SQR(alphaAB1u ^ 2 + alphaAB1v ^ 2)
1646.             magalphaAB2 = SQR(alphaAB2u ^ 2 + alphaAB2v ^ 2)
1647.             magalphaCD1 = SQR(alphaCD1u ^ 2 + alphaCD1v ^ 2)
1648.             magalphaCD2 = SQR(alphaCD2u ^ 2 + alphaCD2v ^ 2)
1649.             IF magalphaAB1 < magdoubletABps AND magalphaAB2 < magdoubletABps AND magalphaCD1 < magdoubletCDps AND magalphaCD2 < magdoubletCDps THEN
1650.                 qAB1u = (Asu - alphaAB1u) / fovd
1651.                 '*'qAB1v = (Asv - alphaAB1v) / fovd ' (Nonessential but interesting.)
1652.                 numerator = qAB1u * An - Au
1653.                 denominator = Bu - Au + qAB1u * (An - Bn)
1654.                 betaAB1 = numerator / denominator
1655.                 '*'betaAB2 = 1 - betaAB1 ' (Nonessential but interesting.)
1656.                 '*'qCD1u = (Csu - alphaCD1u) / fovd ' (Nonessential but interesting.)
1657.                 '*'numerator = qCD1u * Cn - Cu ' (Nonessential but interesting.)
1658.                 '*'denominator = Du - Cu + qCD1u * (Cn - Dn) ' (Nonessential but interesting.)
1659.                 '*'betaCD1 = numerator / denominator ' (Nonessential but interesting.)
1660.                 '*'betaCD2 = 1 - betaCD1 ' (Nonessential but interesting.)
1661.                 numintersections = numintersections + 1
1662.                 doubletintinfo(numintersections, 1) = j
1663.                 doubletintinfo(numintersections, 2) = betaAB1
1664.             END IF
1665.         END IF
1666.     NEXT
1667.     IF numintersections = 0 THEN
1668.         snipworkpcount = snipworkpcount + 1
1669.         doubletsnipwork(snipworkpcount, 1) = Ax
1670.         doubletsnipwork(snipworkpcount, 2) = Ay
1671.         doubletsnipwork(snipworkpcount, 3) = Az
1672.         doubletsnipwork(snipworkpcount, 4) = Bx
1673.         doubletsnipwork(snipworkpcount, 5) = By
1674.         doubletsnipwork(snipworkpcount, 6) = Bz
1675.         doubletsnipwork(snipworkpcount, 7) = doubletsnip(i, 7)
1676.     ELSE
1677.         IF numintersections = 1 THEN
1678.             snipworkpcount = snipworkpcount + 1
1679.             doubletsnipwork(snipworkpcount, 1) = Ax
1680.             doubletsnipwork(snipworkpcount, 2) = Ay
1681.             doubletsnipwork(snipworkpcount, 3) = Az
1682.             doubletsnipwork(snipworkpcount, 4) = Ax * (1 - doubletintinfo(1, 2)) + doubletintinfo(1, 2) * Bx
1683.             doubletsnipwork(snipworkpcount, 5) = Ay * (1 - doubletintinfo(1, 2)) + doubletintinfo(1, 2) * By
1684.             doubletsnipwork(snipworkpcount, 6) = Az * (1 - doubletintinfo(1, 2)) + doubletintinfo(1, 2) * Bz
1685.             doubletsnipwork(snipworkpcount, 7) = doubletsnip(i, 7)
1686.             snipworkpcount = snipworkpcount + 1
1687.             doubletsnipwork(snipworkpcount, 1) = Ax * (1 - doubletintinfo(1, 2)) + doubletintinfo(1, 2) * Bx
1688.             doubletsnipwork(snipworkpcount, 2) = Ay * (1 - doubletintinfo(1, 2)) + doubletintinfo(1, 2) * By
1689.             doubletsnipwork(snipworkpcount, 3) = Az * (1 - doubletintinfo(1, 2)) + doubletintinfo(1, 2) * Bz
1690.             doubletsnipwork(snipworkpcount, 4) = Bx
1691.             doubletsnipwork(snipworkpcount, 5) = By
1692.             doubletsnipwork(snipworkpcount, 6) = Bz
1693.             doubletsnipwork(snipworkpcount, 7) = doubletsnip(i, 7)
1694.         ELSE
1695.             snipworkpcount = snipworkpcount + 1
1696.             doubletsnipwork(snipworkpcount, 1) = Ax
1697.             doubletsnipwork(snipworkpcount, 2) = Ay
1698.             doubletsnipwork(snipworkpcount, 3) = Az
1699.             doubletsnipwork(snipworkpcount, 4) = Ax * (1 - doubletintinfo(1, 2)) + doubletintinfo(1, 2) * Bx
1700.             doubletsnipwork(snipworkpcount, 5) = Ay * (1 - doubletintinfo(1, 2)) + doubletintinfo(1, 2) * By
1701.             doubletsnipwork(snipworkpcount, 6) = Az * (1 - doubletintinfo(1, 2)) + doubletintinfo(1, 2) * Bz
1702.             doubletsnipwork(snipworkpcount, 7) = doubletsnip(i, 7)
1703.             snipworkpcount = snipworkpcount + 1
1704.             doubletsnipwork(snipworkpcount, 1) = Ax * (1 - doubletintinfo(numintersections, 2)) + doubletintinfo(numintersections, 2) * Bx
1705.             doubletsnipwork(snipworkpcount, 2) = Ay * (1 - doubletintinfo(numintersections, 2)) + doubletintinfo(numintersections, 2) * By
1706.             doubletsnipwork(snipworkpcount, 3) = Az * (1 - doubletintinfo(numintersections, 2)) + doubletintinfo(numintersections, 2) * Bz
1707.             doubletsnipwork(snipworkpcount, 4) = Bx
1708.             doubletsnipwork(snipworkpcount, 5) = By
1709.             doubletsnipwork(snipworkpcount, 6) = Bz
1710.             doubletsnipwork(snipworkpcount, 7) = doubletsnip(i, 7)
1711.             FOR k = 1 TO numintersections - 1
1712.                 snipworkpcount = snipworkpcount + 1
1713.                 doubletsnipwork(snipworkpcount, 1) = Ax * (1 - doubletintinfo(k, 2)) + doubletintinfo(k, 2) * Bx
1714.                 doubletsnipwork(snipworkpcount, 2) = Ay * (1 - doubletintinfo(k, 2)) + doubletintinfo(k, 2) * By
1715.                 doubletsnipwork(snipworkpcount, 3) = Az * (1 - doubletintinfo(k, 2)) + doubletintinfo(k, 2) * Bz
1716.                 doubletsnipwork(snipworkpcount, 4) = Ax * (1 - doubletintinfo(k + 1, 2)) + doubletintinfo(k + 1, 2) * Bx
1717.                 doubletsnipwork(snipworkpcount, 5) = Ay * (1 - doubletintinfo(k + 1, 2)) + doubletintinfo(k + 1, 2) * By
1718.                 doubletsnipwork(snipworkpcount, 6) = Az * (1 - doubletintinfo(k + 1, 2)) + doubletintinfo(k + 1, 2) * Bz
1719.                 doubletsnipwork(snipworkpcount, 7) = doubletsnip(i, 7)
1720.             NEXT
1721.         END IF
1722.     END IF
1723. NEXT
1724. RETURN
1725.  
1726. ' *** Define functions for triplet manipulations. ***
1727.  
1728. project.triplets:
1729. FOR i = 1 TO numtripletfinal
1730.     tripletfinaldotnhat(i, 1) = tripletfinal(i, 1) * nhat(1) + tripletfinal(i, 2) * nhat(2) + tripletfinal(i, 3) * nhat(3)
1731.     tripletfinaldotnhat(i, 2) = tripletfinal(i, 4) * nhat(1) + tripletfinal(i, 5) * nhat(2) + tripletfinal(i, 6) * nhat(3)
1732.     tripletfinaldotnhat(i, 3) = tripletfinal(i, 7) * nhat(1) + tripletfinal(i, 8) * nhat(2) + tripletfinal(i, 9) * nhat(3)
1733.     tripletfinalpuv(i, 1) = tripletfinal(i, 1) * uhat(1) + tripletfinal(i, 2) * uhat(2) + tripletfinal(i, 3) * uhat(3)
1734.     tripletfinalpuv(i, 2) = tripletfinal(i, 1) * vhat(1) + tripletfinal(i, 2) * vhat(2) + tripletfinal(i, 3) * vhat(3)
1735.     tripletfinalpuv(i, 3) = tripletfinal(i, 4) * uhat(1) + tripletfinal(i, 5) * uhat(2) + tripletfinal(i, 6) * uhat(3)
1736.     tripletfinalpuv(i, 4) = tripletfinal(i, 4) * vhat(1) + tripletfinal(i, 5) * vhat(2) + tripletfinal(i, 6) * vhat(3)
1737.     tripletfinalpuv(i, 5) = tripletfinal(i, 7) * uhat(1) + tripletfinal(i, 8) * uhat(2) + tripletfinal(i, 9) * uhat(3)
1738.     tripletfinalpuv(i, 6) = tripletfinal(i, 7) * vhat(1) + tripletfinal(i, 8) * vhat(2) + tripletfinal(i, 9) * vhat(3)
1739. NEXT
1740. RETURN
1741.  
1742. depth.adjust.triplets:
1743. FOR i = 1 TO numtripletfinal
1744.     tripletfinalpuvs(i, 1) = tripletfinalpuv(i, 1) * fovd / tripletfinaldotnhat(i, 1)
1745.     tripletfinalpuvs(i, 2) = tripletfinalpuv(i, 2) * fovd / tripletfinaldotnhat(i, 1)
1746.     tripletfinalpuvs(i, 3) = tripletfinalpuv(i, 3) * fovd / tripletfinaldotnhat(i, 2)
1747.     tripletfinalpuvs(i, 4) = tripletfinalpuv(i, 4) * fovd / tripletfinaldotnhat(i, 2)
1748.     tripletfinalpuvs(i, 5) = tripletfinalpuv(i, 5) * fovd / tripletfinaldotnhat(i, 3)
1749.     tripletfinalpuvs(i, 6) = tripletfinalpuv(i, 6) * fovd / tripletfinaldotnhat(i, 3)
1750. NEXT
1751. RETURN
1752.  
1753. ' *** Define functions for triplet backface culling. ***
1754.  
1755. triplet.filter.faceon:
1756. pcounttripletfaceon = 0
1757. FOR i = 1 TO numtripletorig
1758.     Ax = tripletorig(i, 4) - tripletorig(i, 1)
1759.     Ay = tripletorig(i, 5) - tripletorig(i, 2)
1760.     Az = tripletorig(i, 6) - tripletorig(i, 3)
1761.     Bx = tripletorig(i, 7) - tripletorig(i, 1)
1762.     By = tripletorig(i, 8) - tripletorig(i, 2)
1763.     Bz = tripletorig(i, 9) - tripletorig(i, 3)
1764.     centroiDx = (1 / 3) * (tripletorig(i, 1) + tripletorig(i, 4) + tripletorig(i, 7))
1765.     centroiDy = (1 / 3) * (tripletorig(i, 2) + tripletorig(i, 5) + tripletorig(i, 8))
1766.     centroidz = (1 / 3) * (tripletorig(i, 3) + tripletorig(i, 6) + tripletorig(i, 9))
1767.     PanelNormx = Ay * Bz - Az * By
1768.     PanelNormy = Az * Bx - Ax * Bz
1769.     PanelNormz = Ax * By - Ay * Bx
1770.     mag = SQR(PanelNormx ^ 2 + PanelNormy ^ 2 + PanelNormz ^ 2)
1771.     PanelNormx = PanelNormx / mag
1772.     PanelNormy = PanelNormy / mag
1773.     PanelNormz = PanelNormz / mag
1774.     panelnormdotnhat = PanelNormx * nhat(1) + PanelNormy * nhat(2) + PanelNormz * nhat(3)
1775.     cullpoint = PanelNormx * centroiDx + PanelNormy * centroiDy + PanelNormz * centroidz
1776.     IF panelnormdotnhat >= cullpoint THEN
1777.         pcounttripletfaceon = pcounttripletfaceon + 1
1778.         tripletfaceon(pcounttripletfaceon, 1) = tripletorig(i, 1)
1779.         tripletfaceon(pcounttripletfaceon, 2) = tripletorig(i, 2)
1780.         tripletfaceon(pcounttripletfaceon, 3) = tripletorig(i, 3)
1781.         tripletfaceon(pcounttripletfaceon, 4) = tripletorig(i, 4)
1782.         tripletfaceon(pcounttripletfaceon, 5) = tripletorig(i, 5)
1783.         tripletfaceon(pcounttripletfaceon, 6) = tripletorig(i, 6)
1784.         tripletfaceon(pcounttripletfaceon, 7) = tripletorig(i, 7)
1785.         tripletfaceon(pcounttripletfaceon, 8) = tripletorig(i, 8)
1786.         tripletfaceon(pcounttripletfaceon, 9) = tripletorig(i, 9)
1787.         tripletfaceon(pcounttripletfaceon, 10) = tripletorig(i, 10)
1788.     ELSE
1789.         'pcounttripletfaceon = pcounttripletfaceon + 1
1790.         'tripletfaceon(pcounttripletfaceon, 1) = tripletorig(i, 1)
1791.         'tripletfaceon(pcounttripletfaceon, 2) = tripletorig(i, 2)
1792.         'tripletfaceon(pcounttripletfaceon, 3) = tripletorig(i, 3)
1793.         'tripletfaceon(pcounttripletfaceon, 4) = tripletorig(i, 4)
1794.         'tripletfaceon(pcounttripletfaceon, 5) = tripletorig(i, 5)
1795.         'tripletfaceon(pcounttripletfaceon, 6) = tripletorig(i, 6)
1796.         'tripletfaceon(pcounttripletfaceon, 7) = tripletorig(i, 7)
1797.         'tripletfaceon(pcounttripletfaceon, 8) = tripletorig(i, 8)
1798.         'tripletfaceon(pcounttripletfaceon, 9) = tripletorig(i, 9)
1799.         'tripletfaceon(pcounttripletfaceon, 10) = 8
1800.     END IF
1801. NEXT
1802. numtripletfaceon = pcounttripletfaceon
1803. RETURN
1804.  
1805. ' *** Define functions for triplet viewplane clipping. ***
1806.  
1807.  
1808. copy.triplets.faceon.clip:
1809. FOR i = 1 TO numtripletfaceon
1810.     tripletclip(i, 1) = tripletfaceon(i, 1)
1811.     tripletclip(i, 2) = tripletfaceon(i, 2)
1812.     tripletclip(i, 3) = tripletfaceon(i, 3)
1813.     tripletclip(i, 4) = tripletfaceon(i, 4)
1814.     tripletclip(i, 5) = tripletfaceon(i, 5)
1815.     tripletclip(i, 6) = tripletfaceon(i, 6)
1816.     tripletclip(i, 7) = tripletfaceon(i, 7)
1817.     tripletclip(i, 8) = tripletfaceon(i, 8)
1818.     tripletclip(i, 9) = tripletfaceon(i, 9)
1819.     tripletclip(i, 10) = tripletfaceon(i, 10)
1820. NEXT
1821. numtripletclip = numtripletfaceon
1822. RETURN
1823.  
1824. copy.triplets.clipwork.clip:
1825. FOR i = 1 TO pcounttripletclipwork
1826.     tripletclip(i, 1) = tripletclipwork(i, 1)
1827.     tripletclip(i, 2) = tripletclipwork(i, 2)
1828.     tripletclip(i, 3) = tripletclipwork(i, 3)
1829.     tripletclip(i, 4) = tripletclipwork(i, 4)
1830.     tripletclip(i, 5) = tripletclipwork(i, 5)
1831.     tripletclip(i, 6) = tripletclipwork(i, 6)
1832.     tripletclip(i, 7) = tripletclipwork(i, 7)
1833.     tripletclip(i, 8) = tripletclipwork(i, 8)
1834.     tripletclip(i, 9) = tripletclipwork(i, 9)
1835.     tripletclip(i, 10) = tripletclipwork(i, 10)
1836. NEXT
1837. numtripletclip = pcounttripletclipwork
1838. RETURN
1839.  
1840. clip.triplets.viewplanes:
1841. givenplanex = nearplane(1)
1842. givenplaney = nearplane(2)
1843. givenplanez = nearplane(3)
1844. givenplaned = nearplane(4)
1845. GOSUB clip.triplets.givenplane
1846. GOSUB copy.triplets.clipwork.clip
1847. givenplanex = rightplane(1)
1848. givenplaney = rightplane(2)
1849. givenplanez = rightplane(3)
1850. givenplaned = rightplane(4)
1851. GOSUB clip.triplets.givenplane
1852. GOSUB copy.triplets.clipwork.clip
1853. givenplanex = leftplane(1)
1854. givenplaney = leftplane(2)
1855. givenplanez = leftplane(3)
1856. givenplaned = leftplane(4)
1857. GOSUB clip.triplets.givenplane
1858. GOSUB copy.triplets.clipwork.clip
1859. givenplanex = topplane(1)
1860. givenplaney = topplane(2)
1861. givenplanez = topplane(3)
1862. givenplaned = topplane(4)
1863. GOSUB clip.triplets.givenplane
1864. GOSUB copy.triplets.clipwork.clip
1865. givenplanex = bottomplane(1)
1866. givenplaney = bottomplane(2)
1867. givenplanez = bottomplane(3)
1868. givenplaned = bottomplane(4)
1869. GOSUB clip.triplets.givenplane
1870. GOSUB copy.triplets.clipwork.clip
1871. RETURN
1872.  
1873. clip.triplets.givenplane:
1874. pcounttripletclipwork = 0
1875. FOR i = 1 TO numtripletclip
1876.     tripletclip1dotgivenplane = tripletclip(i, 1) * givenplanex + tripletclip(i, 2) * givenplaney + tripletclip(i, 3) * givenplanez - givenplaned
1877.     tripletclip2dotgivenplane = tripletclip(i, 4) * givenplanex + tripletclip(i, 5) * givenplaney + tripletclip(i, 6) * givenplanez - givenplaned
1878.     tripletclip3dotgivenplane = tripletclip(i, 7) * givenplanex + tripletclip(i, 8) * givenplaney + tripletclip(i, 9) * givenplanez - givenplaned
1879.     gamma12 = tripletclip2dotgivenplane / tripletclip1dotgivenplane
1880.     gamma23 = tripletclip3dotgivenplane / tripletclip2dotgivenplane
1881.     gamma31 = tripletclip1dotgivenplane / tripletclip3dotgivenplane
1882.     A12x = (tripletclip(i, 1) - tripletclip(i, 4)) / (1 - gamma12)
1883.     A12y = (tripletclip(i, 2) - tripletclip(i, 5)) / (1 - gamma12)
1884.     A12z = (tripletclip(i, 3) - tripletclip(i, 6)) / (1 - gamma12)
1885.     B12x = gamma12 * A12x
1886.     B12y = gamma12 * A12y
1887.     B12z = gamma12 * A12z
1888.     A23x = (tripletclip(i, 4) - tripletclip(i, 7)) / (1 - gamma23)
1889.     A23y = (tripletclip(i, 5) - tripletclip(i, 8)) / (1 - gamma23)
1890.     A23z = (tripletclip(i, 6) - tripletclip(i, 9)) / (1 - gamma23)
1891.     B23x = gamma23 * A23x
1892.     B23y = gamma23 * A23y
1893.     B23z = gamma23 * A23z
1894.     A31x = (tripletclip(i, 7) - tripletclip(i, 1)) / (1 - gamma31)
1895.     A31y = (tripletclip(i, 8) - tripletclip(i, 2)) / (1 - gamma31)
1896.     A31z = (tripletclip(i, 9) - tripletclip(i, 3)) / (1 - gamma31)
1897.     B31x = gamma31 * A31x
1898.     B31y = gamma31 * A31y
1899.     B31z = gamma31 * A31z
1900.     A12dotgivenplane = A12x * givenplanex + A12y * givenplaney + A12z * givenplanez
1901.     B12dotgivenplane = B12x * givenplanex + B12y * givenplaney + B12z * givenplanez
1902.     A23dotgivenplane = A23x * givenplanex + A23y * givenplaney + A23z * givenplanez
1903.     B23dotgivenplane = B23x * givenplanex + B23y * givenplaney + B23z * givenplanez
1904.     A31dotgivenplane = A31x * givenplanex + A31y * givenplaney + A31z * givenplanez
1905.     B31dotgivenplane = B31x * givenplanex + B31y * givenplaney + B31z * givenplanez
1906.     IF A12dotgivenplane > 0 AND B12dotgivenplane > 0 AND A23dotgivenplane > 0 AND B23dotgivenplane > 0 AND A31dotgivenplane > 0 AND B31dotgivenplane > 0 THEN
1907.         pcounttripletclipwork = pcounttripletclipwork + 1
1908.         tripletclipwork(pcounttripletclipwork, 1) = tripletclip(i, 1)
1909.         tripletclipwork(pcounttripletclipwork, 2) = tripletclip(i, 2)
1910.         tripletclipwork(pcounttripletclipwork, 3) = tripletclip(i, 3)
1911.         tripletclipwork(pcounttripletclipwork, 4) = tripletclip(i, 4)
1912.         tripletclipwork(pcounttripletclipwork, 5) = tripletclip(i, 5)
1913.         tripletclipwork(pcounttripletclipwork, 6) = tripletclip(i, 6)
1914.         tripletclipwork(pcounttripletclipwork, 7) = tripletclip(i, 7)
1915.         tripletclipwork(pcounttripletclipwork, 8) = tripletclip(i, 8)
1916.         tripletclipwork(pcounttripletclipwork, 9) = tripletclip(i, 9)
1917.         tripletclipwork(pcounttripletclipwork, 10) = tripletclip(i, 10)
1918.         panelinview = 1
1919.     END IF
1920.     IF A12dotgivenplane > 0 AND B12dotgivenplane > 0 AND A23dotgivenplane > 0 AND B23dotgivenplane < 0 AND A31dotgivenplane < 0 AND B31dotgivenplane > 0 THEN
1921.         pcounttripletclipwork = pcounttripletclipwork + 1
1922.         tripletclipwork(pcounttripletclipwork, 1) = tripletclip(i, 1)
1923.         tripletclipwork(pcounttripletclipwork, 2) = tripletclip(i, 2)
1924.         tripletclipwork(pcounttripletclipwork, 3) = tripletclip(i, 3)
1925.         tripletclipwork(pcounttripletclipwork, 4) = tripletclip(i, 1) - B31x + givenplaned * givenplanex
1926.         tripletclipwork(pcounttripletclipwork, 5) = tripletclip(i, 2) - B31y + givenplaned * givenplaney
1927.         tripletclipwork(pcounttripletclipwork, 6) = tripletclip(i, 3) - B31z + givenplaned * givenplanez
1928.         tripletclipwork(pcounttripletclipwork, 7) = tripletclip(i, 7) - B23x + givenplaned * givenplanex
1929.         tripletclipwork(pcounttripletclipwork, 8) = tripletclip(i, 8) - B23y + givenplaned * givenplaney
1930.         tripletclipwork(pcounttripletclipwork, 9) = tripletclip(i, 9) - B23z + givenplaned * givenplanez
1931.         tripletclipwork(pcounttripletclipwork, 10) = tripletclip(i, 10)
1932.         pcounttripletclipwork = pcounttripletclipwork + 1
1933.         tripletclipwork(pcounttripletclipwork, 1) = tripletclip(i, 1)
1934.         tripletclipwork(pcounttripletclipwork, 2) = tripletclip(i, 2)
1935.         tripletclipwork(pcounttripletclipwork, 3) = tripletclip(i, 3)
1936.         tripletclipwork(pcounttripletclipwork, 4) = tripletclip(i, 4)
1937.         tripletclipwork(pcounttripletclipwork, 5) = tripletclip(i, 5)
1938.         tripletclipwork(pcounttripletclipwork, 6) = tripletclip(i, 6)
1939.         tripletclipwork(pcounttripletclipwork, 7) = tripletclip(i, 7) - B23x + givenplaned * givenplanex
1940.         tripletclipwork(pcounttripletclipwork, 8) = tripletclip(i, 8) - B23y + givenplaned * givenplaney
1941.         tripletclipwork(pcounttripletclipwork, 9) = tripletclip(i, 9) - B23z + givenplaned * givenplanez
1942.         tripletclipwork(pcounttripletclipwork, 10) = tripletclip(i, 10)
1943.     END IF
1944.     IF A12dotgivenplane < 0 AND B12dotgivenplane > 0 AND A23dotgivenplane > 0 AND B23dotgivenplane > 0 AND A31dotgivenplane > 0 AND B31dotgivenplane < 0 THEN
1945.         pcounttripletclipwork = pcounttripletclipwork + 1
1946.         tripletclipwork(pcounttripletclipwork, 1) = tripletclip(i, 7)
1947.         tripletclipwork(pcounttripletclipwork, 2) = tripletclip(i, 8)
1948.         tripletclipwork(pcounttripletclipwork, 3) = tripletclip(i, 9)
1949.         tripletclipwork(pcounttripletclipwork, 4) = tripletclip(i, 1) - B31x + givenplaned * givenplanex
1950.         tripletclipwork(pcounttripletclipwork, 5) = tripletclip(i, 2) - B31y + givenplaned * givenplaney
1951.         tripletclipwork(pcounttripletclipwork, 6) = tripletclip(i, 3) - B31z + givenplaned * givenplanez
1952.         tripletclipwork(pcounttripletclipwork, 7) = tripletclip(i, 4)
1953.         tripletclipwork(pcounttripletclipwork, 8) = tripletclip(i, 5)
1954.         tripletclipwork(pcounttripletclipwork, 9) = tripletclip(i, 6)
1955.         tripletclipwork(pcounttripletclipwork, 10) = tripletclip(i, 10)
1956.         pcounttripletclipwork = pcounttripletclipwork + 1
1957.         tripletclipwork(pcounttripletclipwork, 1) = tripletclip(i, 4)
1958.         tripletclipwork(pcounttripletclipwork, 2) = tripletclip(i, 5)
1959.         tripletclipwork(pcounttripletclipwork, 3) = tripletclip(i, 6)
1960.         tripletclipwork(pcounttripletclipwork, 4) = tripletclip(i, 1) - B31x + givenplaned * givenplanex
1961.         tripletclipwork(pcounttripletclipwork, 5) = tripletclip(i, 2) - B31y + givenplaned * givenplaney
1962.         tripletclipwork(pcounttripletclipwork, 6) = tripletclip(i, 3) - B31z + givenplaned * givenplanez
1963.         tripletclipwork(pcounttripletclipwork, 7) = tripletclip(i, 4) - B12x + givenplaned * givenplanex
1964.         tripletclipwork(pcounttripletclipwork, 8) = tripletclip(i, 5) - B12y + givenplaned * givenplaney
1965.         tripletclipwork(pcounttripletclipwork, 9) = tripletclip(i, 6) - B12z + givenplaned * givenplanez
1966.         tripletclipwork(pcounttripletclipwork, 10) = tripletclip(i, 10)
1967.     END IF
1968.     IF A12dotgivenplane > 0 AND B12dotgivenplane < 0 AND A23dotgivenplane < 0 AND B23dotgivenplane > 0 AND A31dotgivenplane > 0 AND B31dotgivenplane > 0 THEN
1969.         pcounttripletclipwork = pcounttripletclipwork + 1
1970.         tripletclipwork(pcounttripletclipwork, 1) = tripletclip(i, 1)
1971.         tripletclipwork(pcounttripletclipwork, 2) = tripletclip(i, 2)
1972.         tripletclipwork(pcounttripletclipwork, 3) = tripletclip(i, 3)
1973.         tripletclipwork(pcounttripletclipwork, 4) = tripletclip(i, 4) - B12x + givenplaned * givenplanex
1974.         tripletclipwork(pcounttripletclipwork, 5) = tripletclip(i, 5) - B12y + givenplaned * givenplaney
1975.         tripletclipwork(pcounttripletclipwork, 6) = tripletclip(i, 6) - B12z + givenplaned * givenplanez
1976.         tripletclipwork(pcounttripletclipwork, 7) = tripletclip(i, 7)
1977.         tripletclipwork(pcounttripletclipwork, 8) = tripletclip(i, 8)
1978.         tripletclipwork(pcounttripletclipwork, 9) = tripletclip(i, 9)
1979.         tripletclipwork(pcounttripletclipwork, 10) = tripletclip(i, 10)
1980.         pcounttripletclipwork = pcounttripletclipwork + 1
1981.         tripletclipwork(pcounttripletclipwork, 1) = tripletclip(i, 7)
1982.         tripletclipwork(pcounttripletclipwork, 2) = tripletclip(i, 8)
1983.         tripletclipwork(pcounttripletclipwork, 3) = tripletclip(i, 9)
1984.         tripletclipwork(pcounttripletclipwork, 4) = tripletclip(i, 4) - B12x + givenplaned * givenplanex
1985.         tripletclipwork(pcounttripletclipwork, 5) = tripletclip(i, 5) - B12y + givenplaned * givenplaney
1986.         tripletclipwork(pcounttripletclipwork, 6) = tripletclip(i, 6) - B12z + givenplaned * givenplanez
1987.         tripletclipwork(pcounttripletclipwork, 7) = tripletclip(i, 7) - B23x + givenplaned * givenplanex
1988.         tripletclipwork(pcounttripletclipwork, 8) = tripletclip(i, 8) - B23y + givenplaned * givenplaney
1989.         tripletclipwork(pcounttripletclipwork, 9) = tripletclip(i, 9) - B23z + givenplaned * givenplanez
1990.         tripletclipwork(pcounttripletclipwork, 10) = tripletclip(i, 10)
1991.     END IF
1992.     IF A12dotgivenplane > 0 AND B12dotgivenplane < 0 AND A23dotgivenplane < 0 AND B23dotgivenplane < 0 AND A31dotgivenplane < 0 AND B31dotgivenplane > 0 THEN
1993.         pcounttripletclipwork = pcounttripletclipwork + 1
1994.         tripletclipwork(pcounttripletclipwork, 1) = tripletclip(i, 1)
1995.         tripletclipwork(pcounttripletclipwork, 2) = tripletclip(i, 2)
1996.         tripletclipwork(pcounttripletclipwork, 3) = tripletclip(i, 3)
1997.         tripletclipwork(pcounttripletclipwork, 4) = tripletclip(i, 4) - B12x + givenplaned * givenplanex
1998.         tripletclipwork(pcounttripletclipwork, 5) = tripletclip(i, 5) - B12y + givenplaned * givenplaney
1999.         tripletclipwork(pcounttripletclipwork, 6) = tripletclip(i, 6) - B12z + givenplaned * givenplanez
2000.         tripletclipwork(pcounttripletclipwork, 7) = tripletclip(i, 1) - B31x + givenplaned * givenplanex
2001.         tripletclipwork(pcounttripletclipwork, 8) = tripletclip(i, 2) - B31y + givenplaned * givenplaney
2002.         tripletclipwork(pcounttripletclipwork, 9) = tripletclip(i, 3) - B31z + givenplaned * givenplanez
2003.         tripletclipwork(pcounttripletclipwork, 10) = tripletclip(i, 10)
2004.     END IF
2005.     IF A12dotgivenplane < 0 AND B12dotgivenplane > 0 AND A23dotgivenplane > 0 AND B23dotgivenplane < 0 AND A31dotgivenplane < 0 AND B31dotgivenplane < 0 THEN
2006.         pcounttripletclipwork = pcounttripletclipwork + 1
2007.         tripletclipwork(pcounttripletclipwork, 1) = tripletclip(i, 4)
2008.         tripletclipwork(pcounttripletclipwork, 2) = tripletclip(i, 5)
2009.         tripletclipwork(pcounttripletclipwork, 3) = tripletclip(i, 6)
2010.         tripletclipwork(pcounttripletclipwork, 4) = tripletclip(i, 7) - B23x + givenplaned * givenplanex
2011.         tripletclipwork(pcounttripletclipwork, 5) = tripletclip(i, 8) - B23y + givenplaned * givenplaney
2012.         tripletclipwork(pcounttripletclipwork, 6) = tripletclip(i, 9) - B23z + givenplaned * givenplanez
2013.         tripletclipwork(pcounttripletclipwork, 7) = tripletclip(i, 4) - B12x + givenplaned * givenplanex
2014.         tripletclipwork(pcounttripletclipwork, 8) = tripletclip(i, 5) - B12y + givenplaned * givenplaney
2015.         tripletclipwork(pcounttripletclipwork, 9) = tripletclip(i, 6) - B12z + givenplaned * givenplanez
2016.         tripletclipwork(pcounttripletclipwork, 10) = tripletclip(i, 10)
2017.     END IF
2018.     IF A12dotgivenplane < 0 AND B12dotgivenplane < 0 AND A23dotgivenplane < 0 AND B23dotgivenplane > 0 AND A31dotgivenplane > 0 AND B31dotgivenplane < 0 THEN
2019.         pcounttripletclipwork = pcounttripletclipwork + 1
2020.         tripletclipwork(pcounttripletclipwork, 1) = tripletclip(i, 7)
2021.         tripletclipwork(pcounttripletclipwork, 2) = tripletclip(i, 8)
2022.         tripletclipwork(pcounttripletclipwork, 3) = tripletclip(i, 9)
2023.         tripletclipwork(pcounttripletclipwork, 4) = tripletclip(i, 7) - B23x + givenplaned * givenplanex
2024.         tripletclipwork(pcounttripletclipwork, 5) = tripletclip(i, 8) - B23y + givenplaned * givenplaney
2025.         tripletclipwork(pcounttripletclipwork, 6) = tripletclip(i, 9) - B23z + givenplaned * givenplanez
2026.         tripletclipwork(pcounttripletclipwork, 7) = tripletclip(i, 1) - B31x + givenplaned * givenplanex
2027.         tripletclipwork(pcounttripletclipwork, 8) = tripletclip(i, 2) - B31y + givenplaned * givenplaney
2028.         tripletclipwork(pcounttripletclipwork, 9) = tripletclip(i, 3) - B31z + givenplaned * givenplanez
2029.         tripletclipwork(pcounttripletclipwork, 10) = tripletclip(i, 10)
2030.     END IF
2031. NEXT
2032. RETURN
2033.  
2034. ' *** Define functions for triplet snipping. ***
2035.  
2036. copy.triplets.clip.snip:
2037. FOR i = 1 TO numtripletclip
2038.     tripletsnip(i, 1) = tripletclip(i, 1)
2039.     tripletsnip(i, 2) = tripletclip(i, 2)
2040.     tripletsnip(i, 3) = tripletclip(i, 3)
2041.     tripletsnip(i, 4) = tripletclip(i, 4)
2042.     tripletsnip(i, 5) = tripletclip(i, 5)
2043.     tripletsnip(i, 6) = tripletclip(i, 6)
2044.     tripletsnip(i, 7) = tripletclip(i, 7)
2045.     tripletsnip(i, 8) = tripletclip(i, 8)
2046.     tripletsnip(i, 9) = tripletclip(i, 9)
2047.     tripletsnip(i, 10) = tripletclip(i, 10)
2048. NEXT
2049. numtripletsnip = numtripletclip
2050. RETURN
2051.  
2052. snip.triplets:
2053. snipworkpcount = 0
2054. FOR i = 1 TO numtripletsnip
2055.     pcounttripletsnipimage = 1
2056.     tripletsnipimage(1, 1) = tripletsnip(i, 1)
2057.     tripletsnipimage(1, 2) = tripletsnip(i, 2)
2058.     tripletsnipimage(1, 3) = tripletsnip(i, 3)
2059.     tripletsnipimage(1, 4) = tripletsnip(i, 4)
2060.     tripletsnipimage(1, 5) = tripletsnip(i, 5)
2061.     tripletsnipimage(1, 6) = tripletsnip(i, 6)
2062.     tripletsnipimage(1, 7) = tripletsnip(i, 7)
2063.     tripletsnipimage(1, 8) = tripletsnip(i, 8)
2064.     tripletsnipimage(1, 9) = tripletsnip(i, 9)
2065.     tripletsnipimage(1, 10) = tripletsnip(i, 10)
2066.     begintripletsnipsubloop:
2067.     FOR k = 1 TO pcounttripletsnipimage
2068.         FOR j = 1 TO numtripletsnip
2069.             IF j <> i THEN
2070.                 IF pcounttripletsnipimage > numtripletsnip + 5 THEN
2071.                     ' Error case. The 5 is completely arbitrary.
2072.                     GOTO bypasssniploop
2073.                 END IF
2074.                 Ax = tripletsnipimage(k, 1)
2075.                 Ay = tripletsnipimage(k, 2)
2076.                 Az = tripletsnipimage(k, 3)
2077.                 Bx = tripletsnipimage(k, 4)
2078.                 By = tripletsnipimage(k, 5)
2079.                 Bz = tripletsnipimage(k, 6)
2080.                 Cx = tripletsnipimage(k, 7)
2081.                 Cy = tripletsnipimage(k, 8)
2082.                 Cz = tripletsnipimage(k, 9)
2083.                 Au = Ax * uhat(1) + Ay * uhat(2) + Az * uhat(3)
2084.                 Av = Ax * vhat(1) + Ay * vhat(2) + Az * vhat(3)
2085.                 Bu = Bx * uhat(1) + By * uhat(2) + Bz * uhat(3)
2086.                 Bv = Bx * vhat(1) + By * vhat(2) + Bz * vhat(3)
2087.                 Cu = Cx * uhat(1) + Cy * uhat(2) + Cz * uhat(3)
2088.                 Cv = Cx * vhat(1) + Cy * vhat(2) + Cz * vhat(3)
2089.                 An = Ax * nhat(1) + Ay * nhat(2) + Az * nhat(3)
2090.                 Bn = Bx * nhat(1) + By * nhat(2) + Bz * nhat(3)
2091.                 Cn = Cx * nhat(1) + Cy * nhat(2) + Cz * nhat(3)
2092.                 Asu = Au * fovd / An
2093.                 Asv = Av * fovd / An
2094.                 Bsu = Bu * fovd / Bn
2095.                 Bsv = Bv * fovd / Bn
2096.                 Csu = Cu * fovd / Cn
2097.                 Csv = Cv * fovd / Cn
2098.                 Dx = tripletsnip(j, 1)
2099.                 Dy = tripletsnip(j, 2)
2100.                 Dz = tripletsnip(j, 3)
2101.                 Ex = tripletsnip(j, 4)
2102.                 Ey = tripletsnip(j, 5)
2103.                 Ez = tripletsnip(j, 6)
2104.                 Fx = tripletsnip(j, 7)
2105.                 Fy = tripletsnip(j, 8)
2106.                 Fz = tripletsnip(j, 9)
2107.                 Du = Dx * uhat(1) + Dy * uhat(2) + Dz * uhat(3)
2108.                 Dv = Dx * vhat(1) + Dy * vhat(2) + Dz * vhat(3)
2109.                 Eu = Ex * uhat(1) + Ey * uhat(2) + Ez * uhat(3)
2110.                 Ev = Ex * vhat(1) + Ey * vhat(2) + Ez * vhat(3)
2111.                 Fu = Fx * uhat(1) + Fy * uhat(2) + Fz * uhat(3)
2112.                 Fv = Fx * vhat(1) + Fy * vhat(2) + Fz * vhat(3)
2113.                 Dn = Dx * nhat(1) + Dy * nhat(2) + Dz * nhat(3)
2114.                 En = Ex * nhat(1) + Ey * nhat(2) + Ez * nhat(3)
2115.                 Fn = Fx * nhat(1) + Fy * nhat(2) + Fz * nhat(3)
2116.                 Dsu = Du * fovd / Dn
2117.                 Dsv = Dv * fovd / Dn
2118.                 Esu = Eu * fovd / En
2119.                 Esv = Ev * fovd / En
2120.                 Fsu = Fu * fovd / Fn
2121.                 Fsv = Fv * fovd / Fn
2122.                 GOSUB compute.triplet.sig.components
2123.                 ' Classify the scheme of triangle overlap and assign a 3-digit code.
2124.                 signature1 = pointDinside + pointEinside + pointFinside
2125.                 signature2 = pointAinside + pointBinside + pointCinside
2126.                 signature3 = intABDE + intBCDE + intCADE + intABEF + intBCEF + intCAEF + intABFD + intBCFD + intCAFD
2127.                 signature1text$ = STR$(signature1)
2128.                 signature2text$ = STR$(signature2)
2129.                 signature3text$ = STR$(signature3)
2130.                 signaturefull$ = signature1text$ + signature2text$ + signature3text$
2131.                 GOSUB triplet.image.generate
2132.             END IF
2133.         NEXT
2134.     NEXT
2135.     bypasssniploop:
2136.     FOR m = 1 TO pcounttripletsnipimage
2137.         snipworkpcount = snipworkpcount + 1
2138.         tripletsnipwork(snipworkpcount, 1) = tripletsnipimage(m, 1)
2139.         tripletsnipwork(snipworkpcount, 2) = tripletsnipimage(m, 2)
2140.         tripletsnipwork(snipworkpcount, 3) = tripletsnipimage(m, 3)
2141.         tripletsnipwork(snipworkpcount, 4) = tripletsnipimage(m, 4)
2142.         tripletsnipwork(snipworkpcount, 5) = tripletsnipimage(m, 5)
2143.         tripletsnipwork(snipworkpcount, 6) = tripletsnipimage(m, 6)
2144.         tripletsnipwork(snipworkpcount, 7) = tripletsnipimage(m, 7)
2145.         tripletsnipwork(snipworkpcount, 8) = tripletsnipimage(m, 8)
2146.         tripletsnipwork(snipworkpcount, 9) = tripletsnipimage(m, 9)
2147.         tripletsnipwork(snipworkpcount, 10) = tripletsnipimage(m, 10)
2148.     NEXT
2149. NEXT
2150. FOR i = 1 TO snipworkpcount
2151.     tripletsnip(i, 1) = tripletsnipwork(i, 1)
2152.     tripletsnip(i, 2) = tripletsnipwork(i, 2)
2153.     tripletsnip(i, 3) = tripletsnipwork(i, 3)
2154.     tripletsnip(i, 4) = tripletsnipwork(i, 4)
2155.     tripletsnip(i, 5) = tripletsnipwork(i, 5)
2156.     tripletsnip(i, 6) = tripletsnipwork(i, 6)
2157.     tripletsnip(i, 7) = tripletsnipwork(i, 7)
2158.     tripletsnip(i, 8) = tripletsnipwork(i, 8)
2159.     tripletsnip(i, 9) = tripletsnipwork(i, 9)
2160.     tripletsnip(i, 10) = tripletsnipwork(i, 10)
2161.     ' Code for troubleshooting.
2162.     'centsnipx = (1 / 3) * (tripletsnipwork(i, 1) + tripletsnipwork(i, 4) + tripletsnipwork(i, 7))
2163.     'centsnipy = (1 / 3) * (tripletsnipwork(i, 2) + tripletsnipwork(i, 5) + tripletsnipwork(i, 8))
2164.     'centsnipz = (1 / 3) * (tripletsnipwork(i, 3) + tripletsnipwork(i, 6) + tripletsnipwork(i, 9))
2165.     'centmag = SQR((centsnipx) ^ 2 + (centsnipy) ^ 2 + (centsnipz) ^ 2)
2166. NEXT
2167. numtripletsnip = snipworkpcount
2168. RETURN
2169.  
2170. compute.triplet.sig.components:
2171. ' Begin calculations for enclosed points: DEF inside ABC.
2172.  
2173. pointDinside = -1
2174. pointEinside = -1
2175. pointFinside = -1
2176. pcounttripletencpoint = 0
2177.  
2178. tan12uv = (Asv - Bsv) / (Asu - Bsu)
2179. norm12u = -(Asv - Bsv)
2180. norm12v = (Asu - Bsu)
2181. mag = SQR(norm12u ^ 2 + norm12v ^ 2)
2182. norm12u = norm12u / mag
2183. norm12v = norm12v / mag
2184. Asdotnorm12 = Asu * norm12u + Asv * norm12v
2185. Bsdotnorm12 = Bsu * norm12u + Bsv * norm12v
2186. Dsdotnorm12 = Dsu * norm12u + Dsv * norm12v
2187. Esdotnorm12 = Esu * norm12u + Esv * norm12v
2188. Fsdotnorm12 = Fsu * norm12u + Fsv * norm12v
2189.  
2190. tan23uv = (Bsv - Csv) / (Bsu - Csu)
2191. norm23u = -(Bsv - Csv)
2192. norm23v = (Bsu - Csu)
2193. mag = SQR(norm23u ^ 2 + norm23v ^ 2)
2194. norm23u = norm23u / mag
2195. norm23v = norm23v / mag
2196. Bsdotnorm23 = Bsu * norm23u + Bsv * norm23v
2197. Csdotnorm23 = Csu * norm23u + Csv * norm23v
2198. Dsdotnorm23 = Dsu * norm23u + Dsv * norm23v
2199. Esdotnorm23 = Esu * norm23u + Esv * norm23v
2200. Fsdotnorm23 = Fsu * norm23u + Fsv * norm23v
2201.  
2202. tan31uv = (Csv - Asv) / (Csu - Asu)
2203. norm31u = -(Csv - Asv)
2204. norm31v = (Csu - Asu)
2205. mag = SQR(norm31u ^ 2 + norm31v ^ 2)
2206. norm31u = norm31u / mag
2207. norm31v = norm31v / mag
2208. Csdotnorm31 = Csu * norm31u + Csv * norm31v
2209. Asdotnorm31 = Asu * norm31u + Asv * norm31v
2210. Dsdotnorm31 = Dsu * norm31u + Dsv * norm31v
2211. Esdotnorm31 = Esu * norm31u + Esv * norm31v
2212. Fsdotnorm31 = Fsu * norm31u + Fsv * norm31v
2213.  
2214. pointDdist12 = Dsdotnorm12 - (1 / 2) * (Asdotnorm12 + Bsdotnorm12)
2215. pointDdist23 = Dsdotnorm23 - (1 / 2) * (Bsdotnorm23 + Csdotnorm23)
2216. pointDdist31 = Dsdotnorm31 - (1 / 2) * (Csdotnorm31 + Asdotnorm31)
2217.  
2218. pointEdist12 = Esdotnorm12 - (1 / 2) * (Asdotnorm12 + Bsdotnorm12)
2219. pointEdist23 = Esdotnorm23 - (1 / 2) * (Bsdotnorm23 + Csdotnorm23)
2220. pointEdist31 = Esdotnorm31 - (1 / 2) * (Csdotnorm31 + Asdotnorm31)
2221.  
2222. pointFdist12 = Fsdotnorm12 - (1 / 2) * (Asdotnorm12 + Bsdotnorm12)
2223. pointFdist23 = Fsdotnorm23 - (1 / 2) * (Bsdotnorm23 + Csdotnorm23)
2224. pointFdist31 = Fsdotnorm31 - (1 / 2) * (Csdotnorm31 + Asdotnorm31)
2225.  
2226. IF pointDdist12 > 0 AND pointDdist23 > 0 AND pointDdist31 > 0 THEN
2227.     pointDinside = 1
2228.     Q = Dsu / fovd
2229.     R = Q * (Bn - An) - (Bu - Au)
2230.     S = Q * (Cn - An) - (Cu - Au)
2231.     T = Au - Q * An
2232.     Z = Dsv / fovd
2233.     U = Z * (Bn - An) - (Bv - Av)
2234.     V = Z * (Cn - An) - (Cv - Av)
2235.     W = Av - Z * An
2236.     factor1 = (T / S - W / V) / (R / S - U / V)
2237.     factor2 = (T / R - W / U) / (S / R - V / U)
2238.     pcounttripletencpoint = pcounttripletencpoint + 1
2239.     tripletencpoint(pcounttripletencpoint, 1) = Dx
2240.     tripletencpoint(pcounttripletencpoint, 2) = Dy
2241.     tripletencpoint(pcounttripletencpoint, 3) = Dz
2242.     tripletencpoint(pcounttripletencpoint, 4) = Ax + factor1 * (Bx - Ax) + factor2 * (Cx - Ax)
2243.     tripletencpoint(pcounttripletencpoint, 5) = Ay + factor1 * (By - Ay) + factor2 * (Cy - Ay)
2244.     tripletencpoint(pcounttripletencpoint, 6) = Az + factor1 * (Bz - Az) + factor2 * (Cz - Az)
2245.     tripletencpoint(pcounttripletencpoint, 7) = Dsu
2246.     tripletencpoint(pcounttripletencpoint, 8) = Dsv
2247. ELSE
2248.     pointDinside = 0
2249. END IF
2250.  
2251. IF pointEdist12 > 0 AND pointEdist23 > 0 AND pointEdist31 > 0 THEN
2252.     pointEinside = 1
2253.     Q = Esu / fovd
2254.     R = Q * (Bn - An) - (Bu - Au)
2255.     S = Q * (Cn - An) - (Cu - Au)
2256.     T = Au - Q * An
2257.     Z = Esv / fovd
2258.     U = Z * (Bn - An) - (Bv - Av)
2259.     V = Z * (Cn - An) - (Cv - Av)
2260.     W = Av - Z * An
2261.     factor1 = (T / S - W / V) / (R / S - U / V)
2262.     factor2 = (T / R - W / U) / (S / R - V / U)
2263.     pcounttripletencpoint = pcounttripletencpoint + 1
2264.     tripletencpoint(pcounttripletencpoint, 1) = Ex
2265.     tripletencpoint(pcounttripletencpoint, 2) = Ey
2266.     tripletencpoint(pcounttripletencpoint, 3) = Ez
2267.     tripletencpoint(pcounttripletencpoint, 4) = Ax + factor1 * (Bx - Ax) + factor2 * (Cx - Ax)
2268.     tripletencpoint(pcounttripletencpoint, 5) = Ay + factor1 * (By - Ay) + factor2 * (Cy - Ay)
2269.     tripletencpoint(pcounttripletencpoint, 6) = Az + factor1 * (Bz - Az) + factor2 * (Cz - Az)
2270.     tripletencpoint(pcounttripletencpoint, 7) = Esu
2271.     tripletencpoint(pcounttripletencpoint, 8) = Esv
2272. ELSE
2273.     pointEinside = 0
2274. END IF
2275.  
2276. IF pointFdist12 > 0 AND pointFdist23 > 0 AND pointFdist31 > 0 THEN
2277.     pointFinside = 1
2278.     Q = Fsu / fovd
2279.     R = Q * (Bn - An) - (Bu - Au)
2280.     S = Q * (Cn - An) - (Cu - Au)
2281.     T = Au - Q * An
2282.     Z = Fsv / fovd
2283.     U = Z * (Bn - An) - (Bv - Av)
2284.     V = Z * (Cn - An) - (Cv - Av)
2285.     W = Av - Z * An
2286.     factor1 = (T / S - W / V) / (R / S - U / V)
2287.     factor2 = (T / R - W / U) / (S / R - V / U)
2288.     pcounttripletencpoint = pcounttripletencpoint + 1
2289.     tripletencpoint(pcounttripletencpoint, 1) = Fx
2290.     tripletencpoint(pcounttripletencpoint, 2) = Fy
2291.     tripletencpoint(pcounttripletencpoint, 3) = Fz
2292.     tripletencpoint(pcounttripletencpoint, 4) = Ax + factor1 * (Bx - Ax) + factor2 * (Cx - Ax)
2293.     tripletencpoint(pcounttripletencpoint, 5) = Ay + factor1 * (By - Ay) + factor2 * (Cy - Ay)
2294.     tripletencpoint(pcounttripletencpoint, 6) = Az + factor1 * (Bz - Az) + factor2 * (Cz - Az)
2295.     tripletencpoint(pcounttripletencpoint, 7) = Fsu
2296.     tripletencpoint(pcounttripletencpoint, 8) = Fsv
2297. ELSE
2298.     pointFinside = 0
2299. END IF
2300.  
2301. ' Begin calculations for enclosed points: ABC inside DEF.
2302.  
2303. pointAinside = -1
2304. pointBinside = -1
2305. pointCinside = -1
2306.  
2307. tan12uv = (Dsv - Esv) / (Dsu - Esu)
2308. norm12u = -(Dsv - Esv)
2309. norm12v = (Dsu - Esu)
2310. mag = SQR(norm12u ^ 2 + norm12v ^ 2)
2311. norm12u = norm12u / mag
2312. norm12v = norm12v / mag
2313. Dsdotnorm12 = Dsu * norm12u + Dsv * norm12v
2314. Esdotnorm12 = Esu * norm12u + Esv * norm12v
2315. Asdotnorm12 = Asu * norm12u + Asv * norm12v
2316. Bsdotnorm12 = Bsu * norm12u + Bsv * norm12v
2317. Csdotnorm12 = Csu * norm12u + Csv * norm12v
2318.  
2319. tan23uv = (Esv - Fsv) / (Esu - Fsu)
2320. norm23u = -(Esv - Fsv)
2321. norm23v = (Esu - Fsu)
2322. mag = SQR(norm23u ^ 2 + norm23v ^ 2)
2323. norm23u = norm23u / mag
2324. norm23v = norm23v / mag
2325. Esdotnorm23 = Esu * norm23u + Esv * norm23v
2326. Fsdotnorm23 = Fsu * norm23u + Fsv * norm23v
2327. Asdotnorm23 = Asu * norm23u + Asv * norm23v
2328. Bsdotnorm23 = Bsu * norm23u + Bsv * norm23v
2329. Csdotnorm23 = Csu * norm23u + Csv * norm23v
2330.  
2331. tan31uv = (Fsv - Dsv) / (Fsu - Dsu)
2332. norm31u = -(Fsv - Dsv)
2333. norm31v = (Fsu - Dsu)
2334. mag = SQR(norm31u ^ 2 + norm31v ^ 2)
2335. norm31u = norm31u / mag
2336. norm31v = norm31v / mag
2337. Fsdotnorm31 = Fsu * norm31u + Fsv * norm31v
2338. Dsdotnorm31 = Dsu * norm31u + Dsv * norm31v
2339. Asdotnorm31 = Asu * norm31u + Asv * norm31v
2340. Bsdotnorm31 = Bsu * norm31u + Bsv * norm31v
2341. Csdotnorm31 = Csu * norm31u + Csv * norm31v
2342.  
2343. pointAdist12 = Asdotnorm12 - (1 / 2) * (Dsdotnorm12 + Esdotnorm12)
2344. pointAdist23 = Asdotnorm23 - (1 / 2) * (Esdotnorm23 + Fsdotnorm23)
2345. pointAdist31 = Asdotnorm31 - (1 / 2) * (Fsdotnorm31 + Dsdotnorm31)
2346.  
2347. pointBdist12 = Bsdotnorm12 - (1 / 2) * (Dsdotnorm12 + Esdotnorm12)
2348. pointBdist23 = Bsdotnorm23 - (1 / 2) * (Esdotnorm23 + Fsdotnorm23)
2349. pointBdist31 = Bsdotnorm31 - (1 / 2) * (Fsdotnorm31 + Dsdotnorm31)
2350.  
2351. pointCdist12 = Csdotnorm12 - (1 / 2) * (Dsdotnorm12 + Esdotnorm12)
2352. pointCdist23 = Csdotnorm23 - (1 / 2) * (Esdotnorm23 + Fsdotnorm23)
2353. pointCdist31 = Csdotnorm31 - (1 / 2) * (Fsdotnorm31 + Dsdotnorm31)
2354.  
2355. IF pointAdist12 > 0 AND pointAdist23 > 0 AND pointAdist31 > 0 THEN
2356.     pointAinside = 1
2357.     Q = Asu / fovd
2358.     R = Q * (En - Dn) - (Eu - Du)
2359.     S = Q * (Fn - Dn) - (Fu - Du)
2360.     T = Du - Q * Dn
2361.     Z = Asv / fovd
2362.     U = Z * (En - Dn) - (Ev - Dv)
2363.     V = Z * (Fn - Dn) - (Fv - Dv)
2364.     W = Dv - Z * Dn
2365.     factor1 = (T / S - W / V) / (R / S - U / V)
2366.     factor2 = (T / R - W / U) / (S / R - V / U)
2367.     pcounttripletencpoint = pcounttripletencpoint + 1
2368.     tripletencpoint(pcounttripletencpoint, 1) = Ax
2369.     tripletencpoint(pcounttripletencpoint, 2) = Ay
2370.     tripletencpoint(pcounttripletencpoint, 3) = Az
2371.     tripletencpoint(pcounttripletencpoint, 4) = Dx + factor1 * (Ex - Dx) + factor2 * (Fx - Dx)
2372.     tripletencpoint(pcounttripletencpoint, 5) = Dy + factor1 * (Ey - Dy) + factor2 * (Fy - Dy)
2373.     tripletencpoint(pcounttripletencpoint, 6) = Dz + factor1 * (Ez - Dz) + factor2 * (Fz - Dz)
2374.     tripletencpoint(pcounttripletencpoint, 7) = Asu
2375.     tripletencpoint(pcounttripletencpoint, 8) = Asv
2376. ELSE
2377.     pointAinside = 0
2378. END IF
2379.  
2380. IF pointBdist12 > 0 AND pointBdist23 > 0 AND pointBdist31 > 0 THEN
2381.     pointBinside = 1
2382.     Q = Bsu / fovd
2383.     R = Q * (En - Dn) - (Eu - Du)
2384.     S = Q * (Fn - Dn) - (Fu - Du)
2385.     T = Du - Q * Dn
2386.     Z = Bsv / fovd
2387.     U = Z * (En - Dn) - (Ev - Dv)
2388.     V = Z * (Fn - Dn) - (Fv - Dv)
2389.     W = Dv - Z * Dn
2390.     factor1 = (T / S - W / V) / (R / S - U / V)
2391.     factor2 = (T / R - W / U) / (S / R - V / U)
2392.     pcounttripletencpoint = pcounttripletencpoint + 1
2393.     tripletencpoint(pcounttripletencpoint, 1) = Bx
2394.     tripletencpoint(pcounttripletencpoint, 2) = By
2395.     tripletencpoint(pcounttripletencpoint, 3) = Bz
2396.     tripletencpoint(pcounttripletencpoint, 4) = Dx + factor1 * (Ex - Dx) + factor2 * (Fx - Dx)
2397.     tripletencpoint(pcounttripletencpoint, 5) = Dy + factor1 * (Ey - Dy) + factor2 * (Fy - Dy)
2398.     tripletencpoint(pcounttripletencpoint, 6) = Dz + factor1 * (Ez - Dz) + factor2 * (Fz - Dz)
2399.     tripletencpoint(pcounttripletencpoint, 7) = Bsu
2400.     tripletencpoint(pcounttripletencpoint, 8) = Bsv
2401. ELSE
2402.     pointBinside = 0
2403. END IF
2404.  
2405. IF pointCdist12 > 0 AND pointCdist23 > 0 AND pointCdist31 > 0 THEN
2406.     pointCinside = 1
2407.     Q = Csu / fovd
2408.     R = Q * (En - Dn) - (Eu - Du)
2409.     S = Q * (Fn - Dn) - (Fu - Du)
2410.     T = Du - Q * Dn
2411.     Z = Csv / fovd
2412.     U = Z * (En - Dn) - (Ev - Dv)
2413.     V = Z * (Fn - Dn) - (Fv - Dv)
2414.     W = Dv - Z * Dn
2415.     factor1 = (T / S - W / V) / (R / S - U / V)
2416.     factor2 = (T / R - W / U) / (S / R - V / U)
2417.     pcounttripletencpoint = pcounttripletencpoint + 1
2418.     tripletencpoint(pcounttripletencpoint, 1) = Cx
2419.     tripletencpoint(pcounttripletencpoint, 2) = Cy
2420.     tripletencpoint(pcounttripletencpoint, 3) = Cz
2421.     tripletencpoint(pcounttripletencpoint, 4) = Dx + factor1 * (Ex - Dx) + factor2 * (Fx - Dx)
2422.     tripletencpoint(pcounttripletencpoint, 5) = Dy + factor1 * (Ey - Dy) + factor2 * (Fy - Dy)
2423.     tripletencpoint(pcounttripletencpoint, 6) = Dz + factor1 * (Ez - Dz) + factor2 * (Fz - Dz)
2424.     tripletencpoint(pcounttripletencpoint, 7) = Csu
2425.     tripletencpoint(pcounttripletencpoint, 8) = Csv
2426. ELSE
2427.     pointCinside = 0
2428. END IF
2429.  
2430. ' Begin calculations for triplet line intersections.
2431.  
2432. magtripletABps = SQR((Asu - Bsu) ^ 2 + (Asv - Bsv) ^ 2)
2433. magtripletBCps = SQR((Bsu - Csu) ^ 2 + (Bsv - Csv) ^ 2)
2434. magtripletCAps = SQR((Csu - Asu) ^ 2 + (Csv - Asv) ^ 2)
2435.  
2436. magtripletDEps = SQR((Dsu - Esu) ^ 2 + (Dsv - Esv) ^ 2)
2437. magtripletEFps = SQR((Esu - Fsu) ^ 2 + (Esv - Fsv) ^ 2)
2438. magtripletFDps = SQR((Fsu - Dsu) ^ 2 + (Fsv - Dsv) ^ 2)
2439.  
2440. slopeAB = (Bsv - Asv) / (Bsu - Asu)
2441. intAB = Asv - slopeAB * Asu
2442. slopeBC = (Csv - Bsv) / (Csu - Bsu)
2443. intBC = Bsv - slopeBC * Bsu
2444. slopeCA = (Asv - Csv) / (Asu - Csu)
2445. intCA = Csv - slopeCA * Csu
2446.  
2447. slopeDE = (Esv - Dsv) / (Esu - Dsu)
2448. intDE = Dsv - slopeDE * Dsu
2449. slopeEF = (Fsv - Esv) / (Fsu - Esu)
2450. intEF = Esv - slopeEF * Esu
2451. slopeFD = (Dsv - Fsv) / (Dsu - Fsu)
2452. intFD = Fsv - slopeFD * Fsu
2453.  
2454. xstarABDE = -(intAB - intDE) / (slopeAB - slopeDE)
2455. ystarABDE = slopeAB * xstarABDE + intAB
2456. xstarABEF = -(intAB - intEF) / (slopeAB - slopeEF)
2457. ystarABEF = slopeAB * xstarABEF + intAB
2458. xstarABFD = -(intAB - intFD) / (slopeAB - slopeFD)
2459. ystarABFD = slopeAB * xstarABFD + intAB
2460.  
2461. xstarBCDE = -(intBC - intDE) / (slopeBC - slopeDE)
2462. ystarBCDE = slopeBC * xstarBCDE + intBC
2463. xstarBCEF = -(intBC - intEF) / (slopeBC - slopeEF)
2464. ystarBCEF = slopeBC * xstarBCEF + intBC
2465. xstarBCFD = -(intBC - intFD) / (slopeBC - slopeFD)
2466. ystarBCFD = slopeBC * xstarBCFD + intBC
2467.  
2468. xstarCADE = -(intCA - intDE) / (slopeCA - slopeDE)
2469. ystarCADE = slopeCA * xstarCADE + intCA
2470. xstarCAEF = -(intCA - intEF) / (slopeCA - slopeEF)
2471. ystarCAEF = slopeCA * xstarCAEF + intCA
2472. xstarCAFD = -(intCA - intFD) / (slopeCA - slopeFD)
2473. ystarCAFD = slopeCA * xstarCAFD + intCA
2474.  
2475. alphaABDE1u = -xstarABDE + Asu
2476. alphaABDE1v = -ystarABDE + Asv
2477. alphaABDE2u = -xstarABDE + Bsu
2478. alphaABDE2v = -ystarABDE + Bsv
2479. alphaABEF1u = -xstarABEF + Asu
2480. alphaABEF1v = -ystarABEF + Asv
2481. alphaABEF2u = -xstarABEF + Bsu
2482. alphaABEF2v = -ystarABEF + Bsv
2483. alphaABFD1u = -xstarABFD + Asu
2484. alphaABFD1v = -ystarABFD + Asv
2485. alphaABFD2u = -xstarABFD + Bsu
2486. alphaABFD2v = -ystarABFD + Bsv
2487.  
2488. alphaBCDE1u = -xstarBCDE + Bsu
2489. alphaBCDE1v = -ystarBCDE + Bsv
2490. alphaBCDE2u = -xstarBCDE + Csu
2491. alphaBCDE2v = -ystarBCDE + Csv
2492. alphaBCEF1u = -xstarBCEF + Bsu
2493. alphaBCEF1v = -ystarBCEF + Bsv
2494. alphaBCEF2u = -xstarBCEF + Csu
2495. alphaBCEF2v = -ystarBCEF + Csv
2496. alphaBCFD1u = -xstarBCFD + Bsu
2497. alphaBCFD1v = -ystarBCFD + Bsv
2498. alphaBCFD2u = -xstarBCFD + Csu
2499. alphaBCFD2v = -ystarBCFD + Csv
2500.  
2501. alphaCADE1u = -xstarCADE + Csu
2502. alphaCADE1v = -ystarCADE + Csv
2503. alphaCADE2u = -xstarCADE + Asu
2504. alphaCADE2v = -ystarCADE + Asv
2505. alphaCAEF1u = -xstarCAEF + Csu
2506. alphaCAEF1v = -ystarCAEF + Csv
2507. alphaCAEF2u = -xstarCAEF + Asu
2508. alphaCAEF2v = -ystarCAEF + Asv
2509. alphaCAFD1u = -xstarCAFD + Csu
2510. alphaCAFD1v = -ystarCAFD + Csv
2511. alphaCAFD2u = -xstarCAFD + Asu
2512. alphaCAFD2v = -ystarCAFD + Asv
2513.  
2514. alphaDEAB1u = -xstarABDE + Dsu
2515. alphaDEAB1v = -ystarABDE + Dsv
2516. alphaDEAB2u = -xstarABDE + Esu
2517. alphaDEAB2v = -ystarABDE + Esv
2518. alphaDEBC1u = -xstarBCDE + Dsu
2519. alphaDEBC1v = -ystarBCDE + Dsv
2520. alphaDEBC2u = -xstarBCDE + Esu
2521. alphaDEBC2v = -ystarBCDE + Esv
2522. alphaDECA1u = -xstarCADE + Dsu
2523. alphaDECA1v = -ystarCADE + Dsv
2524. alphaDECA2u = -xstarCADE + Esu
2525. alphaDECA2v = -ystarCADE + Esv
2526.  
2527. alphaEFAB1u = -xstarABEF + Esu
2528. alphaEFAB1v = -ystarABEF + Esv
2529. alphaEFAB2u = -xstarABEF + Fsu
2530. alphaEFAB2v = -ystarABEF + Fsv
2531. alphaEFBC1u = -xstarBCEF + Esu
2532. alphaEFBC1v = -ystarBCEF + Esv
2533. alphaEFBC2u = -xstarBCEF + Fsu
2534. alphaEFBC2v = -ystarBCEF + Fsv
2535. alphaEFCA1u = -xstarCAEF + Esu
2536. alphaEFCA1v = -ystarCAEF + Esv
2537. alphaEFCA2u = -xstarCAEF + Fsu
2538. alphaEFCA2v = -ystarCAEF + Fsv
2539.  
2540. alphaFDAB1u = -xstarABFD + Fsu
2541. alphaFDAB1v = -ystarABFD + Fsv
2542. alphaFDAB2u = -xstarABFD + Dsu
2543. alphaFDAB2v = -ystarABFD + Dsv
2544. alphaFDBC1u = -xstarBCFD + Fsu
2545. alphaFDBC1v = -ystarBCFD + Fsv
2546. alphaFDBC2u = -xstarBCFD + Dsu
2547. alphaFDBC2v = -ystarBCFD + Dsv
2548. alphaFDCA1u = -xstarCAFD + Fsu
2549. alphaFDCA1v = -ystarCAFD + Fsv
2550. alphaFDCA2u = -xstarCAFD + Dsu
2551. alphaFDCA2v = -ystarCAFD + Dsv
2552.  
2553. magalphaABDE1 = SQR(alphaABDE1u ^ 2 + alphaABDE1v ^ 2)
2554. magalphaABDE2 = SQR(alphaABDE2u ^ 2 + alphaABDE2v ^ 2)
2555. magalphaABEF1 = SQR(alphaABEF1u ^ 2 + alphaABEF1v ^ 2)
2556. magalphaABEF2 = SQR(alphaABEF2u ^ 2 + alphaABEF2v ^ 2)
2557. magalphaABFD1 = SQR(alphaABFD1u ^ 2 + alphaABFD1v ^ 2)
2558. magalphaABFD2 = SQR(alphaABFD2u ^ 2 + alphaABFD2v ^ 2)
2559.  
2560. magalphaBCDE1 = SQR(alphaBCDE1u ^ 2 + alphaBCDE1v ^ 2)
2561. magalphaBCDE2 = SQR(alphaBCDE2u ^ 2 + alphaBCDE2v ^ 2)
2562. magalphaBCEF1 = SQR(alphaBCEF1u ^ 2 + alphaBCEF1v ^ 2)
2563. magalphaBCEF2 = SQR(alphaBCEF2u ^ 2 + alphaBCEF2v ^ 2)
2564. magalphaBCFD1 = SQR(alphaBCFD1u ^ 2 + alphaBCFD1v ^ 2)
2565. magalphaBCFD2 = SQR(alphaBCFD2u ^ 2 + alphaBCFD2v ^ 2)
2566.  
2567. magalphaCADE1 = SQR(alphaCADE1u ^ 2 + alphaCADE1v ^ 2)
2568. magalphaCADE2 = SQR(alphaCADE2u ^ 2 + alphaCADE2v ^ 2)
2569. magalphaCAEF1 = SQR(alphaCAEF1u ^ 2 + alphaCAEF1v ^ 2)
2570. magalphaCAEF2 = SQR(alphaCAEF2u ^ 2 + alphaCAEF2v ^ 2)
2571. magalphaCAFD1 = SQR(alphaCAFD1u ^ 2 + alphaCAFD1v ^ 2)
2572. magalphaCAFD2 = SQR(alphaCAFD2u ^ 2 + alphaCAFD2v ^ 2)
2573.  
2574. magalphaDEAB1 = SQR(alphaDEAB1u ^ 2 + alphaDEAB1v ^ 2)
2575. magalphaDEAB2 = SQR(alphaDEAB2u ^ 2 + alphaDEAB2v ^ 2)
2576. magalphaDEBC1 = SQR(alphaDEBC1u ^ 2 + alphaDEBC1v ^ 2)
2577. magalphaDEBC2 = SQR(alphaDEBC2u ^ 2 + alphaDEBC2v ^ 2)
2578. magalphaDECA1 = SQR(alphaDECA1u ^ 2 + alphaDECA1v ^ 2)
2579. magalphaDECA2 = SQR(alphaDECA2u ^ 2 + alphaDECA2v ^ 2)
2580.  
2581. magalphaEFAB1 = SQR(alphaEFAB1u ^ 2 + alphaEFAB1v ^ 2)
2582. magalphaEFAB2 = SQR(alphaEFAB2u ^ 2 + alphaEFAB2v ^ 2)
2583. magalphaEFBC1 = SQR(alphaEFBC1u ^ 2 + alphaEFBC1v ^ 2)
2584. magalphaEFBC2 = SQR(alphaEFBC2u ^ 2 + alphaEFBC2v ^ 2)
2585. magalphaEFCA1 = SQR(alphaEFCA1u ^ 2 + alphaEFCA1v ^ 2)
2586. magalphaEFCA2 = SQR(alphaEFCA2u ^ 2 + alphaEFCA2v ^ 2)
2587.  
2588. magalphaFDAB1 = SQR(alphaFDAB1u ^ 2 + alphaFDAB1v ^ 2)
2589. magalphaFDAB2 = SQR(alphaFDAB2u ^ 2 + alphaFDAB2v ^ 2)
2590. magalphaFDBC1 = SQR(alphaFDBC1u ^ 2 + alphaFDBC1v ^ 2)
2591. magalphaFDBC2 = SQR(alphaFDBC2u ^ 2 + alphaFDBC2v ^ 2)
2592. magalphaFDCA1 = SQR(alphaFDCA1u ^ 2 + alphaFDCA1v ^ 2)
2593. magalphaFDCA2 = SQR(alphaFDCA2u ^ 2 + alphaFDCA2v ^ 2)
2594.  
2595. ' Determine and store the mutual intersection points of triplets ABD and DEF.
2596.  
2597. intABDE = -1
2598. intBCDE = -1
2599. intCADE = -1
2600. intABEF = -1
2601. intBCEF = -1
2602. intCAEF = -1
2603. intABFD = -1
2604. intBCFD = -1
2605. intCAFD = -1
2606. pcounttripletintpointpair = 0
2607.  
2608. IF magalphaABDE1 - magtripletABps < 0 AND magalphaABDE2 - magtripletABps < 0 AND magalphaDEAB1 - magtripletDEps < 0 AND magalphaDEAB2 - magtripletDEps < 0 THEN
2609.     qAB1u = (Asu - alphaABDE1u) / fovd
2610.     numerator = qAB1u * An - Au
2611.     denominator = Bu - Au + qAB1u * (An - Bn)
2612.     betaABDE = numerator / denominator
2613.     qDE1u = (Dsu - alphaDEAB1u) / fovd
2614.     numerator = qDE1u * Dn - Du
2615.     denominator = Eu - Du + qDE1u * (Dn - En)
2616.     betaDEAB = numerator / denominator
2617.     intABDE = 1
2618.     pcounttripletintpointpair = pcounttripletintpointpair + 1
2619.     tripletintpointpair(pcounttripletintpointpair, 1) = Ax * (1 - betaABDE) + betaABDE * Bx
2620.     tripletintpointpair(pcounttripletintpointpair, 2) = Ay * (1 - betaABDE) + betaABDE * By
2621.     tripletintpointpair(pcounttripletintpointpair, 3) = Az * (1 - betaABDE) + betaABDE * Bz
2622.     tripletintpointpair(pcounttripletintpointpair, 4) = Dx * (1 - betaDEAB) + betaDEAB * Ex
2623.     tripletintpointpair(pcounttripletintpointpair, 5) = Dy * (1 - betaDEAB) + betaDEAB * Ey
2624.     tripletintpointpair(pcounttripletintpointpair, 6) = Dz * (1 - betaDEAB) + betaDEAB * Ez
2625.     tripletintpointpair(pcounttripletintpointpair, 7) = Cx
2626.     tripletintpointpair(pcounttripletintpointpair, 8) = Cy
2627.     tripletintpointpair(pcounttripletintpointpair, 9) = Cz
2628.     tripletintpointpair(pcounttripletintpointpair, 10) = Ax
2629.     tripletintpointpair(pcounttripletintpointpair, 11) = Ay
2630.     tripletintpointpair(pcounttripletintpointpair, 12) = Az
2631.     tripletintpointpair(pcounttripletintpointpair, 13) = Bx
2632.     tripletintpointpair(pcounttripletintpointpair, 14) = By
2633.     tripletintpointpair(pcounttripletintpointpair, 15) = Bz
2634.     tripletintpointpair(pcounttripletintpointpair, 16) = Dx
2635.     tripletintpointpair(pcounttripletintpointpair, 17) = Dy
2636.     tripletintpointpair(pcounttripletintpointpair, 18) = Dz
2637.     tripletintpointpair(pcounttripletintpointpair, 19) = Ex
2638.     tripletintpointpair(pcounttripletintpointpair, 20) = Ey
2639.     tripletintpointpair(pcounttripletintpointpair, 21) = Ez
2640. ELSE
2641.     intABDE = 0
2642. END IF
2643.  
2644. IF magalphaBCDE1 - magtripletBCps < 0 AND magalphaBCDE2 - magtripletBCps < 0 AND magalphaDEBC1 - magtripletDEps < 0 AND magalphaDEBC2 - magtripletDEps < 0 THEN
2645.     qBC1u = (Bsu - alphaBCDE1u) / fovd
2646.     numerator = qBC1u * Bn - Bu
2647.     denominator = Cu - Bu + qBC1u * (Bn - Cn)
2648.     betaBCDE = numerator / denominator
2649.     qDE1u = (Dsu - alphaDEBC1u) / fovd
2650.     numerator = qDE1u * Dn - Du
2651.     denominator = Eu - Du + qDE1u * (Dn - En)
2652.     betaDEBC = numerator / denominator
2653.     intBCDE = 1
2654.     pcounttripletintpointpair = pcounttripletintpointpair + 1
2655.     tripletintpointpair(pcounttripletintpointpair, 1) = Bx * (1 - betaBCDE) + betaBCDE * Cx
2656.     tripletintpointpair(pcounttripletintpointpair, 2) = By * (1 - betaBCDE) + betaBCDE * Cy
2657.     tripletintpointpair(pcounttripletintpointpair, 3) = Bz * (1 - betaBCDE) + betaBCDE * Cz
2658.     tripletintpointpair(pcounttripletintpointpair, 4) = Dx * (1 - betaDEBC) + betaDEBC * Ex
2659.     tripletintpointpair(pcounttripletintpointpair, 5) = Dy * (1 - betaDEBC) + betaDEBC * Ey
2660.     tripletintpointpair(pcounttripletintpointpair, 6) = Dz * (1 - betaDEBC) + betaDEBC * Ez
2661.     tripletintpointpair(pcounttripletintpointpair, 7) = Ax
2662.     tripletintpointpair(pcounttripletintpointpair, 8) = Ay
2663.     tripletintpointpair(pcounttripletintpointpair, 9) = Az
2664.     tripletintpointpair(pcounttripletintpointpair, 10) = Bx
2665.     tripletintpointpair(pcounttripletintpointpair, 11) = By
2666.     tripletintpointpair(pcounttripletintpointpair, 12) = Bz
2667.     tripletintpointpair(pcounttripletintpointpair, 13) = Cx
2668.     tripletintpointpair(pcounttripletintpointpair, 14) = Cy
2669.     tripletintpointpair(pcounttripletintpointpair, 15) = Cz
2670.     tripletintpointpair(pcounttripletintpointpair, 16) = Dx
2671.     tripletintpointpair(pcounttripletintpointpair, 17) = Dy
2672.     tripletintpointpair(pcounttripletintpointpair, 18) = Dz
2673.     tripletintpointpair(pcounttripletintpointpair, 19) = Ex
2674.     tripletintpointpair(pcounttripletintpointpair, 20) = Ey
2675.     tripletintpointpair(pcounttripletintpointpair, 21) = Ez
2676. ELSE
2677.     intBCDE = 0
2678. END IF
2679.  
2680. IF magalphaCADE1 - magtripletCAps < 0 AND magalphaCADE2 - magtripletCAps < 0 AND magalphaDECA1 - magtripletDEps < 0 AND magalphaDECA2 - magtripletDEps < 0 THEN
2681.     qCA1u = (Csu - alphaCADE1u) / fovd
2682.     numerator = qCA1u * Cn - Cu
2683.     denominator = Au - Cu + qCA1u * (Cn - An)
2684.     betaCADE = numerator / denominator
2685.     qDE1u = (Dsu - alphaDECA1u) / fovd
2686.     numerator = qDE1u * Dn - Du
2687.     denominator = Eu - Du + qDE1u * (Dn - En)
2688.     betaDECA = numerator / denominator
2689.     intCADE = 1
2690.     pcounttripletintpointpair = pcounttripletintpointpair + 1
2691.     tripletintpointpair(pcounttripletintpointpair, 1) = Cx * (1 - betaCADE) + betaCADE * Ax
2692.     tripletintpointpair(pcounttripletintpointpair, 2) = Cy * (1 - betaCADE) + betaCADE * Ay
2693.     tripletintpointpair(pcounttripletintpointpair, 3) = Cz * (1 - betaCADE) + betaCADE * Az
2694.     tripletintpointpair(pcounttripletintpointpair, 4) = Dx * (1 - betaDECA) + betaDECA * Ex
2695.     tripletintpointpair(pcounttripletintpointpair, 5) = Dy * (1 - betaDECA) + betaDECA * Ey
2696.     tripletintpointpair(pcounttripletintpointpair, 6) = Dz * (1 - betaDECA) + betaDECA * Ez
2697.     tripletintpointpair(pcounttripletintpointpair, 7) = Bx
2698.     tripletintpointpair(pcounttripletintpointpair, 8) = By
2699.     tripletintpointpair(pcounttripletintpointpair, 9) = Bz
2700.     tripletintpointpair(pcounttripletintpointpair, 10) = Cx
2701.     tripletintpointpair(pcounttripletintpointpair, 11) = Cy
2702.     tripletintpointpair(pcounttripletintpointpair, 12) = Cz
2703.     tripletintpointpair(pcounttripletintpointpair, 13) = Ax
2704.     tripletintpointpair(pcounttripletintpointpair, 14) = Ay
2705.     tripletintpointpair(pcounttripletintpointpair, 15) = Az
2706.     tripletintpointpair(pcounttripletintpointpair, 16) = Dx
2707.     tripletintpointpair(pcounttripletintpointpair, 17) = Dy
2708.     tripletintpointpair(pcounttripletintpointpair, 18) = Dz
2709.     tripletintpointpair(pcounttripletintpointpair, 19) = Ex
2710.     tripletintpointpair(pcounttripletintpointpair, 20) = Ey
2711.     tripletintpointpair(pcounttripletintpointpair, 21) = Ez
2712. ELSE
2713.     intCADE = 0
2714. END IF
2715.  
2716. IF magalphaABEF1 - magtripletABps < 0 AND magalphaABEF2 - magtripletABps < 0 AND magalphaEFAB1 - magtripletEFps < 0 AND magalphaEFAB2 - magtripletEFps < 0 THEN
2717.     qAB1u = (Asu - alphaABEF1u) / fovd
2718.     numerator = qAB1u * An - Au
2719.     denominator = Bu - Au + qAB1u * (An - Bn)
2720.     betaABEF = numerator / denominator
2721.     qEF1u = (Esu - alphaEFAB1u) / fovd
2722.     numerator = qEF1u * En - Eu
2723.     denominator = Fu - Eu + qEF1u * (En - Fn)
2724.     betaEFAB = numerator / denominator
2725.     intABEF = 1
2726.     pcounttripletintpointpair = pcounttripletintpointpair + 1
2727.     tripletintpointpair(pcounttripletintpointpair, 1) = Ax * (1 - betaABEF) + betaABEF * Bx
2728.     tripletintpointpair(pcounttripletintpointpair, 2) = Ay * (1 - betaABEF) + betaABEF * By
2729.     tripletintpointpair(pcounttripletintpointpair, 3) = Az * (1 - betaABEF) + betaABEF * Bz
2730.     tripletintpointpair(pcounttripletintpointpair, 4) = Ex * (1 - betaEFAB) + betaEFAB * Fx
2731.     tripletintpointpair(pcounttripletintpointpair, 5) = Ey * (1 - betaEFAB) + betaEFAB * Fy
2732.     tripletintpointpair(pcounttripletintpointpair, 6) = Ez * (1 - betaEFAB) + betaEFAB * Fz
2733.     tripletintpointpair(pcounttripletintpointpair, 7) = Cx
2734.     tripletintpointpair(pcounttripletintpointpair, 8) = Cy
2735.     tripletintpointpair(pcounttripletintpointpair, 9) = Cz
2736.     tripletintpointpair(pcounttripletintpointpair, 10) = Ax
2737.     tripletintpointpair(pcounttripletintpointpair, 11) = Ay
2738.     tripletintpointpair(pcounttripletintpointpair, 12) = Az
2739.     tripletintpointpair(pcounttripletintpointpair, 13) = Bx
2740.     tripletintpointpair(pcounttripletintpointpair, 14) = By
2741.     tripletintpointpair(pcounttripletintpointpair, 15) = Bz
2742.     tripletintpointpair(pcounttripletintpointpair, 16) = Ex
2743.     tripletintpointpair(pcounttripletintpointpair, 17) = Ey
2744.     tripletintpointpair(pcounttripletintpointpair, 18) = Ez
2745.     tripletintpointpair(pcounttripletintpointpair, 19) = Fx
2746.     tripletintpointpair(pcounttripletintpointpair, 20) = Fy
2747.     tripletintpointpair(pcounttripletintpointpair, 21) = Fz
2748. ELSE
2749.     intABEF = 0
2750. END IF
2751.  
2752. IF magalphaBCEF1 - magtripletBCps < 0 AND magalphaBCEF2 - magtripletBCps < 0 AND magalphaEFBC1 - magtripletEFps < 0 AND magalphaEFBC2 - magtripletEFps < 0 THEN
2753.     qBC1u = (Bsu - alphaBCEF1u) / fovd
2754.     numerator = qBC1u * Bn - Bu
2755.     denominator = Cu - Bu + qBC1u * (Bn - Cn)
2756.     betaBCEF = numerator / denominator
2757.     qEF1u = (Esu - alphaEFBC1u) / fovd
2758.     numerator = qEF1u * En - Eu
2759.     denominator = Fu - Eu + qEF1u * (En - Fn)
2760.     betaEFBC = numerator / denominator
2761.     intBCEF = 1
2762.     pcounttripletintpointpair = pcounttripletintpointpair + 1
2763.     tripletintpointpair(pcounttripletintpointpair, 1) = Bx * (1 - betaBCEF) + betaBCEF * Cx
2764.     tripletintpointpair(pcounttripletintpointpair, 2) = By * (1 - betaBCEF) + betaBCEF * Cy
2765.     tripletintpointpair(pcounttripletintpointpair, 3) = Bz * (1 - betaBCEF) + betaBCEF * Cz
2766.     tripletintpointpair(pcounttripletintpointpair, 4) = Ex * (1 - betaEFBC) + betaEFBC * Fx
2767.     tripletintpointpair(pcounttripletintpointpair, 5) = Ey * (1 - betaEFBC) + betaEFBC * Fy
2768.     tripletintpointpair(pcounttripletintpointpair, 6) = Ez * (1 - betaEFBC) + betaEFBC * Fz
2769.     tripletintpointpair(pcounttripletintpointpair, 7) = Ax
2770.     tripletintpointpair(pcounttripletintpointpair, 8) = Ay
2771.     tripletintpointpair(pcounttripletintpointpair, 9) = Az
2772.     tripletintpointpair(pcounttripletintpointpair, 10) = Bx
2773.     tripletintpointpair(pcounttripletintpointpair, 11) = By
2774.     tripletintpointpair(pcounttripletintpointpair, 12) = Bz
2775.     tripletintpointpair(pcounttripletintpointpair, 13) = Cx
2776.     tripletintpointpair(pcounttripletintpointpair, 14) = Cy
2777.     tripletintpointpair(pcounttripletintpointpair, 15) = Cz
2778.     tripletintpointpair(pcounttripletintpointpair, 16) = Ex
2779.     tripletintpointpair(pcounttripletintpointpair, 17) = Ey
2780.     tripletintpointpair(pcounttripletintpointpair, 18) = Ez
2781.     tripletintpointpair(pcounttripletintpointpair, 19) = Fx
2782.     tripletintpointpair(pcounttripletintpointpair, 20) = Fy
2783.     tripletintpointpair(pcounttripletintpointpair, 21) = Fz
2784. ELSE
2785.     intBCEF = 0
2786. END IF
2787.  
2788. IF magalphaCAEF1 - magtripletCAps < 0 AND magalphaCAEF2 - magtripletCAps < 0 AND magalphaEFCA1 - magtripletEFps < 0 AND magalphaEFCA2 - magtripletEFps < 0 THEN
2789.     qCA1u = (Csu - alphaCAEF1u) / fovd
2790.     numerator = qCA1u * Cn - Cu
2791.     denominator = Au - Cu + qCA1u * (Cn - An)
2792.     betaCAEF = numerator / denominator
2793.     qEF1u = (Esu - alphaEFCA1u) / fovd
2794.     numerator = qEF1u * En - Eu
2795.     denominator = Fu - Eu + qEF1u * (En - Fn)
2796.     betaEFCA = numerator / denominator
2797.     intCAEF = 1
2798.     pcounttripletintpointpair = pcounttripletintpointpair + 1
2799.     tripletintpointpair(pcounttripletintpointpair, 1) = Cx * (1 - betaCAEF) + betaCAEF * Ax
2800.     tripletintpointpair(pcounttripletintpointpair, 2) = Cy * (1 - betaCAEF) + betaCAEF * Ay
2801.     tripletintpointpair(pcounttripletintpointpair, 3) = Cz * (1 - betaCAEF) + betaCAEF * Az
2802.     tripletintpointpair(pcounttripletintpointpair, 4) = Ex * (1 - betaEFCA) + betaEFCA * Fx
2803.     tripletintpointpair(pcounttripletintpointpair, 5) = Ey * (1 - betaEFCA) + betaEFCA * Fy
2804.     tripletintpointpair(pcounttripletintpointpair, 6) = Ez * (1 - betaEFCA) + betaEFCA * Fz
2805.     tripletintpointpair(pcounttripletintpointpair, 7) = Bx
2806.     tripletintpointpair(pcounttripletintpointpair, 8) = By
2807.     tripletintpointpair(pcounttripletintpointpair, 9) = Bz
2808.     tripletintpointpair(pcounttripletintpointpair, 10) = Cx
2809.     tripletintpointpair(pcounttripletintpointpair, 11) = Cy
2810.     tripletintpointpair(pcounttripletintpointpair, 12) = Cz
2811.     tripletintpointpair(pcounttripletintpointpair, 13) = Ax
2812.     tripletintpointpair(pcounttripletintpointpair, 14) = Ay
2813.     tripletintpointpair(pcounttripletintpointpair, 15) = Az
2814.     tripletintpointpair(pcounttripletintpointpair, 16) = Ex
2815.     tripletintpointpair(pcounttripletintpointpair, 17) = Ey
2816.     tripletintpointpair(pcounttripletintpointpair, 18) = Ez
2817.     tripletintpointpair(pcounttripletintpointpair, 19) = Fx
2818.     tripletintpointpair(pcounttripletintpointpair, 20) = Fy
2819.     tripletintpointpair(pcounttripletintpointpair, 21) = Fz
2820. ELSE
2821.     intCAEF = 0
2822. END IF
2823.  
2824. IF magalphaABFD1 - magtripletABps < 0 AND magalphaABFD2 - magtripletABps < 0 AND magalphaFDAB1 - magtripletFDps < 0 AND magalphaFDAB2 - magtripletFDps < 0 THEN
2825.     qAB1u = (Asu - alphaABFD1u) / fovd
2826.     numerator = qAB1u * An - Au
2827.     denominator = Bu - Au + qAB1u * (An - Bn)
2828.     betaABFD = numerator / denominator
2829.     qFD1u = (Fsu - alphaFDAB1u) / fovd
2830.     numerator = qFD1u * Fn - Fu
2831.     denominator = Du - Fu + qFD1u * (Fn - Dn)
2832.     betaFDAB = numerator / denominator
2833.     intABFD = 1
2834.     pcounttripletintpointpair = pcounttripletintpointpair + 1
2835.     tripletintpointpair(pcounttripletintpointpair, 1) = Ax * (1 - betaABFD) + betaABFD * Bx
2836.     tripletintpointpair(pcounttripletintpointpair, 2) = Ay * (1 - betaABFD) + betaABFD * By
2837.     tripletintpointpair(pcounttripletintpointpair, 3) = Az * (1 - betaABFD) + betaABFD * Bz
2838.     tripletintpointpair(pcounttripletintpointpair, 4) = Fx * (1 - betaFDAB) + betaFDAB * Dx
2839.     tripletintpointpair(pcounttripletintpointpair, 5) = Fy * (1 - betaFDAB) + betaFDAB * Dy
2840.     tripletintpointpair(pcounttripletintpointpair, 6) = Fz * (1 - betaFDAB) + betaFDAB * Dz
2841.     tripletintpointpair(pcounttripletintpointpair, 7) = Cx
2842.     tripletintpointpair(pcounttripletintpointpair, 8) = Cy
2843.     tripletintpointpair(pcounttripletintpointpair, 9) = Cz
2844.     tripletintpointpair(pcounttripletintpointpair, 10) = Ax
2845.     tripletintpointpair(pcounttripletintpointpair, 11) = Ay
2846.     tripletintpointpair(pcounttripletintpointpair, 12) = Az
2847.     tripletintpointpair(pcounttripletintpointpair, 13) = Bx
2848.     tripletintpointpair(pcounttripletintpointpair, 14) = By
2849.     tripletintpointpair(pcounttripletintpointpair, 15) = Bz
2850.     tripletintpointpair(pcounttripletintpointpair, 16) = Fx
2851.     tripletintpointpair(pcounttripletintpointpair, 17) = Fy
2852.     tripletintpointpair(pcounttripletintpointpair, 18) = Fz
2853.     tripletintpointpair(pcounttripletintpointpair, 19) = Dx
2854.     tripletintpointpair(pcounttripletintpointpair, 20) = Dy
2855.     tripletintpointpair(pcounttripletintpointpair, 21) = Dz
2856. ELSE
2857.     intABFD = 0
2858. END IF
2859.  
2860. IF magalphaBCFD1 - magtripletBCps < 0 AND magalphaBCFD2 - magtripletBCps < 0 AND magalphaFDBC1 - magtripletFDps < 0 AND magalphaFDBC2 - magtripletFDps < 0 THEN
2861.     qBC1u = (Bsu - alphaBCFD1u) / fovd
2862.     numerator = qBC1u * Bn - Bu
2863.     denominator = Cu - Bu + qBC1u * (Bn - Cn)
2864.     betaBCFD = numerator / denominator
2865.     qFD1u = (Fsu - alphaFDBC1u) / fovd
2866.     numerator = qFD1u * Fn - Fu
2867.     denominator = Du - Fu + qFD1u * (Fn - Dn)
2868.     betaFDBC = numerator / denominator
2869.     intBCFD = 1
2870.     pcounttripletintpointpair = pcounttripletintpointpair + 1
2871.     tripletintpointpair(pcounttripletintpointpair, 1) = Bx * (1 - betaBCFD) + betaBCFD * Cx
2872.     tripletintpointpair(pcounttripletintpointpair, 2) = By * (1 - betaBCFD) + betaBCFD * Cy
2873.     tripletintpointpair(pcounttripletintpointpair, 3) = Bz * (1 - betaBCFD) + betaBCFD * Cz
2874.     tripletintpointpair(pcounttripletintpointpair, 4) = Fx * (1 - betaFDBC) + betaFDBC * Dx
2875.     tripletintpointpair(pcounttripletintpointpair, 5) = Fy * (1 - betaFDBC) + betaFDBC * Dy
2876.     tripletintpointpair(pcounttripletintpointpair, 6) = Fz * (1 - betaFDBC) + betaFDBC * Dz
2877.     tripletintpointpair(pcounttripletintpointpair, 7) = Ax
2878.     tripletintpointpair(pcounttripletintpointpair, 8) = Ay
2879.     tripletintpointpair(pcounttripletintpointpair, 9) = Az
2880.     tripletintpointpair(pcounttripletintpointpair, 10) = Bx
2881.     tripletintpointpair(pcounttripletintpointpair, 11) = By
2882.     tripletintpointpair(pcounttripletintpointpair, 12) = Bz
2883.     tripletintpointpair(pcounttripletintpointpair, 13) = Cx
2884.     tripletintpointpair(pcounttripletintpointpair, 14) = Cy
2885.     tripletintpointpair(pcounttripletintpointpair, 15) = Cz
2886.     tripletintpointpair(pcounttripletintpointpair, 16) = Fx
2887.     tripletintpointpair(pcounttripletintpointpair, 17) = Fy
2888.     tripletintpointpair(pcounttripletintpointpair, 18) = Fz
2889.     tripletintpointpair(pcounttripletintpointpair, 19) = Dx
2890.     tripletintpointpair(pcounttripletintpointpair, 20) = Dy
2891.     tripletintpointpair(pcounttripletintpointpair, 21) = Dz
2892. ELSE
2893.     intBCFD = 0
2894. END IF
2895.  
2896. IF magalphaCAFD1 - magtripletCAps < 0 AND magalphaCAFD2 - magtripletCAps < 0 AND magalphaFDCA1 - magtripletFDps < 0 AND magalphaFDCA2 - magtripletFDps < 0 THEN
2897.     qCA1u = (Csu - alphaCAFD1u) / fovd
2898.     numerator = qCA1u * Cn - Cu
2899.     denominator = Au - Cu + qCA1u * (Cn - An)
2900.     betaCAFD = numerator / denominator
2901.     qFD1u = (Fsu - alphaFDCA1u) / fovd
2902.     numerator = qFD1u * Fn - Fu
2903.     denominator = Du - Fu + qFD1u * (Fn - Dn)
2904.     betaFDCA = numerator / denominator
2905.     intCAFD = 1
2906.     pcounttripletintpointpair = pcounttripletintpointpair + 1
2907.     tripletintpointpair(pcounttripletintpointpair, 1) = Cx * (1 - betaCAFD) + betaCAFD * Ax
2908.     tripletintpointpair(pcounttripletintpointpair, 2) = Cy * (1 - betaCAFD) + betaCAFD * Ay
2909.     tripletintpointpair(pcounttripletintpointpair, 3) = Cz * (1 - betaCAFD) + betaCAFD * Az
2910.     tripletintpointpair(pcounttripletintpointpair, 4) = Fx * (1 - betaFDCA) + betaFDCA * Dx
2911.     tripletintpointpair(pcounttripletintpointpair, 5) = Fy * (1 - betaFDCA) + betaFDCA * Dy
2912.     tripletintpointpair(pcounttripletintpointpair, 6) = Fz * (1 - betaFDCA) + betaFDCA * Dz
2913.     tripletintpointpair(pcounttripletintpointpair, 7) = Bx
2914.     tripletintpointpair(pcounttripletintpointpair, 8) = By
2915.     tripletintpointpair(pcounttripletintpointpair, 9) = Bz
2916.     tripletintpointpair(pcounttripletintpointpair, 10) = Cx
2917.     tripletintpointpair(pcounttripletintpointpair, 11) = Cy
2918.     tripletintpointpair(pcounttripletintpointpair, 12) = Cz
2919.     tripletintpointpair(pcounttripletintpointpair, 13) = Ax
2920.     tripletintpointpair(pcounttripletintpointpair, 14) = Ay
2921.     tripletintpointpair(pcounttripletintpointpair, 15) = Az
2922.     tripletintpointpair(pcounttripletintpointpair, 16) = Fx
2923.     tripletintpointpair(pcounttripletintpointpair, 17) = Fy
2924.     tripletintpointpair(pcounttripletintpointpair, 18) = Fz
2925.     tripletintpointpair(pcounttripletintpointpair, 19) = Dx
2926.     tripletintpointpair(pcounttripletintpointpair, 20) = Dy
2927.     tripletintpointpair(pcounttripletintpointpair, 21) = Dz
2928. ELSE
2929.     intCAFD = 0
2930. END IF
2931. RETURN
2932.  
2933. triplet.image.generate:
2934. flagimagechange = 0
2935.  
2936. SELECT CASE signaturefull$
2937.  
2938.     CASE " 0 0 0" '*' 1 of 15
2939.         'LOCATE 1, 1: PRINT signaturefull$
2940.  
2941.     CASE " 0 0 4" '*' 2 of 15
2942.         ' Load information on overlap triangle.
2943.         int1ABCx = tripletintpointpair(1, 1)
2944.         int1ABCy = tripletintpointpair(1, 2)
2945.         int1ABCz = tripletintpointpair(1, 3)
2946.         int1DEFx = tripletintpointpair(1, 4)
2947.         int1DEFy = tripletintpointpair(1, 5)
2948.         int1DEFz = tripletintpointpair(1, 6)
2949.         int2ABCx = tripletintpointpair(2, 1)
2950.         int2ABCy = tripletintpointpair(2, 2)
2951.         int2ABCz = tripletintpointpair(2, 3)
2952.         int2DEFx = tripletintpointpair(2, 4)
2953.         int2DEFy = tripletintpointpair(2, 5)
2954.         int2DEFz = tripletintpointpair(2, 6)
2955.         int3ABCx = tripletintpointpair(3, 1)
2956.         int3ABCy = tripletintpointpair(3, 2)
2957.         int3ABCz = tripletintpointpair(3, 3)
2958.         int3DEFx = tripletintpointpair(3, 4)
2959.         int3DEFy = tripletintpointpair(3, 5)
2960.         int3DEFz = tripletintpointpair(3, 6)
2961.         GOSUB perform.overlap.calculations
2962.         ' Compare the apparent overlap tringles using centroid.
2963.         IF magcentABC > magcentDEF AND magdiff > 0 AND areaABC > 0.005 AND areaDEF > 0.005 AND snip004enabled = 1 THEN
2964.             'LOCATE 2, 1: PRINT signaturefull$
2965.             flagimagechange = 1
2966.             ' Classify the two outer points of ABC.
2967.             outerpoint1x = tripletintpointpair(1, 7)
2968.             outerpoint1y = tripletintpointpair(1, 8)
2969.             outerpoint1z = tripletintpointpair(1, 9)
2970.             possibleoutpoint2x = tripletintpointpair(2, 7)
2971.             possibleoutpoint2y = tripletintpointpair(2, 8)
2972.             possibleoutpoint2z = tripletintpointpair(2, 9)
2973.             possibleoutpoint3x = tripletintpointpair(3, 7)
2974.             possibleoutpoint3y = tripletintpointpair(3, 8)
2975.             possibleoutpoint3z = tripletintpointpair(3, 9)
2976.             '*'possibleoutpoint4x = tripletintpointpair(4, 7)
2977.             '*'possibleoutpoint4y = tripletintpointpair(4, 8)
2978.             '*'possibleoutpoint4z = tripletintpointpair(4, 9)
2979.             IF SQR((outerpoint1x - possibleoutpoint2x) ^ 2 + (outerpoint1y - possibleoutpoint2y) ^ 2 + (outerpoint1z - possibleoutpoint2z) ^ 2) < 0.0001 THEN
2980.                 outerpoint2x = possibleoutpoint3x
2981.                 outerpoint2y = possibleoutpoint3y
2982.                 outerpoint2z = possibleoutpoint3z
2983.             ELSE
2984.                 outerpoint2x = possibleoutpoint2x
2985.                 outerpoint2y = possibleoutpoint2y
2986.                 outerpoint2z = possibleoutpoint2z
2987.             END IF
2988.             ' Classify the lonely point of ABC.
2989.             possibleinpoint1x = tripletintpointpair(1, 10)
2990.             possibleinpoint1y = tripletintpointpair(1, 11)
2991.             possibleinpoint1z = tripletintpointpair(1, 12)
2992.             possibleinpoint2x = tripletintpointpair(1, 13)
2993.             possibleinpoint2y = tripletintpointpair(1, 14)
2994.             possibleinpoint2z = tripletintpointpair(1, 15)
2995.             IF SQR((possibleinpoint1x - outerpoint1x) ^ 2 + (possibleinpoint1y - outerpoint1y) ^ 2 + (possibleinpoint1z - outerpoint1z) ^ 2) > 0.1 AND SQR((possibleinpoint1x - outerpoint2x) ^ 2 + (possibleinpoint1y - outerpoint2y) ^ 2 + (possibleinpoint1z - outerpoint2z) ^ 2) > 0.1 THEN
2996.                 innerpointx = possibleinpoint1x
2997.                 innerpointy = possibleinpoint1y
2998.                 innerpointz = possibleinpoint1z
2999.             ELSE
3000.                 innerpointx = possibleinpoint2x
3001.                 innerpointy = possibleinpoint2y
3002.                 innerpointz = possibleinpoint2z
3003.             END IF
3004.             ' Determine the closest and furthest int points on each int line for lonely point.
3005.             test1pointx = tripletintpointpair(1, 1)
3006.             test1pointy = tripletintpointpair(1, 2)
3007.             test1pointz = tripletintpointpair(1, 3)
3008.             test1pointuninvolvedx = tripletintpointpair(1, 7)
3009.             test1pointuninvolvedy = tripletintpointpair(1, 8)
3010.             test1pointuninvolvedz = tripletintpointpair(1, 9)
3011.             disttotest1point = SQR((innerpointx - test1pointx) ^ 2 + (innerpointy - test1pointy) ^ 2 + (innerpointz - test1pointz) ^ 2)
3012.             disttotest1pointuninvolved = SQR((innerpointx - test1pointuninvolvedx) ^ 2 + (innerpointy - test1pointuninvolvedy) ^ 2 + (innerpointz - test1pointuninvolvedz) ^ 2)
3013.             test2pointx = tripletintpointpair(2, 1)
3014.             test2pointy = tripletintpointpair(2, 2)
3015.             test2pointz = tripletintpointpair(2, 3)
3016.             test2pointuninvolvedx = tripletintpointpair(2, 7)
3017.             test2pointuninvolvedy = tripletintpointpair(2, 8)
3018.             test2pointuninvolvedz = tripletintpointpair(2, 9)
3019.             disttotest2point = SQR((innerpointx - test2pointx) ^ 2 + (innerpointy - test2pointy) ^ 2 + (innerpointz - test2pointz) ^ 2)
3020.             disttotest2pointuninvolved = SQR((innerpointx - test2pointuninvolvedx) ^ 2 + (innerpointy - test2pointuninvolvedy) ^ 2 + (innerpointz - test2pointuninvolvedz) ^ 2)
3021.             test3pointx = tripletintpointpair(3, 1)
3022.             test3pointy = tripletintpointpair(3, 2)
3023.             test3pointz = tripletintpointpair(3, 3)
3024.             test3pointuninvolvedx = tripletintpointpair(3, 7)
3025.             test3pointuninvolvedy = tripletintpointpair(3, 8)
3026.             test3pointuninvolvedz = tripletintpointpair(3, 9)
3027.             disttotest3point = SQR((innerpointx - test3pointx) ^ 2 + (innerpointy - test3pointy) ^ 2 + (innerpointz - test3pointz) ^ 2)
3028.             disttotest3pointuninvolved = SQR((innerpointx - test3pointuninvolvedx) ^ 2 + (innerpointy - test3pointuninvolvedy) ^ 2 + (innerpointz - test3pointuninvolvedz) ^ 2)
3029.             test4pointx = tripletintpointpair(4, 1)
3030.             test4pointy = tripletintpointpair(4, 2)
3031.             test4pointz = tripletintpointpair(4, 3)
3032.             test4pointuninvolvedx = tripletintpointpair(4, 7)
3033.             test4pointuninvolvedy = tripletintpointpair(4, 8)
3034.             test4pointuninvolvedz = tripletintpointpair(4, 9)
3035.             disttotest4point = SQR((innerpointx - test4pointx) ^ 2 + (innerpointy - test4pointy) ^ 2 + (innerpointz - test4pointz) ^ 2)
3036.             disttotest4pointuninvolved = SQR((innerpointx - test4pointuninvolvedx) ^ 2 + (innerpointy - test4pointuninvolvedy) ^ 2 + (innerpointz - test4pointuninvolvedz) ^ 2)
3037.             testpoint1used = 0
3038.             testpoint2used = 0
3039.             testpoint3used = 0
3040.             testpoint4used = 0
3041.             IF SQR((disttotest1pointuninvolved - disttotest2pointuninvolved) ^ 2) < 0.0001 THEN
3042.                 testpoint1used = 1
3043.                 testpoint2used = 1
3044.                 IF disttotest1point < disttotest2point THEN
3045.                     firsttriangleleftx = test1pointx
3046.                     firsttrianglelefty = test1pointy
3047.                     firsttriangleleftz = test1pointz
3048.                     firstfurtherpointx = test2pointx
3049.                     firstfurtherpointy = test2pointy
3050.                     firstfurtherpointz = test2pointz
3051.                 ELSE
3052.                     firsttriangleleftx = test2pointx
3053.                     firsttrianglelefty = test2pointy
3054.                     firsttriangleleftz = test2pointz
3055.                     firstfurtherpointx = test1pointx
3056.                     firstfurtherpointy = test1pointy
3057.                     firstfurtherpointz = test1pointz
3058.                 END IF
3059.             END IF
3060.             IF SQR((disttotest1pointuninvolved - disttotest3pointuninvolved) ^ 2) < 0.0001 THEN
3061.                 testpoint1used = 1
3062.                 testpoint3used = 1
3063.                 IF disttotest1point < disttotest3point THEN
3064.                     firsttriangleleftx = test1pointx
3065.                     firsttrianglelefty = test1pointy
3066.                     firsttriangleleftz = test1pointz
3067.                     firstfurtherpointx = test3pointx
3068.                     firstfurtherpointy = test3pointy
3069.                     firstfurtherpointz = test3pointz
3070.                 ELSE
3071.                     firsttriangleleftx = test3pointx
3072.                     firsttrianglelefty = test3pointy
3073.                     firsttriangleleftz = test3pointz
3074.                     firstfurtherpointx = test1pointx
3075.                     firstfurtherpointy = test1pointy
3076.                     firstfurtherpointz = test1pointz
3077.                 END IF
3078.             END IF
3079.             IF SQR((disttotest1pointuninvolved - disttotest4pointuninvolved) ^ 2) < 0.0001 THEN
3080.                 testpoint1used = 1
3081.                 testpoint4used = 1
3082.                 IF disttotest1point < disttotest4point THEN
3083.                     firsttriangleleftx = test1pointx
3084.                     firsttrianglelefty = test1pointy
3085.                     firsttriangleleftz = test1pointz
3086.                     firstfurtherpointx = test4pointx
3087.                     firstfurtherpointy = test4pointy
3088.                     firstfurtherpointz = test4pointz
3089.                 ELSE
3090.                     firsttriangleleftx = test4pointx
3091.                     firsttrianglelefty = test4pointy
3092.                     firsttriangleleftz = test4pointz
3093.                     firstfurtherpointx = test1pointx
3094.                     firstfurtherpointy = test1pointy
3095.                     firstfurtherpointz = test1pointz
3096.                 END IF
3097.             END IF
3098.             IF testpoint2used = 0 AND testpoint3used = 0 THEN
3099.                 IF disttotest2point < disttotest3point THEN
3100.                     firsttrianglerightx = test2pointx
3101.                     firsttrianglerighty = test2pointy
3102.                     firsttrianglerightz = test2pointz
3103.                     secondfurtherpointx = test3pointx
3104.                     secondfurtherpointy = test3pointy
3105.                     secondfurtherpointz = test3pointz
3106.                 ELSE
3107.                     firsttrianglerightx = test3pointx
3108.                     firsttrianglerighty = test3pointy
3109.                     firsttrianglerightz = test3pointz
3110.                     secondfurtherpointx = test2pointx
3111.                     secondfurtherpointy = test2pointy
3112.                     secondfurtherpointz = test2pointz
3113.                 END IF
3114.             END IF
3115.             IF testpoint3used = 0 AND testpoint4used = 0 THEN
3116.                 IF disttotest3point < disttotest4point THEN
3117.                     firsttrianglerightx = test3pointx
3118.                     firsttrianglerighty = test3pointy
3119.                     firsttrianglerightz = test3pointz
3120.                     secondfurtherpointx = test4pointx
3121.                     secondfurtherpointy = test4pointy
3122.                     secondfurtherpointz = test4pointz
3123.                 ELSE
3124.                     firsttrianglerightx = test4pointx
3125.                     firsttrianglerighty = test4pointy
3126.                     firsttrianglerightz = test4pointz
3127.                     secondfurtherpointx = test3pointx
3128.                     secondfurtherpointy = test3pointy
3129.                     secondfurtherpointz = test3pointz
3130.                 END IF
3131.             END IF
3132.             IF testpoint4used = 0 AND testpoint2used = 0 THEN
3133.                 IF disttotest4point < disttotest2point THEN
3134.                     firsttrianglerightx = test4pointx
3135.                     firsttrianglerighty = test4pointy
3136.                     firsttrianglerightz = test4pointz
3137.                     secondfurtherpointx = test2pointx
3138.                     secondfurtherpointy = test2pointy
3139.                     secondfurtherpointz = test2pointz
3140.                 ELSE
3141.                     firsttrianglerightx = test2pointx
3142.                     firsttrianglerighty = test2pointy
3143.                     firsttrianglerightz = test2pointz
3144.                     secondfurtherpointx = test4pointx
3145.                     secondfurtherpointy = test4pointy
3146.                     secondfurtherpointz = test4pointz
3147.                 END IF
3148.             END IF
3149.             flagindexkused = 0
3150.             ' First new triangle overwrites old one.
3151.             basepointx = innerpointx
3152.             basepointy = innerpointy
3153.             basepointz = innerpointz
3154.             rightpointx = firsttrianglerightx
3155.             rightpointy = firsttrianglerighty
3156.             rightpointz = firsttrianglerightz
3157.             leftpointx = firsttriangleleftx
3158.             leftpointy = firsttrianglelefty
3159.             leftpointz = firsttriangleleftz
3160.             GOSUB compute.triangle.areas.cents
3161.             GOSUB create.image.triangle
3162.             ' Second new triangle.
3163.             basepointx = firstfurtherpointx
3164.             basepointy = firstfurtherpointy
3165.             basepointz = firstfurtherpointz
3166.             rightpointx = secondfurtherpointx
3167.             rightpointy = secondfurtherpointy
3168.             rightpointz = secondfurtherpointz
3169.             leftpointx = outerpoint1x
3170.             leftpointy = outerpoint1y
3171.             leftpointz = outerpoint1z
3172.             GOSUB compute.triangle.areas.cents
3173.             GOSUB create.image.triangle
3174.             ' Third new triangle.
3175.             basepointx = firstfurtherpointx
3176.             basepointy = firstfurtherpointy
3177.             basepointz = firstfurtherpointz
3178.             rightpointx = outerpoint1x
3179.             rightpointy = outerpoint1y
3180.             rightpointz = outerpoint1z
3181.             leftpointx = outerpoint2x
3182.             leftpointy = outerpoint2y
3183.             leftpointz = outerpoint2z
3184.             GOSUB compute.triangle.areas.cents
3185.             GOSUB create.image.triangle
3186.         END IF
3187.         IF flagimagechange = 1 THEN
3188.             IF flagindexkused = 1 THEN
3189.                 GOTO begintripletsnipsubloop
3190.             ELSE
3191.                 GOSUB triplet.image.repack
3192.             END IF
3193.         END IF
3194.  
3195.     CASE " 0 3 0" '*' 3 of 15
3196.         ' Load information on overlap triangle.
3197.         int3ABCx = tripletencpoint(1, 1)
3198.         int3ABCy = tripletencpoint(1, 2)
3199.         int3ABCz = tripletencpoint(1, 3)
3200.         int3DEFx = tripletencpoint(1, 4)
3201.         int3DEFy = tripletencpoint(1, 5)
3202.         int3DEFz = tripletencpoint(1, 6)
3203.         int1ABCx = tripletencpoint(2, 1)
3204.         int1ABCy = tripletencpoint(2, 2)
3205.         int1ABCz = tripletencpoint(2, 3)
3206.         int1DEFx = tripletencpoint(2, 4)
3207.         int1DEFy = tripletencpoint(2, 5)
3208.         int1DEFz = tripletencpoint(3, 6)
3209.         int2ABCx = tripletencpoint(3, 1)
3210.         int2ABCy = tripletencpoint(3, 2)
3211.         int2ABCz = tripletencpoint(3, 3)
3212.         int2DEFx = tripletencpoint(3, 4)
3213.         int2DEFy = tripletencpoint(3, 5)
3214.         int2DEFz = tripletencpoint(3, 6)
3215.         GOSUB perform.overlap.calculations
3216.         ' Compare the apparent overlap tringles using centroid.
3217.         IF magcentABC > magcentDEF AND snip030enabled = 1 THEN
3218.             'IF magcentABC > magcentDEF AND magdiff > 0 AND areaABC > 0 AND areaDEF > 0 AND snip030enabled = 1 THEN
3219.             'LOCATE 3, 1: PRINT signaturefull$
3220.             flagimagechange = 1
3221.             flagindexkused = 0
3222.         END IF
3223.         IF flagimagechange = 1 THEN
3224.             IF flagindexkused = 1 THEN
3225.  
3226.             ELSE
3227.                 GOSUB triplet.image.repack
3228.             END IF
3229.         END IF
3230.  
3231.     CASE " 3 0 0" '*' 4 of 15
3232.         ' Load information on overlap triangle.
3233.         int3ABCx = tripletencpoint(1, 4)
3234.         int3ABCy = tripletencpoint(1, 5)
3235.         int3ABCz = tripletencpoint(1, 6)
3236.         int3DEFx = tripletencpoint(1, 1)
3237.         int3DEFy = tripletencpoint(1, 2)
3238.         int3DEFz = tripletencpoint(1, 3)
3239.         int1ABCx = tripletencpoint(2, 4)
3240.         int1ABCy = tripletencpoint(2, 5)
3241.         int1ABCz = tripletencpoint(2, 6)
3242.         int1DEFx = tripletencpoint(2, 1)
3243.         int1DEFy = tripletencpoint(2, 2)
3244.         int1DEFz = tripletencpoint(2, 3)
3245.         int2ABCx = tripletencpoint(3, 4)
3246.         int2ABCy = tripletencpoint(3, 5)
3247.         int2ABCz = tripletencpoint(3, 6)
3248.         int2DEFx = tripletencpoint(3, 1)
3249.         int2DEFy = tripletencpoint(3, 2)
3250.         int2DEFz = tripletencpoint(3, 3)
3251.         GOSUB perform.overlap.calculations
3252.         ' Compare the apparent overlap tringles using centroid.
3253.         IF magcentABC > magcentDEF AND magdiff > 0 AND areaABC > 0.005 AND areaDEF > 0.005 AND snip300enabled = 1 THEN
3254.             'LOCATE 4, 1: PRINT signaturefull$
3255.             flagimagechange = 1
3256.             centDEFx = (1 / 3) * (tripletencpoint(1, 4) + tripletencpoint(2, 4) + tripletencpoint(3, 4))
3257.             centDEFy = (1 / 3) * (tripletencpoint(1, 5) + tripletencpoint(2, 5) + tripletencpoint(3, 5))
3258.             centDEFz = (1 / 3) * (tripletencpoint(1, 6) + tripletencpoint(2, 6) + tripletencpoint(3, 6))
3259.             flagindexkused = 0
3260.             ' First new triangle overwrites old one.
3261.             basepointx = centDEFx
3262.             basepointy = centDEFy
3263.             basepointz = centDEFz
3264.             rightpointx = Ax
3265.             rightpointy = Ay
3266.             rightpointz = Az
3267.             leftpointx = Bx
3268.             leftpointy = By
3269.             leftpointz = Bz
3270.             GOSUB compute.triangle.areas.cents
3271.             GOSUB create.image.triangle
3272.             ' Second new triangle.
3273.             basepointx = centDEFx
3274.             basepointy = centDEFy
3275.             basepointz = centDEFz
3276.             rightpointx = Bx
3277.             rightpointy = By
3278.             rightpointz = Bz
3279.             leftpointx = Cx
3280.             leftpointy = Cy
3281.             leftpointz = Cz
3282.             GOSUB compute.triangle.areas.cents
3283.             GOSUB create.image.triangle
3284.             ' Third new triangle.
3285.             basepointx = centDEFx
3286.             basepointy = centDEFy
3287.             basepointz = centDEFz
3288.             rightpointx = Cx
3289.             rightpointy = Cy
3290.             rightpointz = Cz
3291.             leftpointx = Ax
3292.             leftpointy = Ay
3293.             leftpointz = Az
3294.             GOSUB compute.triangle.areas.cents
3295.             GOSUB create.image.triangle
3296.         END IF
3297.         IF flagimagechange = 1 THEN
3298.             IF flagindexkused = 1 THEN
3299.                 GOTO begintripletsnipsubloop
3300.             ELSE
3301.                 GOSUB triplet.image.repack
3302.             END IF
3303.         END IF
3304.  
3305.     CASE " 0 0 6" '*' 5 of 15
3306.         ' Load information on overlap triangle.
3307.         int3ABCx = tripletintpointpair(3, 1)
3308.         int3ABCy = tripletintpointpair(3, 2)
3309.         int3ABCz = tripletintpointpair(3, 3)
3310.         int3DEFx = tripletintpointpair(3, 4)
3311.         int3DEFy = tripletintpointpair(3, 5)
3312.         int3DEFz = tripletintpointpair(3, 6)
3313.         int1ABCx = tripletintpointpair(1, 1)
3314.         int1ABCy = tripletintpointpair(1, 2)
3315.         int1ABCz = tripletintpointpair(1, 3)
3316.         int1DEFx = tripletintpointpair(1, 4)
3317.         int1DEFy = tripletintpointpair(1, 5)
3318.         int1DEFz = tripletintpointpair(1, 6)
3319.         int2ABCx = tripletintpointpair(2, 1)
3320.         int2ABCy = tripletintpointpair(2, 2)
3321.         int2ABCz = tripletintpointpair(2, 3)
3322.         int2DEFx = tripletintpointpair(2, 4)
3323.         int2DEFy = tripletintpointpair(2, 5)
3324.         int2DEFz = tripletintpointpair(2, 6)
3325.         GOSUB perform.overlap.calculations
3326.         ' Compare the apparent overlap tringles using centroid.
3327.         IF magcentABC > magcentDEF AND magdiff > 0 AND areaABC > 0.005 AND areaDEF > 0.005 AND snip006enabled = 1 THEN
3328.             'LOCATE 5, 1: PRINT signaturefull$
3329.             flagimagechange = 1
3330.             centDEFx = (1 / 3) * (Dx + Ex + Fx) '(tripletencpoint(1, 4) + tripletencpoint(2, 4) + tripletencpoint(3, 4))
3331.             centDEFy = (1 / 3) * (Dy + Ey + Fy) '(tripletencpoint(1, 5) + tripletencpoint(2, 5) + tripletencpoint(3, 5))
3332.             centDEFz = (1 / 3) * (Dz + Ez + Fz) '(tripletencpoint(1, 6) + tripletencpoint(2, 6) + tripletencpoint(3, 6))
3333.             flagindexkused = 0
3334.             ' First new triangle overwrites old one.
3335.             basepointx = centDEFx
3336.             basepointy = centDEFy
3337.             basepointz = centDEFz
3338.             rightpointx = Ax
3339.             rightpointy = Ay
3340.             rightpointz = Az
3341.             leftpointx = Bx
3342.             leftpointy = By
3343.             leftpointz = Bz
3344.             GOSUB compute.triangle.areas.cents
3345.             GOSUB create.image.triangle
3346.             ' Second new triangle.
3347.             basepointx = centDEFx
3348.             basepointy = centDEFy
3349.             basepointz = centDEFz
3350.             rightpointx = Bx
3351.             rightpointy = By
3352.             rightpointz = Bz
3353.             leftpointx = Cx
3354.             leftpointy = Cy
3355.             leftpointz = Cz
3356.             GOSUB compute.triangle.areas.cents
3357.             GOSUB create.image.triangle
3358.             ' Third new triangle.
3359.             basepointx = centDEFx
3360.             basepointy = centDEFy
3361.             basepointz = centDEFz
3362.             rightpointx = Cx
3363.             rightpointy = Cy
3364.             rightpointz = Cz
3365.             leftpointx = Ax
3366.             leftpointy = Ay
3367.             leftpointz = Az
3368.             GOSUB compute.triangle.areas.cents
3369.             GOSUB create.image.triangle
3370.         END IF
3371.         IF flagimagechange = 1 THEN
3372.             IF flagindexkused = 1 THEN
3373.                 GOTO begintripletsnipsubloop
3374.             ELSE
3375.                 GOSUB triplet.image.repack
3376.             END IF
3377.         END IF
3378.  
3379.     CASE " 0 1 2" '*' 6 of 15
3380.         ' Load information on overlap triangle.
3381.         int3ABCx = tripletencpoint(1, 1)
3382.         int3ABCy = tripletencpoint(1, 2)
3383.         int3ABCz = tripletencpoint(1, 3)
3384.         int3DEFx = tripletencpoint(1, 4)
3385.         int3DEFy = tripletencpoint(1, 5)
3386.         int3DEFz = tripletencpoint(1, 6)
3387.         int1ABCx = tripletintpointpair(1, 1)
3388.         int1ABCy = tripletintpointpair(1, 2)
3389.         int1ABCz = tripletintpointpair(1, 3)
3390.         int1DEFx = tripletintpointpair(1, 4)
3391.         int1DEFy = tripletintpointpair(1, 5)
3392.         int1DEFz = tripletintpointpair(1, 6)
3393.         int2ABCx = tripletintpointpair(2, 1)
3394.         int2ABCy = tripletintpointpair(2, 2)
3395.         int2ABCz = tripletintpointpair(2, 3)
3396.         int2DEFx = tripletintpointpair(2, 4)
3397.         int2DEFy = tripletintpointpair(2, 5)
3398.         int2DEFz = tripletintpointpair(2, 6)
3399.         GOSUB perform.overlap.calculations
3400.         ' Compare the apparent overlap tringles using centroid.
3401.         IF magcentABC > magcentDEF AND magdiff > 0 AND areaABC > 0.005 AND areaDEF > 0.005 AND snip012enabled = 1 THEN
3402.             'LOCATE 6, 1: PRINT signaturefull$
3403.             flagimagechange = 1
3404.             flagindexkused = 0
3405.             ' First new triangle overwrites old one.
3406.             basepointx = tripletintpointpair(2, 7)
3407.             basepointy = tripletintpointpair(2, 8)
3408.             basepointz = tripletintpointpair(2, 9)
3409.             rightpointx = int1ABCx
3410.             rightpointy = int1ABCy
3411.             rightpointz = int1ABCz
3412.             leftpointx = tripletintpointpair(1, 7)
3413.             leftpointy = tripletintpointpair(1, 8)
3414.             leftpointz = tripletintpointpair(1, 9)
3415.             GOSUB compute.triangle.areas.cents
3416.             GOSUB create.image.triangle
3417.             ' Second new triangle.
3418.             basepointx = int2ABCx
3419.             basepointy = int2ABCy
3420.             basepointz = int2ABCz
3421.             rightpointx = tripletintpointpair(1, 7)
3422.             rightpointy = tripletintpointpair(1, 8)
3423.             rightpointz = tripletintpointpair(1, 9)
3424.             leftpointx = int1ABCx
3425.             leftpointy = int1ABCy
3426.             leftpointz = int1ABCz
3427.             GOSUB compute.triangle.areas.cents
3428.             GOSUB create.image.triangle
3429.         END IF
3430.         IF flagimagechange = 1 THEN
3431.             IF flagindexkused = 1 THEN
3432.                 GOTO begintripletsnipsubloop
3433.             ELSE
3434.                 GOSUB triplet.image.repack
3435.             END IF
3436.         END IF
3437.  
3438.     CASE " 1 0 2" '*' 7 of 15
3439.         ' Load information on overlap triangle.
3440.         int3ABCx = tripletencpoint(1, 4)
3441.         int3ABCy = tripletencpoint(1, 5)
3442.         int3ABCz = tripletencpoint(1, 6)
3443.         int3DEFx = tripletencpoint(1, 1)
3444.         int3DEFy = tripletencpoint(1, 2)
3445.         int3DEFz = tripletencpoint(1, 3)
3446.         int1ABCx = tripletintpointpair(1, 1)
3447.         int1ABCy = tripletintpointpair(1, 2)
3448.         int1ABCz = tripletintpointpair(1, 3)
3449.         int1DEFx = tripletintpointpair(1, 4)
3450.         int1DEFy = tripletintpointpair(1, 5)
3451.         int1DEFz = tripletintpointpair(1, 6)
3452.         int2ABCx = tripletintpointpair(2, 1)
3453.         int2ABCy = tripletintpointpair(2, 2)
3454.         int2ABCz = tripletintpointpair(2, 3)
3455.         int2DEFx = tripletintpointpair(2, 4)
3456.         int2DEFy = tripletintpointpair(2, 5)
3457.         int2DEFz = tripletintpointpair(2, 6)
3458.         GOSUB perform.overlap.calculations
3459.         ' Compare the apparent overlap tringles using centroid.
3460.         IF magcentABC > magcentDEF AND magdiff > 0 AND areaABC > 0.005 AND areaDEF > 0.005 AND snip102enabled = 1 THEN
3461.             'LOCATE 7, 1: PRINT signaturefull$
3462.             flagimagechange = 1
3463.             outerpointx = tripletintpointpair(1, 7)
3464.             outerpointy = tripletintpointpair(1, 8)
3465.             outerpointz = tripletintpointpair(1, 9)
3466.             leftvertpointx = tripletintpointpair(1, 10)
3467.             leftvertpointy = tripletintpointpair(1, 11)
3468.             leftvertpointz = tripletintpointpair(1, 12)
3469.             rightvertpointx = tripletintpointpair(1, 13)
3470.             rightvertpointy = tripletintpointpair(1, 14)
3471.             rightvertpointz = tripletintpointpair(1, 15)
3472.             int1ABCdistleftvertpoint = SQR((leftvertpointx - int1ABCx) ^ 2 + (leftvertpointy - int1ABCy) ^ 2 + (leftvertpointz - int1ABCz) ^ 2)
3473.             '*'int1ABCdistrightvertpoint = SQR((rightvertpointx - int1ABCx) ^ 2 + (rightvertpointy - int1ABCy) ^ 2 + (rightvertpointz - int1ABCz) ^ 2)
3474.             int2ABCdistleftvertpoint = SQR((leftvertpointx - int2ABCx) ^ 2 + (leftvertpointy - int2ABCy) ^ 2 + (leftvertpointz - int2ABCz) ^ 2)
3475.             '*'int2ABCdistrightvertpoint = SQR((rightvertpointx - int2ABCx) ^ 2 + (rightvertpointy - int2ABCy) ^ 2 + (rightvertpointz - int2ABCz) ^ 2)
3476.             IF int1ABCdistleftvertpoint < int2ABCdistleftvertpoint THEN
3477.                 intleftclosestx = int1ABCx
3478.                 intleftclosesty = int1ABCy
3479.                 intleftclosestz = int1ABCz
3480.                 intrightclosestx = int2ABCx
3481.                 intrightclosesty = int2ABCy
3482.                 intrightclosestz = int2ABCz
3483.             ELSE
3484.                 intleftclosestx = int2ABCx
3485.                 intleftclosesty = int2ABCy
3486.                 intleftclosestz = int2ABCz
3487.                 intrightclosestx = int1ABCx
3488.                 intrightclosesty = int1ABCy
3489.                 intrightclosestz = int1ABCz
3490.             END IF
3491.             flagindexkused = 0
3492.             ' First new triangle overwrites old one.
3493.             basepointx = leftvertpointx
3494.             basepointy = leftvertpointy
3495.             basepointz = leftvertpointz
3496.             rightpointx = intleftclosestx
3497.             rightpointy = intleftclosesty
3498.             rightpointz = intleftclosestz
3499.             leftpointx = int3ABCx
3500.             leftpointy = int3ABCy
3501.             leftpointz = int3ABCz
3502.             GOSUB compute.triangle.areas.cents
3503.             GOSUB create.image.triangle
3504.             ' Second new triangle.
3505.             basepointx = outerpointx
3506.             basepointy = outerpointy
3507.             basepointz = outerpointz
3508.             rightpointx = leftvertpointx
3509.             rightpointy = leftvertpointy
3510.             rightpointz = leftvertpointz
3511.             leftpointx = int3ABCx
3512.             leftpointy = int3ABCy
3513.             leftpointz = int3ABCz
3514.             GOSUB compute.triangle.areas.cents
3515.             GOSUB create.image.triangle
3516.             ' Third new triangle.
3517.             basepointx = outerpointx
3518.             basepointy = outerpointy
3519.             basepointz = outerpointz
3520.             rightpointx = int3ABCx
3521.             rightpointy = int3ABCy
3522.             rightpointz = int3ABCz
3523.             leftpointx = rightvertpointx
3524.             leftpointy = rightvertpointy
3525.             leftpointz = rightvertpointz
3526.             GOSUB compute.triangle.areas.cents
3527.             GOSUB create.image.triangle
3528.             ' Fourth new triangle.
3529.             basepointx = rightvertpointx
3530.             basepointy = rightvertpointy
3531.             basepointz = rightvertpointz
3532.             rightpointx = int3ABCx
3533.             rightpointy = int3ABCy
3534.             rightpointz = int3ABCz
3535.             leftpointx = intrightclosestx
3536.             leftpointy = intrightclosesty
3537.             leftpointz = intrightclosestz
3538.             GOSUB compute.triangle.areas.cents
3539.             GOSUB create.image.triangle
3540.         END IF
3541.         IF flagimagechange = 1 THEN
3542.             IF flagindexkused = 1 THEN
3543.                 GOTO begintripletsnipsubloop
3544.             ELSE
3545.                 GOSUB triplet.image.repack
3546.             END IF
3547.         END IF
3548.     CASE " 1 1 2" '*' 8 of 15
3549.         ' Load information on overlap triangle.
3550.         int3ABCx = tripletencpoint(1, 4) '
3551.         int3ABCy = tripletencpoint(1, 5) '
3552.         int3ABCz = tripletencpoint(1, 6) '
3553.         int3DEFx = tripletencpoint(1, 1) '
3554.         int3DEFy = tripletencpoint(1, 2) '
3555.         int3DEFz = tripletencpoint(1, 3) '
3556.         int1ABCx = tripletintpointpair(1, 1)
3557.         int1ABCy = tripletintpointpair(1, 2)
3558.         int1ABCz = tripletintpointpair(1, 3)
3559.         int1DEFx = tripletintpointpair(1, 4)
3560.         int1DEFy = tripletintpointpair(1, 5)
3561.         int1DEFz = tripletintpointpair(1, 6)
3562.         int2ABCx = tripletintpointpair(2, 1)
3563.         int2ABCy = tripletintpointpair(2, 2)
3564.         int2ABCz = tripletintpointpair(2, 3)
3565.         int2DEFx = tripletintpointpair(2, 4)
3566.         int2DEFy = tripletintpointpair(2, 5)
3567.         int2DEFz = tripletintpointpair(2, 6)
3568.         GOSUB perform.overlap.calculations
3569.         ' Compare the apparent overlap tringles using centroid.
3570.         IF magcentABC > magcentDEF AND magdiff > 0 AND areaABC > 0.005 AND areaDEF > 0.005 AND snip112enabled = 1 THEN
3571.             'LOCATE 8, 1: PRINT signaturefull$
3572.             flagimagechange = 1
3573.             flagindexkused = 0
3574.             ' First new triangle overwrites old one.
3575.             basepointx = int3ABCx '
3576.             basepointy = int3ABCy '
3577.             basepointz = int3ABCz '
3578.             rightpointx = int1ABCx
3579.             rightpointy = int1ABCy
3580.             rightpointz = int1ABCz
3581.             leftpointx = tripletintpointpair(2, 7)
3582.             leftpointy = tripletintpointpair(2, 8)
3583.             leftpointz = tripletintpointpair(2, 9)
3584.             GOSUB compute.triangle.areas.cents
3585.             GOSUB create.image.triangle
3586.             ' Second new triangle.
3587.             basepointx = int3ABCx '
3588.             basepointy = int3ABCy '
3589.             basepointz = int3ABCz '
3590.             rightpointx = tripletintpointpair(1, 7)
3591.             rightpointy = tripletintpointpair(1, 8)
3592.             rightpointz = tripletintpointpair(1, 9)
3593.             leftpointx = tripletintpointpair(2, 7)
3594.             leftpointy = tripletintpointpair(2, 8)
3595.             leftpointz = tripletintpointpair(2, 9)
3596.             GOSUB compute.triangle.areas.cents
3597.             GOSUB create.image.triangle
3598.             ' Third new triangle.
3599.             basepointx = int3ABCx '
3600.             basepointy = int3ABCy '
3601.             basepointz = int3ABCz '
3602.             rightpointx = int2ABCx
3603.             rightpointy = int2ABCy
3604.             rightpointz = int2ABCz
3605.             leftpointx = tripletintpointpair(1, 7)
3606.             leftpointy = tripletintpointpair(1, 8)
3607.             leftpointz = tripletintpointpair(1, 9)
3608.             GOSUB compute.triangle.areas.cents
3609.             GOSUB create.image.triangle
3610.         END IF
3611.         IF flagimagechange = 1 THEN
3612.             IF flagindexkused = 1 THEN
3613.                 GOTO begintripletsnipsubloop
3614.             ELSE
3615.                 GOSUB triplet.image.repack
3616.             END IF
3617.         END IF
3618.  
3619.     CASE " 0 2 2" '*' 9 of 15
3620.         ' Load information on overlap triangle.
3621.         int3ABCx = tripletencpoint(1, 1)
3622.         int3ABCy = tripletencpoint(1, 2)
3623.         int3ABCz = tripletencpoint(1, 3)
3624.         int3DEFx = tripletencpoint(1, 4)
3625.         int3DEFy = tripletencpoint(1, 5)
3626.         int3DEFz = tripletencpoint(1, 6)
3627.         int1ABCx = tripletintpointpair(1, 1)
3628.         int1ABCy = tripletintpointpair(1, 2)
3629.         int1ABCz = tripletintpointpair(1, 3)
3630.         int1DEFx = tripletintpointpair(1, 4)
3631.         int1DEFy = tripletintpointpair(1, 5)
3632.         int1DEFz = tripletintpointpair(1, 6)
3633.         int2ABCx = tripletintpointpair(2, 1)
3634.         int2ABCy = tripletintpointpair(2, 2)
3635.         int2ABCz = tripletintpointpair(2, 3)
3636.         int2DEFx = tripletintpointpair(2, 4)
3637.         int2DEFy = tripletintpointpair(2, 5)
3638.         int2DEFz = tripletintpointpair(2, 6)
3639.         GOSUB perform.overlap.calculations
3640.         ' Compare the apparent overlap tringles using centroid.
3641.         IF magcentABC > magcentDEF AND magdiff > 0 AND areaABC > 0.005 AND areaDEF > 0.005 AND snip022enabled = 1 THEN
3642.             'LOCATE 9, 1: PRINT signaturefull$
3643.             flagimagechange = 1
3644.             ' Classify the outer point of ABC.
3645.             possibleoutpoint1x = tripletintpointpair(1, 10)
3646.             possibleoutpoint1y = tripletintpointpair(1, 11)
3647.             possibleoutpoint1z = tripletintpointpair(1, 12)
3648.             possibleoutpoint2x = tripletintpointpair(1, 13)
3649.             possibleoutpoint2y = tripletintpointpair(1, 14)
3650.             possibleoutpoint2z = tripletintpointpair(1, 15)
3651.             IF SQR((possibleoutpoint1x - tripletencpoint(1, 1)) ^ 2 + (possibleoutpoint1y - tripletencpoint(1, 2)) ^ 2 + (possibleoutpoint1z - tripletencpoint(1, 3)) ^ 2) > 0.1 AND SQR((possibleoutpoint1x - tripletencpoint(2, 1)) ^ 2 + (possibleoutpoint1y - tripletencpoint(2, 2)) ^ 2 + (possibleoutpoint1z - tripletencpoint(2, 3)) ^ 2) > 0.1 THEN
3652.                 outerpointx = possibleoutpoint1x
3653.                 outerpointy = possibleoutpoint1y
3654.                 outerpointz = possibleoutpoint1z
3655.             ELSE
3656.                 outerpointx = possibleoutpoint2x
3657.                 outerpointy = possibleoutpoint2y
3658.                 outerpointz = possibleoutpoint2z
3659.             END IF
3660.             flagindexkused = 0
3661.             ' First new triangle overwrites old one.
3662.             basepointx = int1ABCx
3663.             basepointy = int1ABCy
3664.             basepointz = int1ABCz
3665.             rightpointx = outerpointx
3666.             rightpointy = outerpointy
3667.             rightpointz = outerpointz
3668.             leftpointx = int2ABCx
3669.             leftpointy = int2ABCy
3670.             leftpointz = int2ABCz
3671.             GOSUB compute.triangle.areas.cents
3672.             GOSUB create.image.triangle
3673.         END IF
3674.         IF flagimagechange = 1 THEN
3675.             IF flagindexkused = 1 THEN
3676.                 GOTO begintripletsnipsubloop
3677.             ELSE
3678.                 GOSUB triplet.image.repack
3679.             END IF
3680.         END IF
3681.  
3682.     CASE " 2 0 2" '*' 10 of 15
3683.         ' Load information on overlap triangle.
3684.         int3ABCx = tripletencpoint(1, 4)
3685.         int3ABCy = tripletencpoint(1, 5)
3686.         int3ABCz = tripletencpoint(1, 6)
3687.         int3DEFx = tripletencpoint(1, 1)
3688.         int3DEFy = tripletencpoint(1, 2)
3689.         int3DEFz = tripletencpoint(1, 3)
3690.         int1ABCx = tripletintpointpair(1, 1)
3691.         int1ABCy = tripletintpointpair(1, 2)
3692.         int1ABCz = tripletintpointpair(1, 3)
3693.         int1DEFx = tripletintpointpair(1, 4)
3694.         int1DEFy = tripletintpointpair(1, 5)
3695.         int1DEFz = tripletintpointpair(1, 6)
3696.         int2ABCx = tripletintpointpair(2, 1)
3697.         int2ABCy = tripletintpointpair(2, 2)
3698.         int2ABCz = tripletintpointpair(2, 3)
3699.         int2DEFx = tripletintpointpair(2, 4)
3700.         int2DEFy = tripletintpointpair(2, 5)
3701.         int2DEFz = tripletintpointpair(2, 6)
3702.         GOSUB perform.overlap.calculations
3703.         ' Compare the apparent overlap tringles using centroid.
3704.         IF magcentABC > magcentDEF AND magdiff > 0 AND areaABC > 0.005 AND areaDEF > 0.005 AND snip202enabled = 1 THEN
3705.             'LOCATE 10, 1: PRINT signaturefull$
3706.             flagimagechange = 1
3707.             verttopx = tripletintpointpair(1, 7)
3708.             verttopy = tripletintpointpair(1, 8)
3709.             verttopz = tripletintpointpair(1, 9)
3710.             vertleftx = tripletintpointpair(1, 10)
3711.             vertlefty = tripletintpointpair(1, 11)
3712.             vertleftz = tripletintpointpair(1, 12)
3713.             vertrightx = tripletintpointpair(1, 13)
3714.             vertrighty = tripletintpointpair(1, 14)
3715.             vertrightz = tripletintpointpair(1, 15)
3716.             disttointpoint1 = SQR((vertleftx - tripletintpointpair(1, 1)) ^ 2 + (vertlefty - tripletintpointpair(1, 2)) ^ 2 + (vertleftz - tripletintpointpair(1, 3)) ^ 2)
3717.             disttointpoint2 = SQR((vertleftx - tripletintpointpair(2, 1)) ^ 2 + (vertlefty - tripletintpointpair(2, 2)) ^ 2 + (vertleftz - tripletintpointpair(2, 3)) ^ 2)
3718.             IF disttointpoint1 < disttointpoint2 THEN
3719.                 intleftx = tripletintpointpair(1, 1)
3720.                 intlefty = tripletintpointpair(1, 2)
3721.                 intleftz = tripletintpointpair(1, 3)
3722.                 intrightx = tripletintpointpair(2, 1)
3723.                 intrighty = tripletintpointpair(2, 2)
3724.                 intrightz = tripletintpointpair(2, 3)
3725.                 candencleft1x = tripletintpointpair(1, 16)
3726.                 candencleft1y = tripletintpointpair(1, 17)
3727.                 candencleft1z = tripletintpointpair(1, 18)
3728.                 candencleft2x = tripletintpointpair(1, 19)
3729.                 candencleft2y = tripletintpointpair(1, 20)
3730.                 candencleft2z = tripletintpointpair(1, 21)
3731.             ELSE
3732.                 intleftx = tripletintpointpair(2, 1)
3733.                 intlefty = tripletintpointpair(2, 2)
3734.                 intleftz = tripletintpointpair(2, 3)
3735.                 intrightx = tripletintpointpair(1, 1)
3736.                 intrighty = tripletintpointpair(1, 2)
3737.                 intrightz = tripletintpointpair(1, 3)
3738.                 candencleft1x = tripletintpointpair(2, 16)
3739.                 candencleft1y = tripletintpointpair(2, 17)
3740.                 candencleft1z = tripletintpointpair(2, 18)
3741.                 candencleft2x = tripletintpointpair(2, 19)
3742.                 candencleft2y = tripletintpointpair(2, 20)
3743.                 candencleft2z = tripletintpointpair(2, 21)
3744.             END IF
3745.             IF SQR((candencleft1x - tripletencpoint(1, 1)) ^ 2 + (candencleft1y - tripletencpoint(1, 2)) ^ 2 + (candencleft1z - tripletencpoint(1, 3)) ^ 2) < 0.0001 OR SQR((candencleft2x - tripletencpoint(1, 1)) ^ 2 + (candencleft2y - tripletencpoint(1, 2)) ^ 2 + (candencleft2z - tripletencpoint(1, 3)) ^ 2) < 0.0001 THEN
3746.                 encpointleftx = tripletencpoint(1, 4)
3747.                 encpointlefty = tripletencpoint(1, 5)
3748.                 encpointleftz = tripletencpoint(1, 6)
3749.                 encpointrightx = tripletencpoint(2, 4)
3750.                 encpointrighty = tripletencpoint(2, 5)
3751.                 encpointrightz = tripletencpoint(2, 6)
3752.             ELSE
3753.                 encpointleftx = tripletencpoint(2, 4)
3754.                 encpointlefty = tripletencpoint(2, 5)
3755.                 encpointleftz = tripletencpoint(2, 6)
3756.                 encpointrightx = tripletencpoint(1, 4)
3757.                 encpointrighty = tripletencpoint(1, 5)
3758.                 encpointrightz = tripletencpoint(1, 6)
3759.             END IF
3760.             flagindexkused = 0
3761.             ' First new triangle overwrites old one.
3762.             basepointx = intleftx
3763.             basepointy = intlefty
3764.             basepointz = intleftz
3765.             rightpointx = encpointleftx
3766.             rightpointy = encpointlefty
3767.             rightpointz = encpointleftz
3768.             leftpointx = vertleftx
3769.             leftpointy = vertlefty
3770.             leftpointz = vertleftz
3771.             GOSUB compute.triangle.areas.cents
3772.             GOSUB create.image.triangle
3773.             ' Second new triangle.
3774.             basepointx = encpointleftx
3775.             basepointy = encpointlefty
3776.             basepointz = encpointleftz
3777.             rightpointx = verttopx
3778.             rightpointy = verttopy
3779.             rightpointz = verttopz
3780.             leftpointx = vertleftx
3781.             leftpointy = vertlefty
3782.             leftpointz = vertleftz
3783.             GOSUB compute.triangle.areas.cents
3784.             GOSUB create.image.triangle
3785.             ' Third new triangle.
3786.             basepointx = encpointrightx
3787.             basepointy = encpointrighty
3788.             basepointz = encpointrightz
3789.             rightpointx = verttopx
3790.             rightpointy = verttopy
3791.             rightpointz = verttopz
3792.             leftpointx = encpointleftx
3793.             leftpointy = encpointlefty
3794.             leftpointz = encpointleftz
3795.             GOSUB compute.triangle.areas.cents
3796.             GOSUB create.image.triangle
3797.             ' Fourth new triangle.
3798.             basepointx = vertrightx
3799.             basepointy = vertrighty
3800.             basepointz = vertrightz
3801.             rightpointx = verttopx
3802.             rightpointy = verttopy
3803.             rightpointz = verttopz
3804.             leftpointx = encpointrightx
3805.             leftpointy = encpointrighty
3806.             leftpointz = encpointrightz
3807.             GOSUB compute.triangle.areas.cents
3808.             GOSUB create.image.triangle
3809.             ' Fifth new triangle.
3810.             basepointx = vertrightx
3811.             basepointy = vertrighty
3812.             basepointz = vertrightz
3813.             rightpointx = encpointrightx
3814.             rightpointy = encpointrighty
3815.             rightpointz = encpointrightz
3816.             leftpointx = intrightx
3817.             leftpointy = intrighty
3818.             leftpointz = intrightz
3819.             GOSUB compute.triangle.areas.cents
3820.             GOSUB create.image.triangle
3821.         END IF
3822.         IF flagimagechange = 1 THEN
3823.             IF flagindexkused = 1 THEN
3824.                 GOTO begintripletsnipsubloop
3825.             ELSE
3826.                 GOSUB triplet.image.repack
3827.             END IF
3828.         END IF
3829.  
3830.     CASE " 1 2 2" '*' 11 of 15
3831.         ' Load information on overlap triangle.
3832.         int3ABCx = tripletencpoint(1, 1)
3833.         int3ABCy = tripletencpoint(1, 2)
3834.         int3ABCz = tripletencpoint(1, 3)
3835.         int3DEFx = tripletencpoint(1, 4)
3836.         int3DEFy = tripletencpoint(1, 5)
3837.         int3DEFz = tripletencpoint(1, 6)
3838.         int1ABCx = tripletintpointpair(1, 1)
3839.         int1ABCy = tripletintpointpair(1, 2)
3840.         int1ABCz = tripletintpointpair(1, 3)
3841.         int1DEFx = tripletintpointpair(1, 4)
3842.         int1DEFy = tripletintpointpair(1, 5)
3843.         int1DEFz = tripletintpointpair(1, 6)
3844.         int2ABCx = tripletintpointpair(2, 1)
3845.         int2ABCy = tripletintpointpair(2, 2)
3846.         int2ABCz = tripletintpointpair(2, 3)
3847.         int2DEFx = tripletintpointpair(2, 4)
3848.         int2DEFy = tripletintpointpair(2, 5)
3849.         int2DEFz = tripletintpointpair(2, 6)
3850.         GOSUB perform.overlap.calculations
3851.         ' Compare the apparent overlap tringles using centroid.
3852.         IF magcentABC > magcentDEF AND magdiff > 0 AND areaABC > 0.005 AND areaDEF > 0.005 AND snip122enabled = 1 THEN
3853.             'LOCATE 11, 1: PRINT signaturefull$
3854.             flagimagechange = 1
3855.             candouterpoint1x = tripletintpointpair(1, 10)
3856.             candouterpoint1y = tripletintpointpair(1, 11)
3857.             candouterpoint1z = tripletintpointpair(1, 12)
3858.             candouterpoint2x = tripletintpointpair(1, 13)
3859.             candouterpoint2y = tripletintpointpair(1, 14)
3860.             candouterpoint2z = tripletintpointpair(1, 15)
3861.             IF SQR((candouterpoint1x - tripletencpoint(1, 1)) ^ 2 + (candouterpoint1y - tripletencpoint(1, 2)) ^ 2 + (candouterpoint1z - tripletencpoint(1, 3)) ^ 2) > 0.1 AND SQR((candouterpoint1x - tripletencpoint(2, 1)) ^ 2 + (candouterpoint1y - tripletencpoint(2, 2)) ^ 2 + (candouterpoint1z - tripletencpoint(2, 3)) ^ 2) > 0.1 THEN
3862.                 outerpointx = candouterpoint1x
3863.                 outerpointy = candouterpoint1y
3864.                 outerpointz = candouterpoint1z
3865.             ELSE
3866.                 outerpointx = candouterpoint1x
3867.                 outerpointy = candouterpoint1y
3868.                 outerpointz = candouterpoint1z
3869.             END IF
3870.             flagindexkused = 0
3871.             ' First new triangle overwrites old one.
3872.             basepointx = int3DEFx
3873.             basepointy = int3DEFy
3874.             basepointz = int3DEFz
3875.             rightpointx = outerpointx
3876.             rightpointy = outerpointy
3877.             rightpointz = outerpointz
3878.             leftpointx = int1ABCx
3879.             leftpointy = int1ABCy
3880.             leftpointz = int1ABCz
3881.             GOSUB compute.triangle.areas.cents
3882.             GOSUB create.image.triangle
3883.             ' Second new triangle.
3884.             basepointx = int3DEFx
3885.             basepointy = int3DEFy
3886.             basepointz = int3DEFz
3887.             rightpointx = outerpointx
3888.             rightpointy = outerpointy
3889.             rightpointz = outerpointz
3890.             leftpointx = int2ABCx
3891.             leftpointy = int2ABCy
3892.             leftpointz = int2ABCz
3893.             GOSUB compute.triangle.areas.cents
3894.             GOSUB create.image.triangle
3895.         END IF
3896.         IF flagimagechange = 1 THEN
3897.             IF flagindexkused = 1 THEN
3898.                 GOTO begintripletsnipsubloop
3899.             ELSE
3900.                 GOSUB triplet.image.repack
3901.             END IF
3902.         END IF
3903.     CASE " 2 1 2" '*' 12 of 15
3904.         ' Load information on overlap triangle.
3905.         int3ABCx = tripletencpoint(1, 4)
3906.         int3ABCy = tripletencpoint(1, 5)
3907.         int3ABCz = tripletencpoint(1, 6)
3908.         int3DEFx = tripletencpoint(1, 1)
3909.         int3DEFy = tripletencpoint(1, 2)
3910.         int3DEFz = tripletencpoint(1, 3)
3911.         int1ABCx = tripletintpointpair(1, 1)
3912.         int1ABCy = tripletintpointpair(1, 2)
3913.         int1ABCz = tripletintpointpair(1, 3)
3914.         int1DEFx = tripletintpointpair(1, 4)
3915.         int1DEFy = tripletintpointpair(1, 5)
3916.         int1DEFz = tripletintpointpair(1, 6)
3917.         int2ABCx = tripletintpointpair(2, 1)
3918.         int2ABCy = tripletintpointpair(2, 2)
3919.         int2ABCz = tripletintpointpair(2, 3)
3920.         int2DEFx = tripletintpointpair(2, 4)
3921.         int2DEFy = tripletintpointpair(2, 5)
3922.         int2DEFz = tripletintpointpair(2, 6)
3923.         GOSUB perform.overlap.calculations
3924.         ' Compare the apparent overlap tringles using centroid.
3925.         IF magcentABC > magcentDEF AND magdiff > 0 AND areaABC > 0.005 AND areaDEF > 0.005 AND snip212enabled = 1 THEN
3926.             'LOCATE 12, 1: PRINT signaturefull$
3927.             flagimagechange = 1
3928.             outvert1x = tripletintpointpair(2, 7)
3929.             outvert1y = tripletintpointpair(2, 8)
3930.             outvert1z = tripletintpointpair(2, 9)
3931.             outvert2x = tripletintpointpair(1, 7)
3932.             outvert2y = tripletintpointpair(1, 8)
3933.             outvert2z = tripletintpointpair(1, 9)
3934.             IF SQR((tripletintpointpair(1, 16) - tripletencpoint(1, 1)) ^ 2 + (tripletintpointpair(1, 17) - tripletencpoint(1, 2)) ^ 2 + (tripletintpointpair(1, 18) - tripletencpoint(1, 3)) ^ 2) < 0.0001 OR SQR((tripletintpointpair(1, 19) - tripletencpoint(1, 1)) ^ 2 + (tripletintpointpair(1, 20) - tripletencpoint(1, 2)) ^ 2 + (tripletintpointpair(1, 21) - tripletencpoint(1, 3)) ^ 2) < 0.0001 THEN
3935.                 encpoint1x = tripletencpoint(1, 4)
3936.                 encpoint1y = tripletencpoint(1, 5)
3937.                 encpoint1z = tripletencpoint(1, 6)
3938.                 encpoint2x = tripletencpoint(2, 4)
3939.                 encpoint2y = tripletencpoint(2, 5)
3940.                 encpoint2z = tripletencpoint(2, 6)
3941.             ELSE
3942.                 encpoint1x = tripletencpoint(2, 4)
3943.                 encpoint1y = tripletencpoint(2, 5)
3944.                 encpoint1z = tripletencpoint(2, 6)
3945.                 encpoint2x = tripletencpoint(1, 4)
3946.                 encpoint2y = tripletencpoint(1, 5)
3947.                 encpoint2z = tripletencpoint(1, 6)
3948.             END IF
3949.             flagindexkused = 0
3950.             ' First new triangle overwrites old one.
3951.             basepointx = outvert2x
3952.             basepointy = outvert2y
3953.             basepointz = outvert2z
3954.             rightpointx = int2ABCx
3955.             rightpointy = int2ABCy
3956.             rightpointz = int2ABCz
3957.             leftpointx = encpoint2x
3958.             leftpointy = encpoint2y
3959.             leftpointz = encpoint2z
3960.             GOSUB compute.triangle.areas.cents
3961.             GOSUB create.image.triangle
3962.             ' Second new triangle.
3963.             basepointx = outvert2x
3964.             basepointy = outvert2y
3965.             basepointz = outvert2z
3966.             rightpointx = encpoint2x
3967.             rightpointy = encpoint2y
3968.             rightpointz = encpoint2z
3969.             leftpointx = encpoint1x
3970.             leftpointy = encpoint1y
3971.             leftpointz = encpoint1z
3972.             GOSUB compute.triangle.areas.cents
3973.             GOSUB create.image.triangle
3974.             ' Third new triangle.
3975.             basepointx = outvert1x
3976.             basepointy = outvert1y
3977.             basepointz = outvert1z
3978.             rightpointx = outvert2x
3979.             rightpointy = outvert2y
3980.             rightpointz = outvert2z
3981.             leftpointx = encpoint1x
3982.             leftpointy = encpoint1y
3983.             leftpointz = encpoint1z
3984.             GOSUB compute.triangle.areas.cents
3985.             GOSUB create.image.triangle
3986.             ' Fourth new triangle.
3987.             basepointx = outvert1x
3988.             basepointy = outvert1y
3989.             basepointz = outvert1z
3990.             rightpointx = encpoint1x
3991.             rightpointy = encpoint1y
3992.             rightpointz = encpoint1z
3993.             leftpointx = int1ABCx
3994.             leftpointy = int1ABCy
3995.             leftpointz = int1ABCz
3996.             GOSUB compute.triangle.areas.cents
3997.             GOSUB create.image.triangle
3998.         END IF
3999.         IF flagimagechange = 1 THEN
4000.             IF flagindexkused = 1 THEN
4001.                 GOTO begintripletsnipsubloop
4002.             ELSE
4003.                 GOSUB triplet.image.repack
4004.             END IF
4005.         END IF
4006.  
4007.     CASE " 0 1 4" '*' 13 of 15
4008.         ' Load information on overlap triangle.
4009.         int3ABCx = tripletencpoint(1, 1)
4010.         int3ABCy = tripletencpoint(1, 2)
4011.         int3ABCz = tripletencpoint(1, 3)
4012.         int3DEFx = tripletencpoint(1, 4)
4013.         int3DEFy = tripletencpoint(1, 5)
4014.         int3DEFz = tripletencpoint(1, 6)
4015.         int1ABCx = tripletintpointpair(1, 1)
4016.         int1ABCy = tripletintpointpair(1, 2)
4017.         int1ABCz = tripletintpointpair(1, 3)
4018.         int1DEFx = tripletintpointpair(1, 4)
4019.         int1DEFy = tripletintpointpair(1, 5)
4020.         int1DEFz = tripletintpointpair(1, 6)
4021.         int2ABCx = tripletintpointpair(2, 1)
4022.         int2ABCy = tripletintpointpair(2, 2)
4023.         int2ABCz = tripletintpointpair(2, 3)
4024.         int2DEFx = tripletintpointpair(2, 4)
4025.         int2DEFy = tripletintpointpair(2, 5)
4026.         int2DEFz = tripletintpointpair(2, 6)
4027.         GOSUB perform.overlap.calculations
4028.         ' Compare the apparent overlap tringles using centroid.
4029.         IF magcentABC > magcentDEF AND magdiff > 0 AND areaABC > 0.005 AND areaDEF > 0.005 AND snip014enabled = 1 THEN
4030.             'LOCATE 13, 1: PRINT signaturefull$
4031.             flagimagechange = 1
4032.             ' Identify the two triangles.
4033.             leftedgefound = 0
4034.             FOR f = 1 TO 4
4035.                 IF SQR((tripletintpointpair(f, 7) - int3ABCx) ^ 2 + (tripletintpointpair(f, 8) - int3ABCy) ^ 2 + (tripletintpointpair(f, 9) - int3ABCz) ^ 2) > 0.1 THEN
4036.                     possibleoutpoint1x = tripletintpointpair(f, 10)
4037.                     possibleoutpoint1y = tripletintpointpair(f, 11)
4038.                     possibleoutpoint1z = tripletintpointpair(f, 12)
4039.                     possibleoutpoint2x = tripletintpointpair(f, 13)
4040.                     possibleoutpoint2y = tripletintpointpair(f, 14)
4041.                     possibleoutpoint2z = tripletintpointpair(f, 15)
4042.                     intpointfwdx = tripletintpointpair(f, 1)
4043.                     intpointfwdy = tripletintpointpair(f, 2)
4044.                     intpointfwdz = tripletintpointpair(f, 3)
4045.                     IF leftedgefound = 0 THEN
4046.                         IF SQR((possibleoutpoint1x - int3ABCx) ^ 2 + (possibleoutpoint1y - int3ABCy) ^ 2 + (possibleoutpoint1z - int3ABCz) ^ 2) < 0.0001 THEN
4047.                             outerpointleftx = possibleoutpoint2x
4048.                             outerpointlefty = possibleoutpoint2y
4049.                             outerpointleftz = possibleoutpoint2z
4050.                             intpointfwdleftx = intpointfwdx
4051.                             intpointfwdlefty = intpointfwdy
4052.                             intpointfwdleftz = intpointfwdz
4053.                         ELSE
4054.                             outerpointleftx = possibleoutpoint1x
4055.                             outerpointlefty = possibleoutpoint1y
4056.                             outerpointleftz = possibleoutpoint1z
4057.                             intpointfwdleftx = intpointfwdx
4058.                             intpointfwdlefty = intpointfwdy
4059.                             intpointfwdleftz = intpointfwdz
4060.                         END IF
4061.                         disttointpointmin = 10 ^ 5
4062.                         FOR m = 1 TO 4
4063.                             IF m <> W THEN
4064.                                 IF SQR((tripletintpointpair(m, 7) - int3ABCx) ^ 2 + (tripletintpointpair(m, 8) - int3ABCy) ^ 2 + (tripletintpointpair(m, 9) - int3ABCz) ^ 2) < 0.0001 THEN
4065.                                     disttointpoint = SQR((outerpointleftx - tripletintpointpair(m, 1)) ^ 2 + (outerpointlefty - tripletintpointpair(m, 2)) ^ 2 + (outerpointleftz - tripletintpointpair(m, 3)) ^ 2)
4066.                                     IF disttointpoint < disttointpointmin THEN
4067.                                         intpointbackleftx = tripletintpointpair(m, 1)
4068.                                         intpointbacklefty = tripletintpointpair(m, 2)
4069.                                         intpointbackleftz = tripletintpointpair(m, 3)
4070.                                         disttointpointmin = disttointpoint
4071.                                     END IF
4072.  
4073.                                 END IF
4074.                             END IF
4075.                         NEXT
4076.                         leftedgefound = 1
4077.                     ELSE
4078.                         IF SQR((possibleoutpoint1x - int3ABCx) ^ 2 + (possibleoutpoint1y - int3ABCy) ^ 2 + (possibleoutpoint1z - int3ABCz) ^ 2) < 0.0001 THEN
4079.                             outerpointrightx = possibleoutpoint2x
4080.                             outerpointrighty = possibleoutpoint2y
4081.                             outerpointrightz = possibleoutpoint2z
4082.                             intpointfwdrightx = intpointfwdx
4083.                             intpointfwdrighty = intpointfwdy
4084.                             intpointfwdrightz = intpointfwdz
4085.                         ELSE
4086.                             outerpointrightx = possibleoutpoint1x
4087.                             outerpointrighty = possibleoutpoint1y
4088.                             outerpointrightz = possibleoutpoint1z
4089.                             intpointfwdrightx = intpointfwdx
4090.                             intpointfwdrighty = intpointfwdy
4091.                             intpointfwdrightz = intpointfwdz
4092.                         END IF
4093.                         disttointpointmin = 10 ^ 5
4094.                         FOR m = 1 TO 4
4095.                             IF m <> W THEN
4096.                                 IF SQR((tripletintpointpair(m, 7) - int3ABCx) ^ 2 + (tripletintpointpair(m, 8) - int3ABCy) ^ 2 + (tripletintpointpair(m, 9) - int3ABCz) ^ 2) < 0.0001 THEN
4097.                                     disttointpoint = SQR((outerpointrightx - tripletintpointpair(m, 1)) ^ 2 + (outerpointrighty - tripletintpointpair(m, 2)) ^ 2 + (outerpointrightz - tripletintpointpair(m, 3)) ^ 2)
4098.                                     IF disttointpoint < disttointpointmin THEN
4099.                                         intpointbackrightx = tripletintpointpair(m, 1)
4100.                                         intpointbackrighty = tripletintpointpair(m, 2)
4101.                                         intpointbackrightz = tripletintpointpair(m, 3)
4102.                                         disttointpointmin = disttointpoint
4103.                                     END IF
4104.                                 END IF
4105.                             END IF
4106.                         NEXT
4107.                     END IF
4108.                 END IF
4109.             NEXT
4110.             flagindexkused = 0
4111.             ' First new triangle overwrites old one.
4112.             basepointx = outerpointrightx
4113.             basepointy = outerpointrighty
4114.             basepointz = outerpointrightz
4115.             rightpointx = intpointfwdrightx
4116.             rightpointy = intpointfwdrighty
4117.             rightpointz = intpointfwdrightz
4118.             leftpointx = intpointbackrightx
4119.             leftpointy = intpointbackrighty
4120.             leftpointz = intpointbackrightz
4121.             GOSUB compute.triangle.areas.cents
4122.             GOSUB create.image.triangle
4123.             ' Second new triangle.
4124.             basepointx = outerpointleftx
4125.             basepointy = outerpointlefty
4126.             basepointz = outerpointleftz
4127.             rightpointx = intpointbackleftx
4128.             rightpointy = intpointbacklefty
4129.             rightpointz = intpointbackleftz
4130.             leftpointx = intpointfwdleftx
4131.             leftpointy = intpointfwdlefty
4132.             leftpointz = intpointfwdleftz
4133.             GOSUB compute.triangle.areas.cents
4134.             GOSUB create.image.triangle
4135.         END IF
4136.         IF flagimagechange = 1 THEN
4137.             IF flagindexkused = 1 THEN
4138.                 GOTO begintripletsnipsubloop
4139.             ELSE
4140.                 GOSUB triplet.image.repack
4141.             END IF
4142.         END IF
4143.  
4144.     CASE " 1 0 4" '*' 14 of 15
4145.         int3ABCx = tripletintpointpair(3, 1)
4146.         int3ABCy = tripletintpointpair(3, 2)
4147.         int3ABCz = tripletintpointpair(3, 3)
4148.         int3DEFx = tripletintpointpair(3, 4)
4149.         int3DEFy = tripletintpointpair(3, 5)
4150.         int3DEFz = tripletintpointpair(3, 6)
4151.         int1ABCx = tripletintpointpair(1, 1)
4152.         int1ABCy = tripletintpointpair(1, 2)
4153.         int1ABCz = tripletintpointpair(1, 3)
4154.         int1DEFx = tripletintpointpair(1, 4)
4155.         int1DEFy = tripletintpointpair(1, 5)
4156.         int1DEFz = tripletintpointpair(1, 6)
4157.         int2ABCx = tripletintpointpair(2, 1)
4158.         int2ABCy = tripletintpointpair(2, 2)
4159.         int2ABCz = tripletintpointpair(2, 3)
4160.         int2DEFx = tripletintpointpair(2, 4)
4161.         int2DEFy = tripletintpointpair(2, 5)
4162.         int2DEFz = tripletintpointpair(2, 6)
4163.         GOSUB perform.overlap.calculations
4164.         ' Compare the apparent overlap tringles using centroid.
4165.         IF magcentABC > magcentDEF AND magdiff > 0 AND areaABC > 0.005 AND areaDEF > 0.005 AND snip104enabled = 1 THEN
4166.             'LOCATE 14, 1: PRINT signaturefull$
4167.             flagimagechange = 1
4168.             ''intpointbackleftused = 0
4169.             ''FOR m = 1 TO 4
4170.             ''    IF SQR((tripletintpointpair(m, 16) - tripletencpoint(1, 1)) ^ 2 + (tripletintpointpair(m, 17) - tripletencpoint(1, 2)) ^ 2 + (tripletintpointpair(m, 18) - tripletencpoint(1, 3)) ^ 2) > 0.1 AND SQR((tripletintpointpair(m, 19) - tripletencpoint(1, 1)) ^ 2 + (tripletintpointpair(m, 20) - tripletencpoint(1, 2)) ^ 2 + (tripletintpointpair(m, 21) - tripletencpoint(1, 3)) ^ 2) > 0.1 THEN
4171.             ''        IF intpointbackleftused = 0 THEN
4172.             ''            intpointbackleftx = tripletintpointpair(m, 1)
4173.             ''            intpointbacklefty = tripletintpointpair(m, 2)
4174.             ''            intpointbackleftz = tripletintpointpair(m, 3)
4175.             ''            backleftindex = m
4176.             ''            intpointbackleftused = 1
4177.             ''        ELSE
4178.             ''            intpointbackrightx = tripletintpointpair(m, 1)
4179.             ''            intpointbackrighty = tripletintpointpair(m, 2)
4180.             ''            intpointbackrightz = tripletintpointpair(m, 3)
4181.             ''            backrightindex = m
4182.             ''        END IF
4183.             ''    END IF
4184.             ''NEXT
4185.             ''cand1x = tripletintpointpair(backleftindex, 10)
4186.             ''cand1y = tripletintpointpair(backleftindex, 11)
4187.             ''cand1z = tripletintpointpair(backleftindex, 12)
4188.             ''cand2x = tripletintpointpair(backleftindex, 13)
4189.             ''cand2y = tripletintpointpair(backleftindex, 14)
4190.             ''cand2z = tripletintpointpair(backleftindex, 15)
4191.             ''cand3x = tripletintpointpair(backrightindex, 10)
4192.             ''cand3y = tripletintpointpair(backrightindex, 11)
4193.             ''cand3z = tripletintpointpair(backrightindex, 12)
4194.             ''cand4x = tripletintpointpair(backrightindex, 13)
4195.             ''cand4y = tripletintpointpair(backrightindex, 14)
4196.             ''cand4z = tripletintpointpair(backrightindex, 15)
4197.             ''diff13 = SQR((cand1x - cand3x) ^ 2 + (cand1y - cand3y) ^ 2 + (cand1z - cand3z) ^ 2)
4198.             ''diff14 = SQR((cand1x - cand4x) ^ 2 + (cand1y - cand4y) ^ 2 + (cand1z - cand4z) ^ 2)
4199.             ''diff23 = SQR((cand2x - cand3x) ^ 2 + (cand2y - cand3y) ^ 2 + (cand2z - cand3z) ^ 2)
4200.             ''diff24 = SQR((cand2x - cand4x) ^ 2 + (cand2y - cand4y) ^ 2 + (cand2z - cand4z) ^ 2)
4201.             ''IF diff13 < 0.0001 THEN
4202.             ''    pointbackoutx = cand1x
4203.             ''    pointbackouty = cand1y
4204.             ''    pointbackoutz = cand1z
4205.             ''    pointfwdoutleftx = cand2x
4206.             ''    pointfwdoutlefty = cand2y
4207.             ''    pointfwdoutleftz = cand2z
4208.             ''    pointfwdoutrightx = cand4x
4209.             ''    pointfwdoutrighty = cand4y
4210.             ''    pointfwdoutrightz = cand4z
4211.             ''END IF
4212.             ''IF diff14 < 0.0001 THEN
4213.             ''    pointbackoutx = cand1x
4214.             ''    pointbackouty = cand1y
4215.             ''    pointbackoutz = cand1z
4216.             ''    pointfwdoutleftx = cand2x
4217.             ''    pointfwdoutlefty = cand2y
4218.             ''    pointfwdoutleftz = cand2z
4219.             ''    pointfwdoutrightx = cand3x
4220.             ''    pointfwdoutrighty = cand3y
4221.             ''    pointfwdoutrightz = cand3z
4222.             ''END IF
4223.             ''IF diff23 < 0.0001 THEN
4224.             ''    pointbackoutx = cand2x
4225.             ''    pointbackouty = cand2y
4226.             ''    pointbackoutz = cand2z
4227.             ''    pointfwdoutleftx = cand1x
4228.             ''    pointfwdoutlefty = cand1y
4229.             ''    pointfwdoutleftz = cand1z
4230.             ''    pointfwdoutrightx = cand4x
4231.             ''    pointfwdoutrighty = cand4y
4232.             ''    pointfwdoutrightz = cand4z
4233.             ''END IF
4234.             ''IF diff24 < 0.0001 THEN
4235.             ''    pointbackoutx = cand2x
4236.             ''    pointbackouty = cand2y
4237.             ''    pointbackoutz = cand2z
4238.             ''    pointfwdoutleftx = cand1x
4239.             ''    pointfwdoutlefty = cand1y
4240.             ''    pointfwdoutleftz = cand1z
4241.             ''    pointfwdoutrightx = cand3x
4242.             ''    pointfwdoutrighty = cand3y
4243.             ''    pointfwdoutrightz = cand3z
4244.             ''END IF
4245.             ''FOR m = 1 TO 4
4246.             ''    IF SQR((tripletintpointpair(m, 16) - tripletencpoint(1, 1)) ^ 2 + (tripletintpointpair(m, 17) - tripletencpoint(1, 2)) ^ 2 + (tripletintpointpair(m, 18) - tripletencpoint(1, 3)) ^ 2) < 0.0001 OR SQR((tripletintpointpair(m, 19) - tripletencpoint(1, 1)) ^ 2 + (tripletintpointpair(m, 20) - tripletencpoint(1, 2)) ^ 2 + (tripletintpointpair(m, 21) - tripletencpoint(1, 3)) ^ 2) < 0.0001 THEN
4247.             ''        IF SQR((tripletintpointpair(m, 7) - tripletintpointpair(backleftindex, 7)) ^ 2 + (tripletintpointpair(m, 8) - tripletintpointpair(backleftindex, 8)) ^ 2 + (tripletintpointpair(m, 9) - tripletintpointpair(backleftindex, 9)) ^ 2) < 0.0001 THEN
4248.             ''            intpointfwdleftx = tripletintpointpair(m, 1)
4249.             ''            intpointfwdlefty = tripletintpointpair(m, 2)
4250.             ''            intpointfwdleftz = tripletintpointpair(m, 3)
4251.             ''        END IF
4252.             ''        IF SQR((tripletintpointpair(m, 7) - tripletintpointpair(backrightindex, 7)) ^ 2 + (tripletintpointpair(m, 8) - tripletintpointpair(backrightindex, 8)) ^ 2 + (tripletintpointpair(m, 9) - tripletintpointpair(backrightindex, 9)) ^ 2) < 0.0001 THEN
4253.             ''            intpointfwdrightx = tripletintpointpair(m, 1)
4254.             ''            intpointfwdrighty = tripletintpointpair(m, 2)
4255.             ''            intpointfwdrightz = tripletintpointpair(m, 3)
4256.             ''        END IF
4257.             ''    END IF
4258.             ''NEXT
4259.             ''flagindexkused = 0
4260.             ''' First new triangle overwrites old one.
4261.             ''basepointx = pointbackoutx
4262.             ''basepointy = pointbackouty
4263.             ''basepointz = pointbackoutz
4264.             ''rightpointx = intpointbackrightx
4265.             ''rightpointy = intpointbackrighty
4266.             ''rightpointz = intpointbackrightz
4267.             ''leftpointx = intpointbackleftx
4268.             ''leftpointy = intpointbacklefty
4269.             ''leftpointz = intpointbackleftz
4270.             ''GOSUB compute.triangle.areas.cents
4271.             ''GOSUB create.image.triangle
4272.             ''' Second new triangle.
4273.             ''basepointx = intpointfwdleftx
4274.             ''basepointy = intpointfwdlefty
4275.             ''basepointz = intpointfwdleftz
4276.             ''rightpointx = tripletencpoint(1, 4)
4277.             ''rightpointy = tripletencpoint(1, 5)
4278.             ''rightpointz = tripletencpoint(1, 6)
4279.             ''leftpointx = pointfwdoutleftx
4280.             ''leftpointy = pointfwdoutlefty
4281.             ''leftpointz = pointfwdoutleftz
4282.             ''GOSUB compute.triangle.areas.cents
4283.             ''GOSUB create.image.triangle
4284.             ''' Third new triangle.
4285.             ''basepointx = tripletencpoint(1, 4)
4286.             ''basepointy = tripletencpoint(1, 5)
4287.             ''basepointz = tripletencpoint(1, 6)
4288.             ''rightpointx = pointfwdoutrightx
4289.             ''rightpointy = pointfwdoutrighty
4290.             ''rightpointz = pointfwdoutrightz
4291.             ''leftpointx = pointfwdoutleftx
4292.             ''leftpointy = pointfwdoutlefty
4293.             ''leftpointz = pointfwdoutleftz
4294.             ''GOSUB compute.triangle.areas.cents
4295.             ''GOSUB create.image.triangle
4296.             ''' Fourth new triangle.
4297.             ''basepointx = tripletencpoint(1, 4)
4298.             ''basepointy = tripletencpoint(1, 5)
4299.             ''basepointz = tripletencpoint(1, 6)
4300.             ''rightpointx = intpointfwdrightx
4301.             ''rightpointy = intpointfwdrighty
4302.             ''rightpointz = intpointfwdrightz
4303.             ''leftpointx = pointfwdoutrightx
4304.             ''leftpointy = pointfwdoutrighty
4305.             ''leftpointz = pointfwdoutrightz
4306.             ''GOSUB compute.triangle.areas.cents
4307.             ''GOSUB create.image.triangle
4308.             centsharedx = (1 / 3) * (int1ABCx + int2ABCx + int3ABCx)
4309.             centsharedy = (1 / 3) * (int1ABCy + int2ABCy + int3ABCy)
4310.             centsharedz = (1 / 3) * (int1ABCz + int2ABCz + int3ABCz)
4311.             flagindexkused = 0
4312.             ' First new triangle overwrites old one.
4313.             basepointx = centsharedx
4314.             basepointy = centsharedy
4315.             basepointz = centsharedz
4316.             rightpointx = Ax
4317.             rightpointy = Ay
4318.             rightpointz = Az
4319.             leftpointx = Bx
4320.             leftpointy = By
4321.             leftpointz = Bz
4322.             GOSUB compute.triangle.areas.cents
4323.             GOSUB create.image.triangle
4324.             ' Second new triangle.
4325.             basepointx = centsharedx
4326.             basepointy = centsharedy
4327.             basepointz = centsharedz
4328.             rightpointx = Bx
4329.             rightpointy = By
4330.             rightpointz = Bz
4331.             leftpointx = Cx
4332.             leftpointy = Cy
4333.             leftpointz = Cz
4334.             GOSUB compute.triangle.areas.cents
4335.             GOSUB create.image.triangle
4336.             ' Third new triangle.
4337.             basepointx = centsharedx
4338.             basepointy = centsharedy
4339.             basepointz = centsharedz
4340.             rightpointx = Cx
4341.             rightpointy = Cy
4342.             rightpointz = Cz
4343.             leftpointx = Ax
4344.             leftpointy = Ay
4345.             leftpointz = Az
4346.             GOSUB compute.triangle.areas.cents
4347.             GOSUB create.image.triangle
4348.         END IF
4349.         IF flagimagechange = 1 THEN
4350.             IF flagindexkused = 1 THEN
4351.                 GOTO begintripletsnipsubloop
4352.             ELSE
4353.                 GOSUB triplet.image.repack
4354.             END IF
4355.         END IF
4356.  
4357.     CASE " 1 1 4" '*' 15 of 15
4358.         ' Load information on overlap triangle.
4359.         int3ABCx = tripletencpoint(1, 1)
4360.         int3ABCy = tripletencpoint(1, 2)
4361.         int3ABCz = tripletencpoint(1, 3)
4362.         int3DEFx = tripletencpoint(1, 4)
4363.         int3DEFy = tripletencpoint(1, 5)
4364.         int3DEFz = tripletencpoint(1, 6)
4365.         int1ABCx = tripletintpointpair(1, 1)
4366.         int1ABCy = tripletintpointpair(1, 2)
4367.         int1ABCz = tripletintpointpair(1, 3)
4368.         int1DEFx = tripletintpointpair(1, 4)
4369.         int1DEFy = tripletintpointpair(1, 5)
4370.         int1DEFz = tripletintpointpair(1, 6)
4371.         int2ABCx = tripletintpointpair(2, 1)
4372.         int2ABCy = tripletintpointpair(2, 2)
4373.         int2ABCz = tripletintpointpair(2, 3)
4374.         int2DEFx = tripletintpointpair(2, 4)
4375.         int2DEFy = tripletintpointpair(2, 5)
4376.         int2DEFz = tripletintpointpair(2, 6)
4377.         GOSUB perform.overlap.calculations
4378.         ' Compare the apparent overlap tringles using centroid.
4379.         IF magcentABC > magcentDEF AND magdiff > 0 AND areaABC > 0.005 AND areaDEF > 0.005 AND snip114enabled = 1 THEN
4380.             'LOCATE 15, 1: PRINT signaturefull$
4381.             flagimagechange = 1
4382.             ' Identify the left int points.
4383.             FOR m = 1 TO 4
4384.                 IF SQR((tripletintpointpair(m, 7) - tripletencpoint(2, 1)) ^ 2 + (tripletintpointpair(m, 8) - tripletencpoint(2, 2)) ^ 2 + (tripletintpointpair(m, 9) - tripletencpoint(2, 3)) ^ 2) > 0.1 THEN
4385.                     IF SQR((tripletintpointpair(m, 16) - tripletencpoint(1, 1)) ^ 2 + (tripletintpointpair(m, 17) - tripletencpoint(1, 2)) ^ 2 + (tripletintpointpair(m, 18) - tripletencpoint(1, 3)) ^ 2) < 0.0001 OR SQR((tripletintpointpair(m, 19) - tripletencpoint(1, 1)) ^ 2 + (tripletintpointpair(m, 20) - tripletencpoint(1, 2)) ^ 2 + (tripletintpointpair(m, 21) - tripletencpoint(1, 3)) ^ 2) < 0.0001 THEN
4386.                         intpointfwdleftx = tripletintpointpair(m, 1)
4387.                         intpointfwdlefty = tripletintpointpair(m, 2)
4388.                         intpointfwdleftz = tripletintpointpair(m, 3)
4389.                         IF SQR((tripletintpointpair(m, 10) - tripletencpoint(2, 1)) ^ 2 + (tripletintpointpair(m, 11) - tripletencpoint(2, 2)) ^ 2 + (tripletintpointpair(m, 12) - tripletencpoint(2, 3)) ^ 2) < 0.0001 THEN
4390.                             intpointfwdoutx = tripletintpointpair(m, 13)
4391.                             intpointfwdouty = tripletintpointpair(m, 14)
4392.                             intpointfwdoutz = tripletintpointpair(m, 15)
4393.                         ELSE
4394.                             intpointfwdoutx = tripletintpointpair(m, 10)
4395.                             intpointfwdouty = tripletintpointpair(m, 11)
4396.                             intpointfwdoutz = tripletintpointpair(m, 12)
4397.                         END IF
4398.                     ELSE
4399.                         intpointbackleftx = tripletintpointpair(m, 1)
4400.                         intpointbacklefty = tripletintpointpair(m, 2)
4401.                         intpointbackleftz = tripletintpointpair(m, 3)
4402.                         IF SQR((tripletintpointpair(m, 10) - tripletencpoint(2, 1)) ^ 2 + (tripletintpointpair(m, 11) - tripletencpoint(2, 2)) ^ 2 + (tripletintpointpair(m, 12) - tripletencpoint(2, 3)) ^ 2) < 0.0001 THEN
4403.                             intpointbackoutx = tripletintpointpair(m, 13)
4404.                             intpointbackouty = tripletintpointpair(m, 14)
4405.                             intpointbackoutz = tripletintpointpair(m, 15)
4406.                         ELSE
4407.                             intpointbackoutx = tripletintpointpair(m, 10)
4408.                             intpointbackouty = tripletintpointpair(m, 11)
4409.                             intpointbackoutz = tripletintpointpair(m, 12)
4410.                         END IF
4411.                     END IF
4412.                 ELSE
4413.                     IF SQR((tripletintpointpair(m, 16) - tripletencpoint(1, 1)) ^ 2 + (tripletintpointpair(m, 17) - tripletencpoint(1, 2)) ^ 2 + (tripletintpointpair(m, 18) - tripletencpoint(1, 3)) ^ 2) < 0.0001 OR SQR((tripletintpointpair(m, 19) - tripletencpoint(1, 1)) ^ 2 + (tripletintpointpair(m, 20) - tripletencpoint(1, 2)) ^ 2 + (tripletintpointpair(m, 21) - tripletencpoint(1, 3)) ^ 2) < 0.0001 THEN
4414.                         intpointfwdrightx = tripletintpointpair(m, 1)
4415.                         intpointfwdrighty = tripletintpointpair(m, 2)
4416.                         intpointfwdrightz = tripletintpointpair(m, 3)
4417.                     END IF
4418.                     IF SQR((tripletintpointpair(m, 16) - tripletencpoint(1, 1)) ^ 2 + (tripletintpointpair(m, 17) - tripletencpoint(1, 2)) ^ 2 + (tripletintpointpair(m, 18) - tripletencpoint(1, 3)) ^ 2) > 0.1 AND SQR((tripletintpointpair(m, 19) - tripletencpoint(1, 1)) ^ 2 + (tripletintpointpair(m, 20) - tripletencpoint(1, 2)) ^ 2 + (tripletintpointpair(m, 21) - tripletencpoint(1, 3)) ^ 2) > 0.1 THEN
4419.                         intpointbackrightx = tripletintpointpair(m, 1)
4420.                         intpointbackrighty = tripletintpointpair(m, 2)
4421.                         intpointbackrightz = tripletintpointpair(m, 3)
4422.                     END IF
4423.                 END IF
4424.             NEXT
4425.             flagindexkused = 0
4426.             ' First new triangle overwrites old one.
4427.             basepointx = tripletencpoint(1, 4)
4428.             basepointy = tripletencpoint(1, 5)
4429.             basepointz = tripletencpoint(1, 6)
4430.             rightpointx = intpointfwdoutx
4431.             rightpointy = intpointfwdouty
4432.             rightpointz = intpointfwdoutz
4433.             leftpointx = intpointfwdleftx
4434.             leftpointy = intpointfwdlefty
4435.             leftpointz = intpointfwdleftz
4436.             GOSUB compute.triangle.areas.cents
4437.             GOSUB create.image.triangle
4438.             ' Second new triangle.
4439.             basepointx = intpointfwdrightx
4440.             basepointy = intpointfwdrighty
4441.             basepointz = intpointfwdrightz
4442.             rightpointx = intpointfwdoutx
4443.             rightpointy = intpointfwdouty
4444.             rightpointz = intpointfwdoutz
4445.             leftpointx = tripletencpoint(1, 4)
4446.             leftpointy = tripletencpoint(1, 5)
4447.             leftpointz = tripletencpoint(1, 6)
4448.             GOSUB compute.triangle.areas.cents
4449.             GOSUB create.image.triangle
4450.             ' Third new triangle.
4451.             basepointx = intpointbackoutx
4452.             basepointy = intpointbackouty
4453.             basepointz = intpointbackoutz
4454.             rightpointx = intpointbackrightx
4455.             rightpointy = intpointbackrighty
4456.             rightpointz = intpointbackrightz
4457.             leftpointx = intpointbackleftx
4458.             leftpointy = intpointbacklefty
4459.             leftpointz = intpointbackleftz
4460.             GOSUB compute.triangle.areas.cents
4461.             GOSUB create.image.triangle
4462.         END IF
4463.         IF flagimagechange = 1 THEN
4464.             IF flagindexkused = 1 THEN
4465.                 GOTO begintripletsnipsubloop
4466.             ELSE
4467.                 GOSUB triplet.image.repack
4468.             END IF
4469.         END IF
4470.  
4471.     CASE ELSE
4472.         ' Code for troubleshooting.
4473.         'LOCATE 16, 1: PRINT "else"
4474.         'rdy = INT(RND * 9)
4475.         'IF i = 1 AND j = 3 THEN COLOR 4
4476.         'LOCATE 17 + rdy, 1: PRINT signaturefull$
4477.         'COLOR 15
4478. END SELECT
4479. RETURN
4480.  
4481. compute.triangle.areas.cents:
4482. rightarmx = rightpointx - basepointx
4483. rightarmy = rightpointy - basepointy
4484. rightarmz = rightpointz - basepointz
4485. leftarmx = leftpointx - basepointx
4486. leftarmy = leftpointy - basepointy
4487. leftarmz = leftpointz - basepointz
4488. trianglearea3Dvecx = rightarmy * leftarmz - rightarmz * leftarmy
4489. trianglearea3Dvecy = rightarmz * leftarmx - rightarmx * leftarmz
4490. trianglearea3Dvecz = rightarmx * leftarmy - rightarmy * leftarmx
4491. trianglearea3D = (1 / 2) * (SQR(trianglearea3Dvecx ^ 2 + trianglearea3Dvecy ^ 2 + trianglearea3Dvecz ^ 2))
4492. trianglecent3Dx = (1 / 3) * (basepointx + rightpointx + leftpointx)
4493. trianglecent3Dy = (1 / 3) * (basepointy + rightpointy + leftpointy)
4494. trianglecent3Dz = (1 / 3) * (basepointz + rightpointz + leftpointz)
4495. trianglecent3Dmag = SQR(trianglecent3Dx ^ 2 + trianglecent3Dy ^ 2 + trianglecent3Dz ^ 2)
4496. baseu = basepointx * uhat(1) + basepointy * uhat(2) + basepointz * uhat(3)
4497. basev = basepointx * vhat(1) + basepointy * vhat(2) + basepointz * vhat(3)
4498. rightu = rightpointx * uhat(1) + rightpointy * uhat(2) + rightpointz * uhat(3)
4499. rightv = rightpointx * vhat(1) + rightpointy * vhat(2) + rightpointz * vhat(3)
4500. leftu = leftpointx * uhat(1) + leftpointy * uhat(2) + leftpointz * uhat(3)
4501. leftv = leftpointx * vhat(1) + leftpointy * vhat(2) + leftpointz * vhat(3)
4502. basen = (basepointx * nhat(1) + basepointy * nhat(2) + basepointz * nhat(3))
4503. rightn = (rightpointx * nhat(1) + rightpointy * nhat(2) + rightpointz * nhat(3))
4504. leftn = (leftpointx * nhat(1) + leftpointy * nhat(2) + leftpointz * nhat(3))
4505. basesu = baseu * fovd / basen
4506. basesv = basev * fovd / basen
4507. rightsu = rightu * fovd / rightn
4508. rightsv = rightv * fovd / rightn
4509. leftsu = leftu * fovd / leftn
4510. leftsv = leftv * fovd / leftn
4511. rightarmsu = rightsu - basesu
4512. rightarmsv = rightsv - basesv
4513. leftarmsu = leftsu - basesu
4514. leftarmsv = leftsv - basesv
4515. trianglearea2Dsvecncomp = rightarmsu * leftarmsv - rightarmsv * leftarmsu
4516. trianglearea2Ds = (1 / 2) * (SQR(trianglearea2Dsvecncomp ^ 2))
4517. trianglecent2Dsu = (1 / 3) * (basesu + rightsu + leftsu)
4518. trianglecent2Dsv = (1 / 3) * (basesv + rightsv + leftsv)
4519. trianglecent2Dmag = SQR(trianglecent2Dsu ^ 2 + trianglecent2Dsv ^ 2)
4520. RETURN
4521.  
4522. perform.overlap.calculations:
4523. basepointx = int3ABCx
4524. basepointy = int3ABCy
4525. basepointz = int3ABCz
4526. rightpointx = int1ABCx
4527. rightpointy = int1ABCy
4528. rightpointz = int1ABCz
4529. leftpointx = int2ABCx
4530. leftpointy = int2ABCy
4531. leftpointz = int2ABCz
4532. GOSUB compute.triangle.areas.cents
4533. areaABC = trianglearea3D
4534. magcentABC = trianglecent3Dmag
4535. basepointx = int3DEFx
4536. basepointy = int3DEFy
4537. basepointz = int3DEFz
4538. rightpointx = int1DEFx
4539. rightpointy = int1DEFy
4540. rightpointz = int1DEFz
4541. leftpointx = int2DEFx
4542. leftpointy = int2DEFy
4543. leftpointz = int2DEFz
4544. GOSUB compute.triangle.areas.cents
4545. areaDEF = trianglearea3D
4546. magcentDEF = trianglecent3Dmag
4547. magdiff = SQR((magcentABC - magcentDEF) ^ 2)
4548. RETURN
4549.  
4550. create.image.triangle:
4551. IF trianglearea3D > 0 AND trianglearea2Ds > 0 THEN
4552.     IF flagindexkused = 0 THEN
4553.         imageindex = k
4554.         flagindexkused = 1
4555.     ELSE
4556.         pcounttripletsnipimage = pcounttripletsnipimage + 1
4557.         imageindex = pcounttripletsnipimage
4558.     END IF
4559.     ' Code for troubleshooting.
4560.     'shrinkfactor = .90
4561.     'centimagex = (1 / 3) * (basepointx + rightpointx + leftpointx)
4562.     'centimagey = (1 / 3) * (basepointy + rightpointy + leftpointy)
4563.     'centimagez = (1 / 3) * (basepointz + rightpointz + leftpointz)
4564.     'basepointx = centimagex + (shrinkfactor) * (basepointx - centimagex)
4565.     'basepointy = centimagey + (shrinkfactor) * (basepointy - centimagey)
4566.     'basepointz = centimagez + (shrinkfactor) * (basepointz - centimagez)
4567.     'rightpointx = centimagex + (shrinkfactor) * (rightpointx - centimagex)
4568.     'rightpointy = centimagey + (shrinkfactor) * (rightpointy - centimagey)
4569.     'rightpointz = centimagez + (shrinkfactor) * (rightpointz - centimagez)
4570.     'leftpointx = centimagex + (shrinkfactor) * (leftpointx - centimagex)
4571.     'leftpointy = centimagey + (shrinkfactor) * (leftpointy - centimagey)
4572.     'leftpointz = centimagez + (shrinkfactor) * (leftpointz - centimagez)
4573.     tripletsnipimage(imageindex, 1) = basepointx
4574.     tripletsnipimage(imageindex, 2) = basepointy
4575.     tripletsnipimage(imageindex, 3) = basepointz
4576.     tripletsnipimage(imageindex, 4) = rightpointx
4577.     tripletsnipimage(imageindex, 5) = rightpointy
4578.     tripletsnipimage(imageindex, 6) = rightpointz
4579.     tripletsnipimage(imageindex, 7) = leftpointx
4580.     tripletsnipimage(imageindex, 8) = leftpointy
4581.     tripletsnipimage(imageindex, 9) = leftpointz
4582.     tripletsnipimage(imageindex, 10) = tripletsnip(i, 10)
4583. END IF
4584. RETURN
4585.  
4586. copy.triplets.snip.final:
4587. FOR i = 1 TO numtripletsnip
4588.     tripletfinal(i, 1) = tripletsnip(i, 1)
4589.     tripletfinal(i, 2) = tripletsnip(i, 2)
4590.     tripletfinal(i, 3) = tripletsnip(i, 3)
4591.     tripletfinal(i, 4) = tripletsnip(i, 4)
4592.     tripletfinal(i, 5) = tripletsnip(i, 5)
4593.     tripletfinal(i, 6) = tripletsnip(i, 6)
4594.     tripletfinal(i, 7) = tripletsnip(i, 7)
4595.     tripletfinal(i, 8) = tripletsnip(i, 8)
4596.     tripletfinal(i, 9) = tripletsnip(i, 9)
4597.     tripletfinal(i, 10) = tripletsnip(i, 10)
4598. NEXT
4599. numtripletfinal = numtripletsnip
4600. RETURN
4601.  
4602. triplet.image.repack:
4603. pcountimagerepack = 0
4604. FOR m = 1 TO pcounttripletsnipimage
4605.     IF m <> k THEN
4606.         pcountimagerepack = pcountimagerepack + 1
4607.         tripletsnipimage(pcountimagerepack, 1) = tripletsnipimage(m, 1)
4608.         tripletsnipimage(pcountimagerepack, 2) = tripletsnipimage(m, 2)
4609.         tripletsnipimage(pcountimagerepack, 3) = tripletsnipimage(m, 3)
4610.         tripletsnipimage(pcountimagerepack, 4) = tripletsnipimage(m, 4)
4611.         tripletsnipimage(pcountimagerepack, 5) = tripletsnipimage(m, 5)
4612.         tripletsnipimage(pcountimagerepack, 6) = tripletsnipimage(m, 6)
4613.         tripletsnipimage(pcountimagerepack, 7) = tripletsnipimage(m, 7)
4614.         tripletsnipimage(pcountimagerepack, 8) = tripletsnipimage(m, 8)
4615.         tripletsnipimage(pcountimagerepack, 9) = tripletsnipimage(m, 9)
4616.         tripletsnipimage(pcountimagerepack, 10) = tripletsnipimage(m, 10)
4617.     END IF
4618. NEXT
4619. pcounttripletsnipimage = pcountimagerepack
4620. RETURN
4621.  
4622. ' *** Define functions for plot modes. ***
4623.  
4624. plotmode.linearconnect:
4625. ' Erase old graphics.
4626. FOR i = 1 TO numparticlevisible - 1
4627.     x = zoom * vecvisiblepuvs.old(i, 1): y = zoom * vecvisiblepuvs.old(i, 2): GOSUB convert: x1 = x: y1 = y
4628.     x = zoom * vecvisiblepuvs.old(i + 1, 1): y = zoom * vecvisiblepuvs.old(i + 1, 2): GOSUB convert: x2 = x: y2 = y
4629.     LINE (x1, y1)-(x2, y2), 0
4630. NEXT
4631. ' Draw new graphics.
4632. FOR i = 1 TO numparticlevisible - 1
4633.     x = zoom * vecvisiblepuvs(i, 1): y = zoom * vecvisiblepuvs(i, 2): GOSUB convert: x1 = x: y1 = y
4634.     x = zoom * vecvisiblepuvs(i + 1, 1): y = zoom * vecvisiblepuvs(i + 1, 2): GOSUB convert: x2 = x: y2 = y
4635.     IF vecvisibledotnhat(i) > 0 THEN
4636.         LINE (x1, y1)-(x2, y2), vecvisible(i, 4)
4637.     ELSE
4638.         LINE (x1, y1)-(x2, y2), 8
4639.     END IF
4640. NEXT
4641. RETURN
4642.  
4643. plotmode.simplepoints:
4644. ' Erase old graphics.
4645. FOR i = 1 TO numparticlevisible
4646.     x = zoom * vecvisiblepuvs.old(i, 1): y = zoom * vecvisiblepuvs.old(i, 2): GOSUB convert
4647.     IF x > 0 AND x < 640 AND y > 0 AND y < 480 THEN
4648.         PSET (x, y), 0
4649.     END IF
4650. NEXT
4651. ' Draw new graphics.
4652. FOR i = 1 TO numparticlevisible
4653.     x = zoom * vecvisiblepuvs(i, 1): y = zoom * vecvisiblepuvs(i, 2): GOSUB convert
4654.     IF x > 0 AND x < 640 AND y > 0 AND y < 480 THEN
4655.         PSET (x, y), vecvisible(i, 4)
4656.     END IF
4657. NEXT
4658.  
4659. plotmode.3denvparticles:
4660. CLS
4661. FOR i = 1 TO numparticlevisible
4662.     x = zoom * vecvisiblepuvs(i, 1): y = zoom * vecvisiblepuvs(i, 2): GOSUB convert
4663.     PSET (x, y), vecvisible(i, 4)
4664. NEXT
4665. RETURN
4666.  
4667. plotmode.molecule:
4668. 'FOR i = numparticlevisible TO 1 STEP -1
4669. FOR i = 1 TO numparticlevisible
4670.     FOR j = 6 TO 10
4671.         IF vecvisible(i, j) = 0 THEN
4672.             EXIT FOR
4673.         ELSE
4674.             x = zoom * vecvisiblepuvs.old(i, 1): y = zoom * vecvisiblepuvs.old(i, 2): GOSUB convert: x1 = x: y1 = y
4675.             x = zoom * vecvisiblepuvs.old((vecvisible(i, j)), 1): y = zoom * vecvisiblepuvs.old((vecvisible(i, j)), 2): GOSUB convert: x2 = x: y2 = y
4676.             LINE (x1, y1)-(x2, y2), 0
4677.         END IF
4678.     NEXT
4679.     x = zoom * vecvisiblepuvs.old(i, 1): y = zoom * vecvisiblepuvs.old(i, 2)
4680.     GOSUB convert
4681.     IF x > 0 AND x < 640 AND y > 0 AND y < 480 THEN
4682.         CIRCLE (x, y), INT(3 + 4 * vecvisible(i, 4) / biggestatom), 0
4683.         IF toggleatomnumbers = 1 THEN
4684.             COLOR 0
4685.             LOCATE ytext, xtext: PRINT vecvisible(i, 5)
4686.         END IF
4687.     END IF
4688.     FOR j = 6 TO 10
4689.         IF vecvisible(i, j) = 0 THEN
4690.             EXIT FOR
4691.         ELSE
4692.             x = zoom * vecvisiblepuvs(i, 1): y = zoom * vecvisiblepuvs(i, 2): GOSUB convert: x1 = x: y1 = y
4693.             x = zoom * vecvisiblepuvs((vecvisible(i, j)), 1): y = zoom * vecvisiblepuvs((vecvisible(i, j)), 2): GOSUB convert: x2 = x: y2 = y
4694.             LINE (x1, y1)-(x2, y2), vecvisible(i, 4)
4695.         END IF
4696.     NEXT
4697.     x = zoom * vecvisiblepuvs(i, 1): y = zoom * vecvisiblepuvs(i, 2)
4698.     GOSUB convert
4699.     IF x > 0 AND x < 640 AND y > 0 AND y < 480 THEN
4700.         CIRCLE (x, y), INT(3 + 4 * vecvisible(i, 4) / biggestatom), vecvisible(i, 4)
4701.         IF toggleatomnumbers = 1 THEN
4702.             COLOR vecvisible(i, 4)
4703.             LOCATE ytext, xtext: PRINT vecvisible(i, 5)
4704.         END IF
4705.     END IF
4706. NEXT
4707. RETURN
4708.  
4709. plotmode.neighbortile:
4710. tilemin = 1: tilemax = 3
4711. FOR i = 1 TO numparticlevisible - 1
4712.     FOR j = (i + 1) TO numparticlevisible
4713.         vecvisiblesep = SQR((vecvisible(j, 1) - vecvisible(i, 1)) ^ 2 + (vecvisible(j, 2) - vecvisible(i, 2)) ^ 2 + (vecvisible(j, 3) - vecvisible(i, 3)) ^ 2)
4714.         IF vecvisiblesep > tilemin AND vecvisiblesep < tilemax THEN
4715.             ' Erase old graphics.
4716.             x = zoom * vecvisiblepuvs.old(i, 1): y = zoom * vecvisiblepuvs.old(i, 2): GOSUB convert: x1 = x: y1 = y
4717.             x = zoom * vecvisiblepuvs.old(j, 1): y = zoom * vecvisiblepuvs.old(j, 2): GOSUB convert: x2 = x: y2 = y
4718.             LINE (x1, y1)-(x2, y2), 0
4719.             ' Draw new graphics.
4720.             x = zoom * vecvisiblepuvs(i, 1): y = zoom * vecvisiblepuvs(i, 2): GOSUB convert: x1 = x: y1 = y
4721.             x = zoom * vecvisiblepuvs(j, 1): y = zoom * vecvisiblepuvs(j, 2): GOSUB convert: x2 = x: y2 = y
4722.             IF vecvisibledotnhat(j) < 0 THEN
4723.                 LINE (x1, y1)-(x2, y2), 8
4724.             ELSE
4725.                 LINE (x1, y1)-(x2, y2), vecvisible(j, 4)
4726.             END IF
4727.         END IF
4728.     NEXT
4729. NEXT
4730. RETURN
4731.  
4732. plotmode.3denvdoublets:
4733. FOR i = 1 TO numdoubletsnip.old
4734.     ' Erase old graphics.
4735.     x = zoom * doubletsnippuvs.old(i, 1): y = zoom * doubletsnippuvs.old(i, 2): GOSUB convert
4736.     u1 = x: v1 = y
4737.     CIRCLE (u1, v1), 5, 0
4738.     x = zoom * doubletsnippuvs.old(i, 3): y = zoom * doubletsnippuvs.old(i, 4): GOSUB convert
4739.     u2 = x: v2 = y
4740.     CIRCLE (u2, v2), 3, 0
4741.     LINE (u1, v1)-(u2, v2), 0
4742. NEXT
4743. FOR i = 1 TO numdoubletsnip
4744.     ' Draw new graphics.
4745.     x = zoom * doubletsnippuvs(i, 1): y = zoom * doubletsnippuvs(i, 2): GOSUB convert
4746.     u1 = x: v1 = y
4747.     CIRCLE (u1, v1), 5, doubletsnip(i, 7)
4748.     x = zoom * doubletsnippuvs(i, 3): y = zoom * doubletsnippuvs(i, 4): GOSUB convert
4749.     u2 = x: v2 = y
4750.     CIRCLE (u2, v2), 3, doubletsnip(i, 7)
4751.     LINE (u1, v1)-(u2, v2), doubletsnip(i, 7)
4752. NEXT
4753. RETURN
4754.  
4755. plotmode.3denvtriplets:
4756. 'FOR i = 1 TO numtripletfinal.old
4757. '    ' Erase old graphics.
4758. '    x = zoom * tripletfinalpuvs.old(i, 1): y = zoom * tripletfinalpuvs.old(i, 2): GOSUB convert
4759. '    u1 = x: v1 = y
4760. '    'CIRCLE (u1, v1), 5, 0
4761. '    x = zoom * tripletfinalpuvs.old(i, 3): y = zoom * tripletfinalpuvs.old(i, 4): GOSUB convert
4762. '    u2 = x: v2 = y
4763. '    'CIRCLE (u2, v2), 4, 0
4764. '    x = zoom * tripletfinalpuvs.old(i, 5): y = zoom * tripletfinalpuvs.old(i, 6): GOSUB convert
4765. '    u3 = x: v3 = y
4766. '    'CIRCLE (u3, v3), 3, 0
4767. '    centu = (1 / 3) * (u1 + u2 + u3)
4768. '    centv = (1 / 3) * (v1 + v2 + v3)
4769. '    LINE (u1, v1)-(u2, v2), 0
4770. '    LINE (u2, v2)-(u3, v3), 0
4771. '    LINE (u3, v3)-(u1, v1), 0
4772. '    'PAINT (centu, centv), 0, 0
4773. 'NEXT
4774. CLS
4775. FOR i = 1 TO numtripletfinal
4776.     ' Draw new graphics.
4777.     x = zoom * tripletfinalpuvs(i, 1): y = zoom * tripletfinalpuvs(i, 2): GOSUB convert
4778.     u1 = x: v1 = y
4779.     'CIRCLE (u1, v1), 5, tripletfinal(i, 10)
4780.     x = zoom * tripletfinalpuvs(i, 3): y = zoom * tripletfinalpuvs(i, 4): GOSUB convert
4781.     u2 = x: v2 = y
4782.     'CIRCLE (u2, v2), 4, tripletfinal(i, 10)
4783.     x = zoom * tripletfinalpuvs(i, 5): y = zoom * tripletfinalpuvs(i, 6): GOSUB convert
4784.     u3 = x: v3 = y
4785.     'CIRCLE (u3, v3), 3, tripletfinal(i, 10)
4786.     LINE (u1, v1)-(u2, v2), tripletfinal(i, 10)
4787.     LINE (u2, v2)-(u3, v3), tripletfinal(i, 10)
4788.     LINE (u3, v3)-(u1, v1), tripletfinal(i, 10)
4789.     centu = (1 / 3) * (u1 + u2 + u3)
4790.     centv = (1 / 3) * (v1 + v2 + v3)
4791.     'PAINT (centu, centv), tripletfinal(i, 10), tripletfinal(i, 10)
4792. NEXT
4793. RETURN
4794.  
4795. plotmode.simplemesh:
4796. FOR i = 1 TO numparticlevisible - 1
4797.     IF i MOD yrange <> 0 THEN 'point obeys normal neighbor-connect scheme
4798.         ' Erase old graphics.
4799.         x = zoom * vecvisiblepuvs.old(i, 1): y = zoom * vecvisiblepuvs.old(i, 2): GOSUB convert: x1 = x: y1 = y
4800.         x = zoom * vecvisiblepuvs.old(i + 1, 1): y = zoom * vecvisiblepuvs.old(i + 1, 2): GOSUB convert: x2 = x: y2 = y
4801.         x = zoom * vecvisiblepuvs.old(i + yrange, 1): y = zoom * vecvisiblepuvs.old(i + yrange, 2): GOSUB convert: x3 = x: y3 = y
4802.         LINE (x1, y1)-(x2, y2), 0
4803.         IF i < (numparticlevisible - yrange) THEN LINE (x1, y1)-(x3, y3), 0
4804.         ' Draw new graphics.
4805.         x = zoom * vecvisiblepuvs(i, 1): y = zoom * vecvisiblepuvs(i, 2): GOSUB convert: x1 = x: y1 = y
4806.         x = zoom * vecvisiblepuvs(i + 1, 1): y = zoom * vecvisiblepuvs(i + 1, 2): GOSUB convert: x2 = x: y2 = y
4807.         x = zoom * vecvisiblepuvs(i + yrange, 1): y = zoom * vecvisiblepuvs(i + yrange, 2): GOSUB convert: x3 = x: y3 = y
4808.         LINE (x1, y1)-(x2, y2), vecvisible(i, 4)
4809.         IF i < (numparticlevisible - yrange) THEN LINE (x1, y1)-(x3, y3), vecvisible(i, 4)
4810.     ELSE 'point does not obey normal neighbor-connect scheme
4811.         ' Erase old graphics.
4812.         x = zoom * vecvisiblepuvs.old(i, 1): y = zoom * vecvisiblepuvs.old(i, 2): GOSUB convert: x1 = x: y1 = y
4813.         x = zoom * vecvisiblepuvs.old(i + yrange, 1): y = zoom * vecvisiblepuvs.old(i + yrange, 2): GOSUB convert: x3 = x: y3 = y
4814.         IF i < (numparticlevisible - yrange + 1) THEN LINE (x1, y1)-(x3, y3), 0
4815.         ' Draw new graphics.
4816.         x = zoom * vecvisiblepuvs(i, 1): y = zoom * vecvisiblepuvs(i, 2): GOSUB convert: x1 = x: y1 = y
4817.         x = zoom * vecvisiblepuvs(i + yrange, 1): y = zoom * vecvisiblepuvs(i + yrange, 2): GOSUB convert: x3 = x: y3 = y
4818.         IF i < (numparticlevisible - yrange + 1) THEN LINE (x1, y1)-(x3, y3), vecvisible(i, 4)
4819.     END IF
4820. NEXT
4821. RETURN
4822.  
4823. plotmode.meshtech2:
4824. FOR i = 1 TO numparticlevisible - yrange
4825.     vecvisible1temp1 = vecvisible(i + 1, 1) - vecvisible(i, 1)
4826.     vecvisible1temp2 = vecvisible(i + 1, 2) - vecvisible(i, 2)
4827.     vecvisible1temp3 = vecvisible(i + 1, 3) - vecvisible(i, 3)
4828.     vecvisible2temp1 = vecvisible(i + yrange, 1) - vecvisible(i, 1)
4829.     vecvisible2temp2 = vecvisible(i + yrange, 2) - vecvisible(i, 2)
4830.     vecvisible2temp3 = vecvisible(i + yrange, 3) - vecvisible(i, 3)
4831.     vecvisiblet1 = -vecvisible1temp2 * vecvisible2temp3 + vecvisible1temp3 * vecvisible2temp2
4832.     vecvisiblet2 = -vecvisible1temp3 * vecvisible2temp1 + vecvisible1temp1 * vecvisible2temp3
4833.     vecvisiblet3 = -vecvisible1temp1 * vecvisible2temp2 + vecvisible1temp2 * vecvisible2temp1
4834.     vecvisibletdotnhat = vecvisiblet1 * nhat(1) + vecvisiblet2 * nhat(2) + vecvisiblet3 * nhat(3)
4835.     IF vecvisibletdotnhat > 0 THEN plotflag(i) = 1 ELSE plotflag(i) = -1
4836. NEXT
4837. FOR i = 1 TO numparticlevisible - yrange
4838.     IF i MOD yrange <> 0 THEN 'point obeys normal neighbor-connect scheme
4839.         ' Erase old graphics.
4840.         IF plotflag.old(i) = 1 THEN
4841.             x = zoom * vecvisiblepuvs.old(i, 1): y = zoom * vecvisiblepuvs.old(i, 2): GOSUB convert: x1 = x: y1 = y
4842.             x = zoom * vecvisiblepuvs.old(i + 1, 1): y = zoom * vecvisiblepuvs.old(i + 1, 2): GOSUB convert: x2 = x: y2 = y
4843.             x = zoom * vecvisiblepuvs.old(i + yrange, 1): y = zoom * vecvisiblepuvs.old(i + yrange, 2): GOSUB convert: x3 = x: y3 = y
4844.             LINE (x1, y1)-(x2, y2), 0
4845.             LINE (x1, y1)-(x3, y3), 0
4846.         END IF
4847.         ' Draw new graphics.
4848.         IF plotflag(i) = 1 THEN
4849.             x = zoom * vecvisiblepuvs(i, 1): y = zoom * vecvisiblepuvs(i, 2): GOSUB convert: x1 = x: y1 = y
4850.             x = zoom * vecvisiblepuvs(i + 1, 1): y = zoom * vecvisiblepuvs(i + 1, 2): GOSUB convert: x2 = x: y2 = y
4851.             x = zoom * vecvisiblepuvs(i + yrange, 1): y = zoom * vecvisiblepuvs(i + yrange, 2): GOSUB convert: x3 = x: y3 = y
4852.             LINE (x1, y1)-(x2, y2), vecvisible(i, 4)
4853.             LINE (x1, y1)-(x3, y3), vecvisible(i, 4)
4854.         END IF
4855.         plotflag.old(i) = plotflag(i)
4856.     END IF
4857. NEXT
4858. RETURN
4859.  
4860. plotmode.meshtech2planet:
4861. FOR i = 1 TO numparticlevisible - 1
4862.     IF i MOD yrange <> 0 THEN
4863.         ' Erase old graphics.
4864.         IF vecvisibledotnhatunit.old(i) > 0 THEN
4865.             x = zoom * vecvisiblepuvs.old(i, 1): y = zoom * vecvisiblepuvs.old(i, 2): GOSUB convert: x1 = x: y1 = y
4866.             x = zoom * vecvisiblepuvs.old(i + 1, 1): y = zoom * vecvisiblepuvs.old(i + 1, 2): GOSUB convert: x2 = x: y2 = y
4867.             x = zoom * vecvisiblepuvs.old(i + yrange, 1): y = zoom * vecvisiblepuvs.old(i + yrange, 2): GOSUB convert: x3 = x: y3 = y
4868.             LINE (x1, y1)-(x2, y2), 0
4869.             IF i < (numparticlevisible - yrange) THEN LINE (x1, y1)-(x3, y3), 0
4870.         END IF
4871.         ' Draw new graphics.
4872.         IF vecvisibledotnhat(i) > 0 THEN
4873.             x = zoom * vecvisiblepuvs(i, 1): y = zoom * vecvisiblepuvs(i, 2): GOSUB convert: x1 = x: y1 = y
4874.             x = zoom * vecvisiblepuvs(i + 1, 1): y = zoom * vecvisiblepuvs(i + 1, 2): GOSUB convert: x2 = x: y2 = y
4875.             x = zoom * vecvisiblepuvs(i + yrange, 1): y = zoom * vecvisiblepuvs(i + yrange, 2): GOSUB convert: x3 = x: y3 = y
4876.             LINE (x1, y1)-(x2, y2), vecvisible(i, 4)
4877.             IF i < (numparticlevisible - yrange) THEN LINE (x1, y1)-(x3, y3), vecvisible(i, 4)
4878.         END IF
4879.     END IF
4880.     vecvisibledotnhatunit.old(i) = vecvisibledotnhat(i)
4881. NEXT
4882. RETURN
4883.  
4884. plotmode.simplepointsbacteria:
4885. FOR i = numparticlevisible TO 1 STEP -1
4886.     IF vecvisible(i, 4) = 8 THEN
4887.         ' Erase old graphics.
4888.         x = zoom * vecvisiblepuvs.old(i, 1): y = zoom * vecvisiblepuvs.old(i, 2): GOSUB convert
4889.         IF x > 0 AND x < 640 AND y > 0 AND y < 480 THEN
4890.             PSET (x, y), 0
4891.         END IF
4892.         ' Draw new graphics.
4893.         x = zoom * vecvisiblepuvs(i, 1): y = zoom * vecvisiblepuvs(i, 2): GOSUB convert
4894.         IF x > 0 AND x < 640 AND y > 0 AND y < 480 THEN
4895.             IF vecvisibledotnhat(i) > 0 THEN
4896.                 PSET (x, y), vecvisible(i, 4)
4897.             ELSE
4898.                 PSET (x, y), 8
4899.             END IF
4900.         END IF
4901.     ELSE
4902.         ' Erase old graphics.
4903.         x = zoom * vecvisiblepuvs.old(i, 1): y = zoom * vecvisiblepuvs.old(i, 2): GOSUB convert
4904.         IF x > 0 AND x < 640 AND y > 0 AND y < 480 THEN
4905.             CIRCLE (x, y), INT(vecvisible(i, 7) * zoom) + 1, 0
4906.         END IF
4907.         ' Draw new graphics.
4908.         x = zoom * vecvisiblepuvs(i, 1): y = zoom * vecvisiblepuvs(i, 2): GOSUB convert
4909.         IF x > 0 AND x < 640 AND y > 0 AND y < 480 THEN
4910.             CIRCLE (x, y), INT(vecvisible(i, 6) * zoom) + 1, vecvisible(i, 4)
4911.         END IF
4912.     END IF
4913. NEXT
4914. RETURN
4915.  
4916. plotmode.linearneuron:
4917. FOR i = 1 TO numneuralnodes
4918.     FOR j = 1 TO numparticlevisible
4919.         IF i <> j AND vecvisible(j, 5) = i THEN
4920.             ' Erase old graphics.
4921.             x = zoom * vecvisiblepuvs.old(i, 1): y = zoom * vecvisiblepuvs.old(i, 2): GOSUB convert: x1 = x: y1 = y
4922.             x = zoom * vecvisiblepuvs.old(j, 1): y = zoom * vecvisiblepuvs.old(j, 2): GOSUB convert: x2 = x: y2 = y
4923.             IF x1 > 0 AND x1 < 640 AND y1 > 0 AND y1 < 480 AND x2 > 0 AND x2 < 640 AND y2 > 0 AND y2 < 480 THEN
4924.                 LINE (x1, y1)-(x2, y2), 0
4925.             END IF
4926.             ' Draw new graphics.
4927.             x = zoom * vecvisiblepuvs(i, 1): y = zoom * vecvisiblepuvs(i, 2): GOSUB convert: x1 = x: y1 = y
4928.             x = zoom * vecvisiblepuvs(j, 1): y = zoom * vecvisiblepuvs(j, 2): GOSUB convert: x2 = x: y2 = y
4929.             IF x1 > 0 AND x1 < 640 AND y1 > 0 AND y1 < 480 AND x2 > 0 AND x2 < 640 AND y2 > 0 AND y2 < 480 THEN
4930.                 LINE (x1, y1)-(x2, y2), vecvisible(j, 4)
4931.             END IF
4932.         END IF
4933.     NEXT
4934. NEXT
4935. RETURN
4936.  
4937. ' *** Define functions for generation schemes. ***
4938.  
4939. ' *****************************************************************************
4940. 'ALLYLDICHLOROSILANE SGI MOLECULE BEGIN
4941. DATA 0.000000,0.000000,0.000000,6,1,2,0,0,0,0
4942. DATA 0.000000,0.000000,1.317000,6,2,0,0,0,0,0
4943. DATA 1.253339,0.000000,2.174135,6,3,2,0,0,0,0
4944. DATA 1.648740,-1.728751,2.759165,14,4,3,0,0,0,0
4945. DATA 1.861829,-2.662286,1.657558,1,5,4,0,0,0,0
4946. DATA 0.909973,0.026847,-0.570958,1,6,1,0,0,0,0
4947. DATA -0.914351,-0.018888,-0.560617,1,7,1,0,0,0,0
4948. DATA -0.931482,-0.023791,1.853298,1,8,2,0,0,0,0
4949. DATA 1.132146,0.660744,3.028965,1,9,3,0,0,0,0
4950. DATA 2.102271,0.367006,1.600915,1,10,3,0,0,0,0
4951. DATA 3.353124,-1.699853,3.896830,17,11,4,0,0,0,0
4952. DATA 0.105750,-2.448640,3.896713,17,12,4,0,0,0,0
4953. 'DATA x, y, z, atomic number, atom index, neighbor 1, neighbor 2, etc.
4954. 'ALLYLDICHLOROSILANE SGI MOLECULE END
4955. ' *****************************************************************************
4956.  
4957. genschemeUSAcolors:
4958. 'delinearize
4959. pcountparticleorig = 0
4960. FOR i = 1 TO xrange
4961.     FOR j = 1 TO yrange
4962.         pcountparticleorig = pcountparticleorig + 1
4963.         vec2dztemp(i, j) = vec(pcountparticleorig, 4)
4964.     NEXT
4965. NEXT
4966. FOR i = 1 TO xrange
4967.     FOR jj = 0 TO 12 STEP 2
4968.         FOR j = jj * yrange / 13 + 1 TO (jj + 1) * yrange / 13
4969.             vec2dztemp(i, j) = 4
4970.         NEXT
4971.     NEXT
4972.     FOR jj = 1 TO 11 STEP 2
4973.         FOR j = jj * yrange / 13 + 1 TO (jj + 1) * yrange / 13
4974.             vec2dztemp(i, j) = 7
4975.         NEXT
4976.     NEXT
4977. NEXT
4978. starflag = -1
4979. FOR i = 1 TO xrange * .76 / 1.9
4980.     FOR j = yrange TO yrange * .5385 STEP -1
4981.         IF starflag = 1 THEN
4982.             vec2dztemp(i, j) = 15
4983.         ELSE
4984.             vec2dztemp(i, j) = 1
4985.         END IF
4986.         starflag = -starflag
4987.     NEXT
4988. NEXT
4989. 'relinearize
4990. pcountparticleorig = 0
4991. FOR i = 1 TO xrange
4992.     FOR j = 1 TO yrange
4993.         pcountparticleorig = pcountparticleorig + 1
4994.         vec(pcountparticleorig, 4) = vec2dztemp(i, j)
4995.     NEXT
4996. NEXT
4997. RETURN
4998.  
4999. genscheme.curve:
5000. helixL = 15
5001. helixR1 = 5
5002. helixR2 = 2.5
5003. helixalpha = .1
5004. xl = -helixL / 2: xr = helixL / 2: Dx = .005
5005. gridxhalfsize = 10
5006. gridyhalfsize = 30
5007. gridzhalfsize = 5
5008. gridxstep = 1
5009. gridystep = 1
5010. gridzstep = 1
5011. pcountparticleorig = 0
5012. FOR i = xl TO xr STEP Dx
5013.     pcountparticleorig = pcountparticleorig + 1
5014.     RZ = helixR1 - (helixR1 - helixR2) * (i + helixL / 2) / helixL
5015.     vec(pcountparticleorig, 1) = RZ * COS(i)
5016.     vec(pcountparticleorig, 2) = RZ * SIN(i)
5017.     vec(pcountparticleorig, 3) = helixalpha * i
5018.     vec(pcountparticleorig, 4) = 5
5019. NEXT
5020. RETURN
5021.  
5022. genscheme.simplepoints:
5023. xl = -3.2: xr = 5.98
5024. yl = -4.01: yr = 6.1
5025. Dx = .2: Dy = .1
5026. pcountparticleorig = 0
5027. FOR i = xl TO xr STEP Dx
5028.     FOR j = yl TO yr STEP Dy
5029.         pcountparticleorig = pcountparticleorig + 1
5030.         vec(pcountparticleorig, 1) = i
5031.         vec(pcountparticleorig, 2) = j
5032.         vec(pcountparticleorig, 3) = COS((i ^ 2 - j ^ 2))
5033.         vec(pcountparticleorig, 4) = 9
5034.     NEXT
5035. NEXT
5036. RETURN
5037.  
5038. genscheme.3denvparticles.init:
5039. pcountparticleorig = 0
5040. 'particle grass
5041. FOR i = -50 TO 50 STEP 1
5042.     FOR j = -50 TO 50 STEP 1
5043.         k = 0
5044.         pcountparticleorig = pcountparticleorig + 1
5045.         vec(pcountparticleorig, 1) = i + RND - RND
5046.         vec(pcountparticleorig, 2) = j + RND - RND
5047.         vec(pcountparticleorig, 3) = k - COS((i - 15) * .08) + COS((j - 6) * .12)
5048.         IF COS((i - 15) * .08) + COS((j - 6) * .12) < .5 THEN
5049.             vec(pcountparticleorig, 4) = 2
5050.         ELSE
5051.             IF RND > .2 THEN
5052.                 vec(pcountparticleorig, 4) = 9
5053.             ELSE
5054.                 vec(pcountparticleorig, 4) = 1
5055.             END IF
5056.         END IF
5057.     NEXT
5058. NEXT
5059. 'particle sky
5060. FOR i = -50 TO 50 STEP 1
5061.     FOR j = -50 TO 50 STEP 1
5062.         k = -50
5063.         pcountparticleorig = pcountparticleorig + 1
5064.         vec(pcountparticleorig, 1) = i + RND
5065.         vec(pcountparticleorig, 2) = j + RND
5066.         vec(pcountparticleorig, 3) = -k - RND
5067.         IF RND > .5 THEN
5068.             vec(pcountparticleorig, 4) = 9
5069.         ELSE
5070.             vec(pcountparticleorig, 4) = 15
5071.         END IF
5072.     NEXT
5073. NEXT
5074. 'particle wave art 1
5075. FOR i = 1 TO 5 STEP .05
5076.     FOR k = 1 TO 5 STEP .05
5077.         pcountparticleorig = pcountparticleorig + 1
5078.         vec(pcountparticleorig, 1) = -7 * i
5079.         vec(pcountparticleorig, 2) = 50 + 1 * COS(2 * ((i - 7) ^ 2 - (k - 5) ^ 2))
5080.         vec(pcountparticleorig, 3) = 10 + 7 * k
5081.         IF vec(pcountparticleorig, 2) < 50 THEN
5082.             vec(pcountparticleorig, 4) = 13
5083.         ELSE
5084.             vec(pcountparticleorig, 4) = 4
5085.         END IF
5086.     NEXT
5087. NEXT
5088. 'particle wave art 2
5089. FOR i = 1 TO 5 STEP .05
5090.     FOR k = 1 TO 5 STEP .05
5091.         pcountparticleorig = pcountparticleorig + 1
5092.         vec(pcountparticleorig, 1) = 7 * i
5093.         vec(pcountparticleorig, 2) = 50 + 1 * COS((i ^ 2 - k ^ 2))
5094.         vec(pcountparticleorig, 3) = 10 + 7 * k
5095.         IF vec(pcountparticleorig, 2) < 50 THEN
5096.             vec(pcountparticleorig, 4) = 2
5097.         ELSE
5098.             vec(pcountparticleorig, 4) = 1
5099.         END IF
5100.     NEXT
5101. NEXT
5102. 'air ball
5103. FOR j = 1 TO 5
5104.     p1 = RND * 5
5105.     p2 = RND * 5
5106.     p3 = RND * 5
5107.     FOR i = -pi TO pi STEP .15 '.0005 for Menon demo
5108.         pcountparticleorig = pcountparticleorig + 1
5109.         vec(pcountparticleorig, 1) = 30 + 5 * COS(i) * SIN(p1 * i) + SIN(p3 * i)
5110.         vec(pcountparticleorig, 2) = 20 + 5 * SIN(i) * COS(p2 * i) + COS(p2 * i)
5111.         vec(pcountparticleorig, 3) = 20 - 5 * COS(i) * SIN(p3 * i) + SIN(p1 * i)
5112.         vec(pcountparticleorig, 4) = 6
5113.     NEXT
5114. NEXT
5115. animpcountparticleflag = pcountparticleorig
5116. 'particle snake
5117. FOR i = -pi TO pi STEP .005
5118.     pcountparticleorig = pcountparticleorig + 1
5119.     vec(pcountparticleorig, 1) = -10 + 5 * COS(i)
5120.     vec(pcountparticleorig, 2) = -20 + 5 * SIN(i)
5121.     vec(pcountparticleorig, 3) = 25 - 3 * COS(6 * i) * SIN(3 * i)
5122.     vec(pcountparticleorig, 4) = 12
5123. NEXT
5124. 'rain drops
5125. FOR i = -50 TO 50 STEP 5
5126.     FOR j = -50 TO 50 STEP 5
5127.         k = 50
5128.         pcountparticleorig = pcountparticleorig + 1
5129.         vec(pcountparticleorig, 1) = i + RND
5130.         vec(pcountparticleorig, 2) = j + RND
5131.         vec(pcountparticleorig, 3) = k * RND
5132.         IF RND > .66 THEN
5133.             vec(pcountparticleorig, 4) = 9
5134.         ELSE
5135.             vec(pcountparticleorig, 4) = 7
5136.         END IF
5137.     NEXT
5138. NEXT
5139. RETURN
5140.  
5141. genscheme.3denvparticles.timeanimate:
5142. T = timevar / 50
5143. pcountparticleorig = animpcountparticleflag
5144. 'particle snake
5145. FOR i = -pi TO pi STEP .005
5146.     pcountparticleorig = pcountparticleorig + 1
5147.     vec(pcountparticleorig, 1) = camx - 10 + 5 * COS(i + T)
5148.     vec(pcountparticleorig, 2) = camy - 20 + 5 * SIN(i + T)
5149.     vec(pcountparticleorig, 3) = camz + 25 - 3 * COS(6 * i + T) * SIN(3 * i + T)
5150.     vec(pcountparticleorig, 4) = 12
5151. NEXT
5152. 'rain drops
5153. FOR i = -50 TO 50 STEP 5
5154.     FOR j = -50 TO 50 STEP 5
5155.         pcountparticleorig = pcountparticleorig + 1
5156.         vec(pcountparticleorig, 1) = vec(pcountparticleorig, 1)
5157.         vec(pcountparticleorig, 2) = vec(pcountparticleorig, 2)
5158.         vec(pcountparticleorig, 3) = vec(pcountparticleorig, 3) - .3
5159.         IF vec(pcountparticleorig, 3) < camz THEN vec(pcountparticleorig, 3) = vec(pcountparticleorig, 3) + 50
5160.     NEXT
5161. NEXT
5162. RETURN
5163.  
5164. ' *****************************************************************************
5165. 'ETHANE MOLECULE BEGIN
5166. 'DATA 0,0,-0.771209,6,1,0,0,0,0,0
5167. 'DATA 0,0,0.771209,6,2,1,0,0,0,0
5168. 'DATA 1.013466,0,1.156212,2,3,2,0,0,0,0
5169. 'DATA -1.013466,0,-1.156212,2,4,1,0,0,0,0
5170. 'DATA -0.506733,-0.877687,1.156212,2,5,2,0,0,0,0
5171. 'DATA -0.506733,0.877687,1.156212,2,6,2,0,0,0,0
5172. 'DATA 0.506733,-0.877687,-1.156212,2,7,1,0,0,0,0
5173. 'DATA 0.506733,0.877687,-1.156212,2,8,1,0,0,0,0
5174. 'DATA x, y, z, atomic number, atom index, neighbor 1, neighbor 2, etc.
5175. 'ETHANE MOLECULE END
5176. ' *****************************************************************************
5177.  
5178. genscheme.molecule:
5179. 'DATA x, y, z, atomic number, atom index, neighbor 1, neighbor 2, etc.
5180. biggestatom = -999999999
5181. FOR i = 1 TO numparticleorig
5182.     IF vec(i, 4) > 15 THEN
5183.         DO
5184.             vec(i, 4) = vec(i, 4) * .75
5185.         LOOP UNTIL vec(i, 4) <= 15
5186.     END IF
5187.     IF vec(i, 4) > biggestatom THEN biggestatom = vec(i, 4)
5188. NEXT
5189. RETURN
5190.  
5191. genscheme.neighbortile:
5192. pcountparticleorig = 0
5193. pcountparticleorig = 0
5194. FOR i = -8 TO 8 STEP 1
5195.     FOR j = -8 TO 8 STEP 1
5196.         FOR k = -8 TO 8 STEP 1
5197.             mag = SQR((i ^ 2) + (j ^ 2) + (k ^ 2)) - 6
5198.             IF SQR(mag ^ 2) < .1 AND i > 0 THEN
5199.                 pcountparticleorig = pcountparticleorig + 1
5200.                 vec(pcountparticleorig, 1) = i
5201.                 vec(pcountparticleorig, 2) = j
5202.                 vec(pcountparticleorig, 3) = k
5203.                 vec(pcountparticleorig, 4) = 4
5204.             END IF
5205.             mag = SQR((i ^ 2) + (j ^ 2) + (k ^ 2)) - 3
5206.             IF SQR(mag ^ 2) < .1 AND i < 2 THEN
5207.                 pcountparticleorig = pcountparticleorig + 1
5208.                 vec(pcountparticleorig, 1) = i - 5
5209.                 vec(pcountparticleorig, 2) = j
5210.                 vec(pcountparticleorig, 3) = k
5211.                 vec(pcountparticleorig, 4) = 5
5212.             END IF
5213.         NEXT
5214.     NEXT
5215. NEXT
5216. FOR i = -3 TO 2
5217.     pcountparticleorig = pcountparticleorig + 1
5218.     vec(pcountparticleorig, 1) = i: vec(pcountparticleorig, 2) = -3: vec(pcountparticleorig, 3) = -3: vec(pcountparticleorig, 4) = 2
5219.     pcountparticleorig = pcountparticleorig + 1
5220.     vec(pcountparticleorig, 1) = i: vec(pcountparticleorig, 2) = -3: vec(pcountparticleorig, 3) = 3: vec(pcountparticleorig, 4) = 2
5221.     pcountparticleorig = pcountparticleorig + 1
5222.     vec(pcountparticleorig, 1) = i: vec(pcountparticleorig, 2) = 3: vec(pcountparticleorig, 3) = -3: vec(pcountparticleorig, 4) = 2
5223.     pcountparticleorig = pcountparticleorig + 1
5224.     vec(pcountparticleorig, 1) = i: vec(pcountparticleorig, 2) = 3: vec(pcountparticleorig, 3) = 3: vec(pcountparticleorig, 4) = 2
5225. NEXT
5226. RETURN
5227.  
5228. genscheme.3denvdoublets:
5229. pcountdoubletorig = 0
5230. pcountdoubletorig = pcountdoubletorig + 1
5231. doubletorig(pcountdoubletorig, 1) = 5
5232. doubletorig(pcountdoubletorig, 2) = 0
5233. doubletorig(pcountdoubletorig, 3) = 0
5234. doubletorig(pcountdoubletorig, 4) = 30
5235. doubletorig(pcountdoubletorig, 5) = 0
5236. doubletorig(pcountdoubletorig, 6) = 0
5237. doubletorig(pcountdoubletorig, 7) = 14
5238. FOR j = 1 TO 5
5239.     pcountdoubletorig = pcountdoubletorig + 1
5240.     doubletorig(pcountdoubletorig, 1) = 5
5241.     doubletorig(pcountdoubletorig, 2) = -20
5242.     doubletorig(pcountdoubletorig, 3) = j
5243.     doubletorig(pcountdoubletorig, 4) = 5
5244.     doubletorig(pcountdoubletorig, 5) = 20
5245.     doubletorig(pcountdoubletorig, 6) = j
5246.     doubletorig(pcountdoubletorig, 7) = 13
5247. NEXT
5248. FOR j = 1 TO 5
5249.     pcountdoubletorig = pcountdoubletorig + 1
5250.     doubletorig(pcountdoubletorig, 1) = 15
5251.     doubletorig(pcountdoubletorig, 2) = j
5252.     doubletorig(pcountdoubletorig, 3) = -20
5253.     doubletorig(pcountdoubletorig, 4) = 15
5254.     doubletorig(pcountdoubletorig, 5) = j
5255.     doubletorig(pcountdoubletorig, 6) = 20
5256.     doubletorig(pcountdoubletorig, 7) = 4
5257. NEXT
5258. 'dot grid
5259. pcountparticleorig = 0
5260. FOR i = -20 TO 20 STEP 2
5261.     FOR j = -20 TO 20 STEP 2
5262.         FOR k = -20 TO 20 STEP 5
5263.             pcountparticleorig = pcountparticleorig + 1
5264.             vec(pcountparticleorig, 1) = i
5265.             vec(pcountparticleorig, 2) = j
5266.             vec(pcountparticleorig, 3) = k
5267.             vec(pcountparticleorig, 4) = 6
5268.         NEXT
5269.     NEXT
5270. NEXT
5271. RETURN
5272.  
5273. genscheme.3denvtriplets:
5274. pcounttripletorig = 0
5275. 'cubes
5276. length = 5
5277. cubecenterx = 0: cubecentery = 0: cubecenterz = -15: GOSUB genscheme.3denvtriplets.makecube
5278. cubecenterx = 20: cubecentery = 15: cubecenterz = -15: GOSUB genscheme.3denvtriplets.makecube
5279. cubecenterx = 40: cubecentery = 0: cubecenterz = -25: GOSUB genscheme.3denvtriplets.makecube
5280. RETURN
5281.  
5282. genscheme.3denvtriplets.makecube:
5283. basepointx = cubecenterx + length
5284. basepointy = cubecentery + length
5285. basepointz = cubecenterz - length
5286. rightpointx = cubecenterx + length
5287. rightpointy = cubecentery - length
5288. rightpointz = cubecenterz - length
5289. leftpointx = cubecenterx - length
5290. leftpointy = cubecentery + length
5291. leftpointz = cubecenterz - length
5292. panelcolor = INT(RND * 14) + 1
5293. GOSUB create.original.triangle
5294. basepointx = cubecenterx - length
5295. basepointy = cubecentery + length
5296. basepointz = cubecenterz - length
5297. rightpointx = cubecenterx + length
5298. rightpointy = cubecentery - length
5299. rightpointz = cubecenterz - length
5300. leftpointx = cubecenterx - length
5301. leftpointy = cubecentery - length
5302. leftpointz = cubecenterz - length
5303. 'panelcolor = 9
5304. GOSUB create.original.triangle
5305. basepointx = cubecenterx - length
5306. basepointy = cubecentery + length
5307. basepointz = cubecenterz - length
5308. rightpointx = cubecenterx - length
5309. rightpointy = cubecentery - length
5310. rightpointz = cubecenterz - length
5311. leftpointx = cubecenterx - length
5312. leftpointy = cubecentery + length
5313. leftpointz = cubecenterz + length
5314. panelcolor = INT(RND * 14) + 1
5315. GOSUB create.original.triangle
5316. basepointx = cubecenterx - length
5317. basepointy = cubecentery + length
5318. basepointz = cubecenterz + length
5319. rightpointx = cubecenterx - length
5320. rightpointy = cubecentery - length
5321. rightpointz = cubecenterz - length
5322. leftpointx = cubecenterx - length
5323. leftpointy = cubecentery - length
5324. leftpointz = cubecenterz + length
5325. 'panelcolor = 10
5326. GOSUB create.original.triangle
5327. basepointx = cubecenterx - length
5328. basepointy = cubecentery - length
5329. basepointz = cubecenterz - length
5330. rightpointx = cubecenterx + length
5331. rightpointy = cubecentery - length
5332. rightpointz = cubecenterz - length
5333. leftpointx = cubecenterx - length
5334. leftpointy = cubecentery - length
5335. leftpointz = cubecenterz + length
5336. panelcolor = INT(RND * 14) + 1
5337. GOSUB create.original.triangle
5338. basepointx = cubecenterx - length
5339. basepointy = cubecentery - length
5340. basepointz = cubecenterz + length
5341. rightpointx = cubecenterx + length
5342. rightpointy = cubecentery - length
5343. rightpointz = cubecenterz - length
5344. leftpointx = cubecenterx + length
5345. leftpointy = cubecentery - length
5346. leftpointz = cubecenterz + length
5347. 'panelcolor = 11
5348. GOSUB create.original.triangle
5349. basepointx = cubecenterx - length
5350. basepointy = cubecentery + length
5351. basepointz = cubecenterz + length
5352. rightpointx = cubecenterx - length
5353. rightpointy = cubecentery - length
5354. rightpointz = cubecenterz + length
5355. leftpointx = cubecenterx + length
5356. leftpointy = cubecentery + length
5357. leftpointz = cubecenterz + length
5358. panelcolor = INT(RND * 14) + 1
5359. GOSUB create.original.triangle
5360. basepointx = cubecenterx + length
5361. basepointy = cubecentery + length
5362. basepointz = cubecenterz + length
5363. rightpointx = cubecenterx - length
5364. rightpointy = cubecentery - length
5365. rightpointz = cubecenterz + length
5366. leftpointx = cubecenterx + length
5367. leftpointy = cubecentery - length
5368. leftpointz = cubecenterz + length
5369. 'panelcolor = 12
5370. GOSUB create.original.triangle
5371. basepointx = cubecenterx + length
5372. basepointy = cubecentery - length
5373. basepointz = cubecenterz - length
5374. rightpointx = cubecenterx + length
5375. rightpointy = cubecentery + length
5376. rightpointz = cubecenterz - length
5377. leftpointx = cubecenterx + length
5378. leftpointy = cubecentery - length
5379. leftpointz = cubecenterz + length
5380. panelcolor = INT(RND * 14) + 1
5381. GOSUB create.original.triangle
5382. basepointx = cubecenterx + length
5383. basepointy = cubecentery - length
5384. basepointz = cubecenterz + length
5385. rightpointx = cubecenterx + length
5386. rightpointy = cubecentery + length
5387. rightpointz = cubecenterz - length
5388. leftpointx = cubecenterx + length
5389. leftpointy = cubecentery + length
5390. leftpointz = cubecenterz + length
5391. 'panelcolor = 13
5392. GOSUB create.original.triangle
5393. basepointx = cubecenterx + length
5394. basepointy = cubecentery + length
5395. basepointz = cubecenterz - length
5396. rightpointx = cubecenterx - length
5397. rightpointy = cubecentery + length
5398. rightpointz = cubecenterz - length
5399. leftpointx = cubecenterx + length
5400. leftpointy = cubecentery + length
5401. leftpointz = cubecenterz + length
5402. panelcolor = INT(RND * 14) + 1
5403. GOSUB create.original.triangle
5404. basepointx = cubecenterx + length
5405. basepointy = cubecentery + length
5406. basepointz = cubecenterz + length
5407. rightpointx = cubecenterx - length
5408. rightpointy = cubecentery + length
5409. rightpointz = cubecenterz - length
5410. leftpointx = cubecenterx - length
5411. leftpointy = cubecentery + length
5412. leftpointz = cubecenterz + length
5413. 'panelcolor = 14
5414. GOSUB create.original.triangle
5415. RETURN
5416.  
5417. create.original.triangle:
5418. shrinkfactor = .90
5419. centorigx = (1 / 3) * (basepointx + rightpointx + leftpointx)
5420. centorigy = (1 / 3) * (basepointy + rightpointy + leftpointy)
5421. centorigz = (1 / 3) * (basepointz + rightpointz + leftpointz)
5422. basepointx = centorigx + (shrinkfactor) * (basepointx - centorigx)
5423. basepointy = centorigy + (shrinkfactor) * (basepointy - centorigy)
5424. basepointz = centorigz + (shrinkfactor) * (basepointz - centorigz)
5425. rightpointx = centorigx + (shrinkfactor) * (rightpointx - centorigx)
5426. rightpointy = centorigy + (shrinkfactor) * (rightpointy - centorigy)
5427. rightpointz = centorigz + (shrinkfactor) * (rightpointz - centorigz)
5428. leftpointx = centorigx + (shrinkfactor) * (leftpointx - centorigx)
5429. leftpointy = centorigy + (shrinkfactor) * (leftpointy - centorigy)
5430. leftpointz = centorigz + (shrinkfactor) * (leftpointz - centorigz)
5431. pcounttripletorig = pcounttripletorig + 1
5432. tripletorig(pcounttripletorig, 1) = basepointx
5433. tripletorig(pcounttripletorig, 2) = basepointy
5434. tripletorig(pcounttripletorig, 3) = basepointz
5435. tripletorig(pcounttripletorig, 4) = rightpointx
5436. tripletorig(pcounttripletorig, 5) = rightpointy
5437. tripletorig(pcounttripletorig, 6) = rightpointz
5438. tripletorig(pcounttripletorig, 7) = leftpointx
5439. tripletorig(pcounttripletorig, 8) = leftpointy
5440. tripletorig(pcounttripletorig, 9) = leftpointz
5441. tripletorig(pcounttripletorig, 10) = panelcolor
5442. RETURN
5443.  
5444. genscheme.animatedsurface.init:
5445. xl = -1.9: xr = 1.9
5446. yl = -1: yr = 1
5447. xl = xl * 4: xr = xr * 4: yl = yl * 4: yr = yr * 4
5448. Dx = .32
5449. Dy = .32
5450. xrange = 1 + INT((-xl + xr) / Dx)
5451. yrange = 1 + INT((-yl + yr) / Dy)
5452. pcountparticleorig = 0
5453. FOR i = xl TO xr STEP Dx
5454.     FOR j = yl TO yr STEP Dy
5455.         pcountparticleorig = pcountparticleorig + 1
5456.         vec(pcountparticleorig, 1) = i
5457.         vec(pcountparticleorig, 2) = j
5458.         vec(pcountparticleorig, 3) = .25 + .25 * COS(i - 2 * T) ^ 2 - .25 * SIN(j - T) ^ 2
5459.         '*'vec(pcountparticleorig, 4) = 14 'use special color scheme
5460.     NEXT
5461. NEXT
5462. RETURN
5463.  
5464. genscheme.animatedsurface.timeanimate:
5465. T = timevar / 5
5466. pcountparticleorig = 0
5467. FOR i = xl TO xr STEP Dx
5468.     FOR j = yl TO yr STEP Dy
5469.         pcountparticleorig = pcountparticleorig + 1
5470.         vec(pcountparticleorig, 1) = i
5471.         vec(pcountparticleorig, 2) = j
5472.         vec(pcountparticleorig, 3) = .25 + .25 * COS(i - 2 * T) ^ 2 - .25 * SIN(j - T) ^ 2
5473.         '*'vec(pcountparticleorig, 4) = 14 'use special color scheme
5474.     NEXT
5475. NEXT
5476. RETURN
5477.  
5478. genscheme.animatedpretzel.init:
5479. rho = 4: beta = .5: a = 1: b = 5: L = 4
5480. xl = -L: xr = L
5481. yl = 0: yr = 2 * pi
5482. Dx = .10: Dy = .157
5483. xrange = 1 + INT((-xl + xr) / Dx)
5484. yrange = 1 + INT((-yl + yr) / Dy)
5485. pcountparticleorig = 0
5486. FOR i = xl TO xr STEP Dx
5487.     FOR j = yl TO yr STEP Dy
5488.         pcountparticleorig = pcountparticleorig + 1
5489.         R = rho - (T / 100) * beta * (i ^ 2)
5490.         h = a * SQR(1 - (i / b) ^ 2)
5491.         k = 1 / SQR((2 * beta * i) ^ 2 + R ^ 2)
5492.         vec(pcountparticleorig, 1) = R * COS(i) + h * k * (R * COS(i) - 2 * beta * i * SIN(i)) * COS(j)
5493.         vec(pcountparticleorig, 2) = R * SIN(i) + h * k * (R * SIN(i) + 2 * beta * i * COS(i)) * COS(j)
5494.         vec(pcountparticleorig, 3) = h * SIN(j)
5495.         vec(pcountparticleorig, 4) = 5
5496.     NEXT
5497. NEXT
5498. RETURN
5499.  
5500. genscheme.animatedpretzel.timeanimate:
5501. T = timevar
5502. pcountparticleorig = 0
5503. FOR i = xl TO xr STEP Dx
5504.     FOR j = yl TO yr STEP Dy
5505.         pcountparticleorig = pcountparticleorig + 1
5506.         R = rho - (T / 100) * beta * (i ^ 2)
5507.         h = a * SQR(1 - (i / b) ^ 2)
5508.         k = 1 / SQR((2 * beta * i) ^ 2 + R ^ 2)
5509.         vec(pcountparticleorig, 1) = R * COS(i) + h * k * (R * COS(i) - 2 * beta * i * SIN(i)) * COS(j)
5510.         vec(pcountparticleorig, 2) = R * SIN(i) + h * k * (R * SIN(i) + 2 * beta * i * COS(i)) * COS(j)
5511.         vec(pcountparticleorig, 3) = h * SIN(j)
5512.         vec(pcountparticleorig, 4) = 5
5513.     NEXT
5514. NEXT
5515. RETURN
5516.  
5517. genscheme.sphericalharmonics:
5518. xl = 0: xr = pi: Dx = .05
5519. yl = 0: yr = 2 * pi: Dy = .05
5520. xrange = 1 + INT((-xl + xr) / Dx)
5521. yrange = 1 + INT((-yl + yr) / Dy)
5522. L = 0
5523. ml = 0
5524. PRINT " Choose the orbital L value (must be >= 0)."
5525. PRINT: INPUT " Enter a choice: ", L
5526. IF L < 0 THEN L = 0
5527. PRINT
5528. PRINT " Choose the orbital mL value (must have -L < mL < L)."
5529. PRINT: INPUT " Enter a choice: ", ml
5530. IF ml < -L THEN ml = -L
5531. IF ml > L THEN ml = L
5532. pcountparticleorig = 0
5533. FOR i = xl TO xr STEP Dx
5534.     FOR j = yl TO yr STEP Dy
5535.         pcountparticleorig = pcountparticleorig + 1
5536.         x0 = 10 * SIN(i) * COS(j)
5537.         y0 = 10 * SIN(i) * SIN(j)
5538.         z0 = 10 * COS(i)
5539.         SELECT CASE L
5540.             CASE 0
5541.                 vec(pcountparticleorig, 1) = x0 * (1 / 2) * SQR(1 / pi)
5542.                 vec(pcountparticleorig, 2) = y0 * (1 / 2) * SQR(1 / pi)
5543.                 vec(pcountparticleorig, 3) = z0 * (1 / 2) * SQR(1 / pi)
5544.                 vec(pcountparticleorig, 4) = 9
5545.             CASE 1
5546.                 SELECT CASE ml
5547.                     CASE -1
5548.                         vec(pcountparticleorig, 1) = x0 * (1 / 2) * SQR(3 / pi) * SIN(i) * COS(j)
5549.                         vec(pcountparticleorig, 2) = y0 * (1 / 2) * SQR(3 / pi) * SIN(i) * COS(j)
5550.                         vec(pcountparticleorig, 3) = z0 * (1 / 2) * SQR(3 / pi) * SIN(i) * COS(j)
5551.                         vec(pcountparticleorig, 4) = 9
5552.                     CASE 0
5553.                         vec(pcountparticleorig, 1) = x0 * (1 / 2) * SQR(3 / pi) * COS(i)
5554.                         vec(pcountparticleorig, 2) = y0 * (1 / 2) * SQR(3 / pi) * COS(i)
5555.                         vec(pcountparticleorig, 3) = z0 * (1 / 2) * SQR(3 / pi) * COS(i)
5556.                         vec(pcountparticleorig, 4) = 9
5557.                     CASE 1
5558.                         vec(pcountparticleorig, 1) = x0 * (1 / 2) * SQR(3 / pi) * SIN(i) * COS(j)
5559.                         vec(pcountparticleorig, 2) = y0 * (1 / 2) * SQR(3 / pi) * SIN(i) * COS(j)
5560.                         vec(pcountparticleorig, 3) = z0 * (1 / 2) * SQR(3 / pi) * SIN(i) * COS(j)
5561.                         vec(pcountparticleorig, 4) = 9
5562.                 END SELECT
5563.             CASE 2
5564.                 SELECT CASE ml
5565.                     CASE -2
5566.                         vec(pcountparticleorig, 1) = x0 * (1 / 2) * SQR(3 / pi) * SIN(i) ^ 2 * COS(2 * j)
5567.                         vec(pcountparticleorig, 2) = y0 * (1 / 2) * SQR(3 / pi) * SIN(i) ^ 2 * COS(2 * j)
5568.                         vec(pcountparticleorig, 3) = z0 * (1 / 2) * SQR(3 / pi) * SIN(i) ^ 2 * COS(2 * j)
5569.                         vec(pcountparticleorig, 4) = 9
5570.                     CASE -1
5571.                         vec(pcountparticleorig, 1) = x0 * (1 / 2) * SQR(3 / pi) * SIN(i) * COS(i) * COS(j)
5572.                         vec(pcountparticleorig, 2) = y0 * (1 / 2) * SQR(3 / pi) * SIN(i) * COS(i) * COS(j)
5573.                         vec(pcountparticleorig, 3) = z0 * (1 / 2) * SQR(3 / pi) * SIN(i) * COS(i) * COS(j)
5574.                         vec(pcountparticleorig, 4) = 9
5575.                     CASE 0
5576.                         vec(pcountparticleorig, 1) = x0 * (1 / 4) * SQR(5 / pi) * (3 * COS(i) ^ 2 - 1)
5577.                         vec(pcountparticleorig, 2) = y0 * (1 / 4) * SQR(5 / pi) * (3 * COS(i) ^ 2 - 1)
5578.                         vec(pcountparticleorig, 3) = z0 * (1 / 4) * SQR(5 / pi) * (3 * COS(i) ^ 2 - 1)
5579.                         vec(pcountparticleorig, 4) = 9
5580.                     CASE 1
5581.                         vec(pcountparticleorig, 1) = x0 * (1 / 2) * SQR(3 / pi) * SIN(i) * COS(i) * COS(j)
5582.                         vec(pcountparticleorig, 2) = y0 * (1 / 2) * SQR(3 / pi) * SIN(i) * COS(i) * COS(j)
5583.                         vec(pcountparticleorig, 3) = z0 * (1 / 2) * SQR(3 / pi) * SIN(i) * COS(i) * COS(j)
5584.                         vec(pcountparticleorig, 4) = 9
5585.                     CASE 2
5586.                         vec(pcountparticleorig, 1) = x0 * (1 / 2) * SQR(3 / pi) * SIN(i) ^ 2 * COS(2 * j)
5587.                         vec(pcountparticleorig, 2) = y0 * (1 / 2) * SQR(3 / pi) * SIN(i) ^ 2 * COS(2 * j)
5588.                         vec(pcountparticleorig, 3) = z0 * (1 / 2) * SQR(3 / pi) * SIN(i) ^ 2 * COS(2 * j)
5589.                         vec(pcountparticleorig, 4) = 9
5590.                 END SELECT
5591.             CASE 3
5592.                 SELECT CASE ml
5593.                     CASE -3
5594.                     CASE -2
5595.                     CASE -1
5596.                     CASE 0
5597.                     CASE 1
5598.                     CASE 2
5599.                     CASE 3
5600.                 END SELECT
5601.             CASE ELSE
5602.                 L = 0
5603.                 ml = 0
5604.         END SELECT
5605.     NEXT
5606. NEXT
5607. RETURN
5608.  
5609. genscheme.laplace2d.init:
5610. xl = -5: xr = 5
5611. yl = -7: yr = 7
5612. Dx = .25
5613. Dy = .25
5614. xrange = 1 + INT((-xl + xr) / Dx)
5615. yrange = 1 + INT((-yl + yr) / Dy)
5616. pcountparticleorig = 0
5617. FOR i = xl TO xr STEP Dx
5618.     FOR j = yl TO yr STEP Dy
5619.         pcountparticleorig = pcountparticleorig + 1
5620.         vec(pcountparticleorig, 1) = i
5621.         vec(pcountparticleorig, 2) = j
5622.         vec(pcountparticleorig, 3) = 0
5623.         vec(pcountparticleorig, 4) = 6
5624.     NEXT
5625. NEXT
5626. RETURN
5627.  
5628. genscheme.laplace2d.gridinit:
5629. pcountparticleorig = 0
5630. FOR i = 1 TO xrange
5631.     FOR j = 1 TO yrange
5632.         pcountparticleorig = pcountparticleorig + 1
5633.         vec2dzfixed(i, j) = -1
5634.         '''
5635.         randnum = RND * 1000
5636.         IF randnum < 40 AND i > xrange * .33 AND i < xrange * .66 AND j > yrange * .33 AND j < yrange * .66 THEN
5637.             vec(pcountparticleorig, 3) = RND * 6
5638.             vec(pcountparticleorig, 4) = 15
5639.             vec2dzfixed(i, j) = 1
5640.         END IF
5641.         IF randnum > 995 THEN
5642.             vec(pcountparticleorig, 3) = -RND * 5
5643.             vec(pcountparticleorig, 4) = 1
5644.             vec2dzfixed(i, j) = 1
5645.         END IF
5646.         '''
5647.         '''
5648.         '        IF i = 1 THEN
5649.         '            vec2dzfixed(i, j) = 1
5650.         '            vec(pcountparticleorig, 3) = pi / 2
5651.         '        END IF
5652.         '        IF i = xrange THEN
5653.         '            vec2dzfixed(i, j) = 1
5654.         '            vec(pcountparticleorig, 3) = 0
5655.         '        END IF
5656.         '        IF j = 1 THEN
5657.         '            vec2dzfixed(i, j) = 1
5658.         '            vec(pcountparticleorig, 3) = pi / 2
5659.         '        END IF
5660.         '        IF j = yrange THEN
5661.         '            vec2dzfixed(i, j) = 1
5662.         '            vec(pcountparticleorig, 3) = pi / 2
5663.         '        END IF
5664.         '''
5665.     NEXT
5666. NEXT
5667. RETURN
5668.  
5669. genscheme.laplace2d.timeanimate:
5670. 'delinearize
5671. pcountparticleorig = 0
5672. FOR i = 1 TO xrange
5673.     FOR j = 1 TO yrange
5674.         pcountparticleorig = pcountparticleorig + 1
5675.         vec2dztemp(i, j) = vec(pcountparticleorig, 3)
5676.     NEXT
5677. NEXT
5678. 'begin relax process
5679. FOR i = 2 TO xrange - 1 'boDy, no edges
5680.     FOR j = 2 TO yrange - 1
5681.         IF vec2dzfixed(i, j) = -1 THEN
5682.             rx1 = vec2dztemp(i + 1, j)
5683.             rx2 = vec2dztemp(i - 1, j)
5684.             rx3 = vec2dztemp(i, j - 1)
5685.             rx4 = vec2dztemp(i, j + 1)
5686.             vec2dz(i, j) = (1 / 4) * (rx1 + rx2 + rx3 + rx4)
5687.         END IF
5688.     NEXT
5689. NEXT
5690. FOR j = 2 TO yrange - 1 'left edge, right edge, no corners
5691.     i = 1
5692.     IF vec2dzfixed(i, j) = -1 THEN
5693.         rx1 = vec2dztemp(i + 1, j)
5694.         rx3 = vec2dztemp(i, j - 1)
5695.         rx4 = vec2dztemp(i, j + 1)
5696.         vec2dz(i, j) = (1 / 3) * (rx1 + rx3 + rx4)
5697.     END IF
5698.     i = xrange
5699.     IF vec2dzfixed(i, j) = -1 THEN
5700.         rx2 = vec2dztemp(i - 1, j)
5701.         rx3 = vec2dztemp(i, j - 1)
5702.         rx4 = vec2dztemp(i, j + 1)
5703.         vec2dz(i, j) = (1 / 3) * (rx2 + rx3 + rx4)
5704.     END IF
5705. NEXT
5706. FOR i = 2 TO xrange - 1 'top edge, bottom edge, no corners
5707.     j = 1
5708.     IF vec2dzfixed(i, j) = -1 THEN
5709.         rx1 = vec2dztemp(i + 1, j)
5710.         rx2 = vec2dztemp(i - 1, j)
5711.         rx4 = vec2dztemp(i, j + 1)
5712.         vec2dz(i, j) = (1 / 3) * (rx1 + rx2 + rx4)
5713.     END IF
5714.     j = yrange
5715.     IF vec2dzfixed(i, j) = -1 THEN
5716.         rx1 = vec2dztemp(i + 1, j)
5717.         rx2 = vec2dztemp(i - 1, j)
5718.         rx3 = vec2dztemp(i, j - 1)
5719.         vec2dz(i, j) = (1 / 3) * (rx1 + rx2 + rx3)
5720.     END IF
5721. NEXT
5722. 'four corners
5723. IF vec2dzfixed(1, 1) = -1 THEN vec2dz(1, 1) = (1 / 2) * (vec2dztemp(1, 2) + vec2dztemp(2, 1))
5724. IF vec2dzfixed(xrange, 1) = -1 THEN vec2dz(xrange, 1) = (1 / 2) * (vec2dztemp(xrange - 1, 1) + vec2dztemp(xrange, 2))
5725. IF vec2dzfixed(1, yrange) = -1 THEN vec2dz(1, yrange) = (1 / 2) * (vec2dztemp(2, yrange) + vec2dztemp(1, yrange - 1))
5726. IF vec2dzfixed(xrange, yrange) = -1 THEN vec2dz(xrange, yrange) = (1 / 2) * (vec2dztemp(xrange - 1, yrange) + vec2dztemp(xrange, yrange - 1))
5727. 'relinearize
5728. pcountparticleorig = 0
5729. FOR i = 1 TO xrange
5730.     FOR j = 1 TO yrange
5731.         pcountparticleorig = pcountparticleorig + 1
5732.         IF vec2dzfixed(i, j) = -1 THEN vec(pcountparticleorig, 3) = vec2dz(i, j)
5733.         IF vec2dz(i, j) > 2 THEN vec(pcountparticleorig, 4) = 15
5734.         IF vec2dz(i, j) < -1 THEN vec(pcountparticleorig, 4) = 1
5735.     NEXT
5736. NEXT
5737. RETURN
5738.  
5739. genscheme.planet.init:
5740. planetradius = 5
5741. Dx = .0628
5742. Dy = .0628
5743. xl = 0: xr = 2 * pi
5744. yl = 0: yr = pi
5745. xrange = 1 + INT((-xl + xr) / Dx)
5746. yrange = 1 + INT((-yl + yr) / Dy)
5747. pcountparticleorig = 0
5748. FOR i = 1 TO xrange
5749.     FOR j = 1 TO yrange
5750.         pcountparticleorig = pcountparticleorig + 1
5751.         theta = i * Dx - Dx
5752.         phi = j * Dy - Dy
5753.         vec(pcountparticleorig, 1) = planetradius * SIN(phi) * COS(theta)
5754.         vec(pcountparticleorig, 2) = planetradius * SIN(phi) * SIN(theta)
5755.         vec(pcountparticleorig, 3) = planetradius * COS(phi)
5756.         vec(pcountparticleorig, 4) = 2
5757.         'randnum = RND * 1000
5758.         'IF randnum > 600 THEN vec(pcountparticleorig, 4) = 2
5759.     NEXT
5760. NEXT
5761. RETURN
5762.  
5763. genscheme.planet.gridinit:
5764. pcountparticleorig = 0
5765. FOR i = 1 TO xrange
5766.     FOR j = 1 TO yrange
5767.         pcountparticleorig = pcountparticleorig + 1
5768.         theta = i * Dx - Dx
5769.         phi = j * Dy - Dy
5770.         vec2dsfixed(i, j) = -1
5771.         IF phi > pi / 8 AND phi < pi - pi / 8 THEN
5772.             randnum = RND * 1000
5773.             IF randnum < 20 THEN
5774.                 plrad = planetradius + RND * 1.25
5775.                 vec(pcountparticleorig, 1) = plrad * SIN(phi) * COS(theta)
5776.                 vec(pcountparticleorig, 2) = plrad * SIN(phi) * SIN(theta)
5777.                 vec(pcountparticleorig, 3) = plrad * COS(phi)
5778.                 vec2dsfixed(i, j) = 1
5779.             END IF
5780.             IF randnum > 980 THEN
5781.                 plrad = planetradius - RND * 1.25
5782.                 vec(pcountparticleorig, 1) = plrad * SIN(phi) * COS(theta)
5783.                 vec(pcountparticleorig, 2) = plrad * SIN(phi) * SIN(theta)
5784.                 vec(pcountparticleorig, 3) = plrad * COS(phi)
5785.                 vec2dsfixed(i, j) = 1
5786.             END IF
5787.             vec(pcountparticleorig, 4) = 2
5788.         ELSE
5789.             vec(pcountparticleorig, 4) = 15
5790.         END IF
5791.     NEXT
5792. NEXT
5793. RETURN
5794.  
5795. genscheme.planet.timeanimate:
5796. pcountparticleorig = 0
5797. FOR i = 1 TO xrange
5798.     FOR j = 1 TO yrange
5799.         pcountparticleorig = pcountparticleorig + 1
5800.         vec2dstemp(i, j) = SQR(vec(pcountparticleorig, 1) ^ 2 + vec(pcountparticleorig, 2) ^ 2 + vec(pcountparticleorig, 3) ^ 2)
5801.     NEXT
5802. NEXT
5803. 'begin relax process
5804. FOR i = 2 TO xrange - 1 'boDy, no seam
5805.     FOR j = 2 TO yrange - 1
5806.         IF vec2dsfixed(i, j) = -1 THEN
5807.             rx1 = vec2dstemp(i + 1, j)
5808.             rx2 = vec2dstemp(i - 1, j)
5809.             rx3 = vec2dstemp(i, j - 1)
5810.             rx4 = vec2dstemp(i, j + 1)
5811.             vec2ds(i, j) = (1 / 4) * (rx1 + rx2 + rx3 + rx4)
5812.         END IF
5813.     NEXT
5814. NEXT
5815. FOR j = 2 TO yrange - 1 'seam
5816.     IF vec2dsfixed(1, j) = -1 THEN
5817.         rx1 = vec2dstemp(2, j)
5818.         rx2 = vec2dstemp(xrange, j)
5819.         rx3 = vec2dstemp(1, j - 1)
5820.         rx4 = vec2dstemp(1, j + 1)
5821.         vec2ds(1, j) = (1 / 4) * (rx1 + rx2 + rx3 + rx4)
5822.     END IF
5823.     IF vec2dsfixed(xrange, j) = -1 THEN
5824.         rx1 = vec2dstemp(1, j)
5825.         rx2 = vec2dstemp(xrange - 1, j)
5826.         rx3 = vec2dstemp(xrange, j - 1)
5827.         rx4 = vec2dstemp(xrange, j + 1)
5828.         vec2ds(xrange, j) = (1 / 4) * (rx1 + rx2 + rx3 + rx4)
5829.     END IF
5830. NEXT
5831. 'relinearize
5832. pcountparticleorig = 0
5833. FOR i = 1 TO xrange
5834.     FOR j = 1 TO yrange
5835.         pcountparticleorig = pcountparticleorig + 1
5836.         IF vec2dsfixed(i, j) = -1 AND j <> 1 AND j <> yrange THEN
5837.             vec(pcountparticleorig, 1) = vec(pcountparticleorig, 1) * vec2ds(i, j) / vec2dstemp(i, j)
5838.             vec(pcountparticleorig, 2) = vec(pcountparticleorig, 2) * vec2ds(i, j) / vec2dstemp(i, j)
5839.             vec(pcountparticleorig, 3) = vec(pcountparticleorig, 3) * vec2ds(i, j) / vec2dstemp(i, j)
5840.         END IF
5841.         SELECT CASE SQR(vec(pcountparticleorig, 1) ^ 2 + vec(pcountparticleorig, 2) ^ 2 + vec(pcountparticleorig, 3) ^ 2)
5842.             CASE IS > planetradius + 0.25
5843.                 vec(pcountparticleorig, 4) = 6
5844.             CASE IS < planetradius - 0.25
5845.                 vec(pcountparticleorig, 4) = 1
5846.         END SELECT
5847.     NEXT
5848. NEXT
5849. RETURN
5850.  
5851. genscheme.wave2d.init:
5852. xl = -1.9: xr = 1.9
5853. yl = -1: yr = 1
5854. xl = xl * 4: xr = xr * 4: yl = yl * 4: yr = yr * 4
5855. Dx = .32
5856. Dy = .32
5857. xrange = 1 + INT((-xl + xr) / Dx)
5858. yrange = 1 + INT((-yl + yr) / Dy)
5859. alpha = .25
5860. pcountparticleorig = 0
5861. FOR i = xl TO xr STEP Dx
5862.     FOR j = yl TO yr STEP Dy
5863.         pcountparticleorig = pcountparticleorig + 1
5864.         vec(pcountparticleorig, 1) = i
5865.         vec(pcountparticleorig, 2) = j
5866.         vec(pcountparticleorig, 3) = 0
5867.         '*' vec(pcountparticleorig, 4) = 14 'use special color scheme
5868.     NEXT
5869. NEXT
5870. RETURN
5871.  
5872. genscheme.wave2d.gridinit:
5873. 'delinearize
5874. pcountparticleorig = 0
5875. FOR i = 1 TO xrange
5876.     FOR j = 1 TO yrange
5877.         pcountparticleorig = pcountparticleorig + 1
5878.         vec2dztemp(i, j) = vec(pcountparticleorig, 3)
5879.     NEXT
5880. NEXT
5881. 'initial position condition
5882. 'FOR i = 1 TO xrange 'random high points
5883. '  FOR j = 1 TO yrange
5884. '      nrand = RND * 1000
5885. '      IF nrand < 10 THEN
5886. '          vec2dz(i, j) = 5
5887. '      END IF
5888. '  NEXT
5889. 'NEXT
5890. 'vec2dz(xrange * .8, yrange * .2) = -2.5 'single plucked point
5891. 'FOR i = 1 TO xrange 'cross arm
5892. '   vec2dz(i, yrange / 3) = 2
5893. 'NEXT
5894. 'FOR j = 1 TO yrange 'cross arm
5895. '   vec2dz(xrange / 2, j) = 1
5896. 'NEXT
5897. 'sync
5898. pcountparticleorig = 0
5899. FOR i = 1 TO xrange
5900.     FOR j = 1 TO yrange
5901.         pcountparticleorig = pcountparticleorig + 1
5902.         vec2dzprev(i, j) = vec2dz(i, j)
5903.         vec2dztemp(i, j) = vec2dz(i, j)
5904.     NEXT
5905. NEXT
5906. 'initial velocity condition
5907. vec2dzprev(xrange * .8, yrange * .8) = 1.5 'single struck point
5908. 'relinearize
5909. pcountparticleorig = 0
5910. FOR i = 1 TO xrange
5911.     FOR j = 1 TO yrange
5912.         pcountparticleorig = pcountparticleorig + 1
5913.         vec(pcountparticleorig, 3) = vec2dz(i, j)
5914.     NEXT
5915. NEXT
5916. RETURN
5917.  
5918. genscheme.wave2d.timeanimate:
5919. 'delinearize
5920. pcountparticleorig = 0
5921. FOR i = 1 TO xrange
5922.     FOR j = 1 TO yrange
5923.         pcountparticleorig = pcountparticleorig + 1
5924.         vec2dztemp(i, j) = vec(pcountparticleorig, 3)
5925.     NEXT
5926. NEXT
5927. 'begin propagation process
5928. FOR i = 2 TO xrange - 1 'boDy, no edges
5929.     FOR j = 2 TO yrange - 1
5930.         wp1 = alpha * (vec2dztemp(i + 1, j) + vec2dztemp(i - 1, j)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5931.         wp2 = alpha * (vec2dztemp(i, j + 1) + vec2dztemp(i, j - 1)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5932.         vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
5933.     NEXT
5934. NEXT
5935. 'comment out this section for fixed edges (or pieces of this section)
5936. i = 1 'left edge
5937. FOR j = 2 TO yrange - 1
5938.     wfp = vec2dztemp(i, j)
5939.     wp1 = alpha * (vec2dztemp(i + 1, j) + wfp) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5940.     wp2 = alpha * (vec2dztemp(i, j + 1) + vec2dztemp(i, j - 1)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5941.     'vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
5942. NEXT
5943. i = xrange 'right edge
5944. FOR j = 2 TO yrange - 1
5945.     wfp = vec2dztemp(i, j)
5946.     wp1 = alpha * (wfp + vec2dztemp(i - 1, j)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5947.     wp2 = alpha * (vec2dztemp(i, j + 1) + vec2dztemp(i, j - 1)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5948.     vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
5949. NEXT
5950. j = 1 'bottom edge
5951. FOR i = 2 TO xrange - 1
5952.     wfp = vec2dztemp(i, j)
5953.     wp2 = alpha * (vec2dztemp(i, j + 1) + wfp) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5954.     wp1 = alpha * (vec2dztemp(i + 1, j) + vec2dztemp(i - 1, j)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5955.     vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
5956. NEXT
5957. j = yrange 'top edge
5958. FOR i = 2 TO xrange - 1
5959.     wfp = vec2dztemp(i, j)
5960.     wp2 = alpha * (wfp + vec2dztemp(i, j - 1)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5961.     wp1 = alpha * (vec2dztemp(i + 1, j) + vec2dztemp(i - 1, j)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5962.     vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
5963. NEXT
5964. 'bottom left corner
5965. i = 1: j = 1
5966. wfp1 = vec2dztemp(i, j)
5967. wfp2 = vec2dztemp(i, j)
5968. wp1 = alpha * (vec2dztemp(i + 1, j) + wfp1) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5969. wp2 = alpha * (vec2dztemp(i, j + 1) + wfp2) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5970. 'vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
5971. 'bottom right corner
5972. i = xrange: j = 1
5973. wfp1 = vec2dztemp(i, j)
5974. wfp2 = vec2dztemp(i, j)
5975. wp1 = alpha * (wfp1 + vec2dztemp(i - 1, j)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5976. wp2 = alpha * (vec2dztemp(i, j + 1) + wfp2) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5977. vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
5978. 'top left corner
5979. i = 1: j = yrange
5980. wfp1 = vec2dztemp(i, j)
5981. wfp2 = vec2dztemp(i, j)
5982. wp1 = alpha * (vec2dztemp(i + 1, j) + wfp1) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5983. wp2 = alpha * (wfp2 + vec2dztemp(i, j - 1)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5984. 'vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
5985. 'top right corner
5986. i = xrange: j = yrange
5987. wfp1 = vec2dztemp(i, j)
5988. wfp2 = vec2dztemp(i, j)
5989. wp1 = alpha * (wfp1 + vec2dztemp(i - 1, j)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5990. wp2 = alpha * (wfp2 + vec2dztemp(i, j - 1)) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
5991. vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
5992. 'start special movements
5993. T = timevar / 5
5994. IF T < pi THEN 'wave left edge just once
5995.     FOR j = 1 TO yrange
5996.         i = 1
5997.         vec2dz(i, j) = (j / yrange) * 1.5 * SIN(T)
5998.     NEXT
5999. END IF
6000. IF T < pi THEN 'wave bottom edge just once
6001.     FOR i = 1 TO xrange
6002.         j = 1
6003.         vec2dz(i, j) = (i / xrange) * .45 * SIN(T)
6004.     NEXT
6005. END IF
6006. 'relinearize
6007. pcountparticleorig = 0
6008. FOR i = 1 TO xrange
6009.     FOR j = 1 TO yrange
6010.         pcountparticleorig = pcountparticleorig + 1
6011.         vec2dzprev(i, j) = vec2dztemp(i, j)
6012.         vec2dztemp(i, j) = vec2dz(i, j)
6013.         vec(pcountparticleorig, 3) = vec2dz(i, j)
6014.     NEXT
6015. NEXT
6016. RETURN
6017.  
6018. genscheme.wave2dinf.init:
6019. xl = -12: xr = 12
6020. yl = -12: yr = 12
6021. Dx = .33
6022. Dy = .33
6023. xrange = 1 + INT((-xl + xr) / Dx)
6024. yrange = 1 + INT((-yl + yr) / Dy)
6025. alpha = .25
6026. pcountparticleorig = 0
6027. FOR i = xl TO xr STEP Dx
6028.     FOR j = yl TO yr STEP Dy
6029.         pcountparticleorig = pcountparticleorig + 1
6030.         vec(pcountparticleorig, 1) = i
6031.         vec(pcountparticleorig, 2) = j
6032.         vec(pcountparticleorig, 3) = 0
6033.         vec(pcountparticleorig, 4) = 1
6034.     NEXT
6035. NEXT
6036. RETURN
6037.  
6038. genscheme.wave2dinf.gridinit:
6039. 'delinearize
6040. pcountparticleorig = 0
6041. FOR i = 1 TO xrange
6042.     FOR j = 1 TO yrange
6043.         pcountparticleorig = pcountparticleorig + 1
6044.         vec2dzfixed(i, j) = -1
6045.         vec2dztemp(i, j) = vec(pcountparticleorig, 3)
6046.     NEXT
6047. NEXT
6048. 'set edge damping constants
6049. xrdamp = INT(xrange / 10)
6050. yrdamp = INT(yrange / 10)
6051. 'create fixed heights
6052. FOR j = 1 TO INT(yrange / 2 - 3)
6053.     FOR i = INT(xrange / 3 - 5) TO INT(xrange / 3 - 3)
6054.         vec2dzfixed(i, j) = 1
6055.         vec2dz(i, j) = 0
6056.     NEXT
6057. NEXT
6058. FOR j = INT(yrange / 2 + 3) TO yrange
6059.     FOR i = INT(xrange / 3 - 5) TO INT(xrange / 3 - 3)
6060.         vec2dzfixed(i, j) = 1
6061.         vec2dz(i, j) = 0
6062.     NEXT
6063. NEXT
6064. 'initial position condition
6065. 'FOR i = 1 TO xrange 'random high points
6066. '   FOR j = 1 TO yrange
6067. '       nrand = RND * 1000
6068. '       IF nrand < 10 THEN
6069. '           vec2dz(i, j) = 1
6070. '       END IF
6071. '   NEXT
6072. 'NEXT
6073. 'i = xrange / 2: j = yrange / 2: vec2dz(i, j) = 8 'pluck middle
6074. 'sync
6075. pcountparticleorig = 0
6076. FOR i = 1 TO xrange
6077.     FOR j = 1 TO yrange
6078.         pcountparticleorig = pcountparticleorig + 1
6079.         vec2dzprev(i, j) = vec2dz(i, j)
6080.         vec2dztemp(i, j) = vec2dz(i, j)
6081.     NEXT
6082. NEXT
6083. 'initial velocity condition
6084. 'vec2dzprev(xrange / 2, yrange / 2) = 1.5 'single struck point
6085. 'relinearize
6086. pcountparticleorig = 0
6087. FOR i = 1 TO xrange
6088.     FOR j = 1 TO yrange
6089.         pcountparticleorig = pcountparticleorig + 1
6090.         vec(pcountparticleorig, 3) = vec2dz(i, j)
6091.         IF i < xrdamp THEN vec(pcountparticleorig, 4) = 8
6092.         IF i > xrange - xrdamp THEN vec(pcountparticleorig, 4) = 8
6093.         IF j < yrdamp THEN vec(pcountparticleorig, 4) = 8
6094.         IF j > yrange - yrdamp THEN vec(pcountparticleorig, 4) = 8
6095.         IF vec2dzfixed(i, j) = 1 THEN vec(pcountparticleorig, 4) = 4
6096.     NEXT
6097. NEXT
6098. RETURN
6099.  
6100. genscheme.wave2dinf.timeanimate:
6101. 'delinearize
6102. pcountparticleorig = 0
6103. FOR i = 1 TO xrange
6104.     FOR j = 1 TO yrange
6105.         pcountparticleorig = pcountparticleorig + 1
6106.         vec2dztemp(i, j) = vec(pcountparticleorig, 3)
6107.     NEXT
6108. NEXT
6109. 'start pre-propagation special movements
6110. T = timevar
6111. IF RND * 250 < 10 THEN 'rain drops
6112.     i = INT(RND * xrange - xrdamp - 2) + xrdamp + 2
6113.     j = INT(RND * yrange - yrdamp - 2) + yrdamp + 2
6114.     'IF vec2dzfixed(i, j) = -1 THEN vec2dzprev(i, j) = -2 'set velocity or
6115.     IF vec2dzfixed(i, j) = -1 THEN vec2dztemp(i, j) = 2 'set position
6116. END IF
6117. 'begin propagation process
6118. FOR i = 2 TO xrange - 1 'boDy, no edges
6119.     FOR j = 2 TO yrange - 1
6120.         vp1 = vec2dztemp(i + 1, j)
6121.         vp2 = vec2dztemp(i - 1, j)
6122.         vp3 = vec2dztemp(i, j + 1)
6123.         vp4 = vec2dztemp(i, j - 1)
6124.         IF vec2dzfixed(i + 1, j) = 1 THEN vp1 = 0
6125.         IF vec2dzfixed(i - 1, j) = 1 THEN vp2 = 0
6126.         IF vec2dzfixed(i, j + 1) = 1 THEN vp3 = 0
6127.         IF vec2dzfixed(i, j - 1) = 1 THEN vp4 = 0
6128.         wp1 = alpha * (vp1 + vp2) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
6129.         wp2 = alpha * (vp3 + vp4) + 2 * (1 - alpha) * vec2dztemp(i, j) - vec2dzprev(i, j)
6130.         vec2dz(i, j) = (1 / 2) * (wp1 + wp2)
6131.     NEXT
6132. NEXT
6133. 'damp out motion at edges
6134. 'left edge
6135. FOR j = 2 TO yrange - 1
6136.     FOR i = xrdamp TO 2 STEP -1
6137.         vec2dz(i, j) = (1 / 4) * (vec2dztemp(i, j) + vec2dztemp(i + 1, j) + vec2dztemp(i, j + 1) + vec2dztemp(i, j - 1))
6138.     NEXT
6139. NEXT
6140. 'right edge
6141. FOR j = 2 TO yrange - 1
6142.     FOR i = (xrange - xrdamp) TO (xrange - 1)
6143.         vec2dz(i, j) = (1 / 4) * (vec2dztemp(i, j) + vec2dztemp(i - 1, j) + vec2dztemp(i, j + 1) + vec2dztemp(i, j - 1))
6144.     NEXT
6145. NEXT
6146. 'bottom edge
6147. FOR i = 2 TO xrange - 1
6148.     FOR j = yrdamp TO 2 STEP -1
6149.         vec2dz(i, j) = (1 / 4) * (vec2dztemp(i, j) + vec2dztemp(i, j + 1) + vec2dztemp(i + 1, j) + vec2dztemp(i - 1, j))
6150.     NEXT
6151. NEXT
6152. 'top edge
6153. FOR i = 2 TO xrange - 1
6154.     FOR j = (yrange - yrdamp) TO (yrange - 1)
6155.         vec2dz(i, j) = (1 / 4) * (vec2dztemp(i, j) + vec2dztemp(i, j - 1) + vec2dztemp(i + 1, j) + vec2dztemp(i - 1, j))
6156.     NEXT
6157. NEXT
6158. 'adjust for error caused by boundary conditions
6159. nrbcerr = 0
6160. FOR j = 1 TO yrange
6161.     nrbcerr = nrbcerr + vec2dz(xrange - 1, j)
6162.     nrbcerr = nrbcerr + vec2dz(2, j)
6163. NEXT
6164. FOR i = 1 TO xrange
6165.     nrbcerr = nrbcerr + vec2dz(i, yrange - 1)
6166.     nrbcerr = nrbcerr + vec2dz(i, 2)
6167. NEXT
6168. nrbcerr = nrbcerr / (2 * xrange + 2 * yrange)
6169. 'start post-propagation special movements
6170. 'IF t < pi THEN 'wave middle just once
6171. '   i = xrange / 2
6172. '   j = yrange / 2
6173. '   vec2dz(i, j) = -4.5 * SIN(t)
6174. 'END IF
6175. 'IF t < pi THEN 'wave some place
6176. FOR j = 1 + 2.5 * yrdamp TO yrange - 2.5 * yrdamp
6177.     i = xrdamp + 1
6178.     vec2dz(i, j) = .75 * SIN(.5 * T)
6179. NEXT
6180. 'END IF
6181. 'relinearize and correct for nonreflecting boundary condition error
6182. pcountparticleorig = 0
6183. FOR i = 1 TO xrange
6184.     FOR j = 1 TO yrange
6185.         pcountparticleorig = pcountparticleorig + 1
6186.         vec2dzprev(i, j) = vec2dztemp(i, j) - nrbcerr
6187.         vec2dztemp(i, j) = vec2dz(i, j) - nrbcerr
6188.         IF vec2dzfixed(i, j) = -1 THEN vec(pcountparticleorig, 3) = vec2dz(i, j) - nrbcerr
6189.         IF vec2dzfixed(i, j) = -1 AND i >= xrdamp AND i <= xrange - xrdamp AND j >= yrdamp AND j <= yrange - yrdamp THEN
6190.             IF vec2dz(i, j) > .2 THEN vec(pcountparticleorig, 4) = 9 ELSE vec(pcountparticleorig, 4) = 1
6191.         END IF
6192.     NEXT
6193. NEXT
6194. RETURN
6195.  
6196. genscheme.bacteria.init:
6197. gridxhalfsize = 50
6198. gridyhalfsize = 50
6199. gridzhalfsize = 50
6200. gridxstep = 2
6201. gridystep = 2
6202. gridzstep = 2
6203. numcreatures1 = numcreatures
6204. numcreatures2 = 0
6205. numcreatures3 = 0
6206. creatureinitrad = 0.5
6207. pcountparticleorig = 0
6208. FOR i = 1 TO numcreatures
6209.     pcountparticleorig = pcountparticleorig + 1
6210.     vec(pcountparticleorig, 5) = .15 'step constant
6211.     vec(pcountparticleorig, 6) = creatureinitrad 'creature radius
6212.     vec(pcountparticleorig, 7) = vec(pcountparticleorig, 6) 'old creature radius
6213.     IF RND > .5 THEN 'determine gender of species 1
6214.         vec(pcountparticleorig, 4) = 9
6215.         vec(pcountparticleorig, 8) = 1 'species 1 male
6216.     ELSE
6217.         vec(pcountparticleorig, 4) = 13
6218.         vec(pcountparticleorig, 8) = 2 'species 1 female
6219.     END IF
6220.     placecreature:
6221.     vec(pcountparticleorig, 1) = RND * (2 * gridxhalfsize) - gridxhalfsize 'x position
6222.     vec(pcountparticleorig, 2) = RND * (2 * gridyhalfsize) - gridyhalfsize 'y position
6223.     vec(pcountparticleorig, 3) = RND * (2 * gridzhalfsize) - gridzhalfsize 'z position
6224.     FOR j = 1 TO i 'initial overlap prevention
6225.         IF i <> j THEN
6226.             deltax = vec(i, 1) - vec(j, 1)
6227.             deltay = vec(i, 2) - vec(j, 2)
6228.             deltaz = vec(i, 3) - vec(j, 3)
6229.             deltar = SQR(deltax ^ 2 + deltay ^ 2 + deltaz ^ 2)
6230.             IF deltar < (vec(i, 6) + vec(j, 6)) THEN GOTO placecreature
6231.         END IF
6232.     NEXT
6233. NEXT
6234. RETURN
6235.  
6236. genscheme.bacteria.timeanimate:
6237. FOR i = 1 TO numcreatures
6238.     'store old creature radius
6239.     vec(i, 7) = vec(i, 6)
6240.     'determine if creature grows in radius
6241.     IF RND > .66 THEN
6242.         vec(i, 6) = vec(i, 6) * (1 + RND * 0.001)
6243.     END IF
6244.     'creature is too large and explodes
6245.     IF vec(i, 6) > 8 * creatureinitrad THEN
6246.         vec(i, 6) = creatureinitrad
6247.         SELECT CASE vec(i, 8) 'erase creature count of particular species
6248.             CASE 1: numcreatures1 = numcreatures1 - 1
6249.             CASE 2: numcreatures1 = numcreatures1 - 1
6250.             CASE 3: numcreatures2 = numcreatures2 - 1
6251.             CASE 4: numcreatures2 = numcreatures2 - 1
6252.             CASE 5: numcreatures3 = numcreatures3 - 1
6253.             CASE 6: numcreatures3 = numcreatures3 - 1
6254.         END SELECT
6255.         'perform weighted average over species for replacement creature
6256.         j1 = RND * numcreatures1
6257.         j2 = RND * numcreatures2
6258.         j3 = RND * numcreatures3
6259.         IF j1 > j2 AND j1 > j3 THEN
6260.             numcreatures1 = numcreatures1 + 1
6261.             IF RND > .5 THEN
6262.                 vec(i, 4) = 9
6263.                 vec(i, 8) = 1 'species 1 male
6264.             ELSE
6265.                 vec(i, 4) = 13
6266.                 vec(i, 8) = 2 'species 1 female
6267.             END IF
6268.         END IF
6269.         IF j2 > j1 AND j2 > j3 THEN
6270.             numcreatures2 = numcreatures2 + 1
6271.             IF RND > .5 THEN
6272.                 vec(i, 4) = 14
6273.                 vec(i, 8) = 3 'species 2 male
6274.             ELSE
6275.                 vec(i, 4) = 15
6276.                 vec(i, 8) = 4 'species 2 female
6277.             END IF
6278.         END IF
6279.         IF j3 > j1 AND j3 > j2 THEN
6280.             numcreatures3 = numcreatures3 + 1
6281.             IF RND > .99 THEN
6282.                 IF RND > .5 THEN
6283.                     vec(i, 4) = 11
6284.                     vec(i, 8) = 5 'species 3 male
6285.                 ELSE
6286.                     vec(i, 4) = 11
6287.                     vec(i, 8) = 6 'species 3 female
6288.                 END IF
6289.             END IF
6290.         END IF
6291.     END IF
6292.     'move creature in random direction (to fix)
6293.     creaturexstep = (RND - .5)
6294.     creatureystep = (RND - .5)
6295.     creaturezstep = (RND - .5)
6296.     stepmag = SQR(creaturexstep ^ 2 + creatureystep ^ 2 + creaturezstep ^ 2)
6297.     creaturexstep = creaturexstep / stepmag
6298.     creatureystep = creatureystep / stepmag
6299.     creaturezstep = creaturezstep / stepmag
6300.     vec(i, 1) = vec(i, 1) + creaturexstep * vec(i, 5) * (1 + 1.5 / vec(i, 6))
6301.     vec(i, 2) = vec(i, 2) + creatureystep * vec(i, 5) * (1 + 1.5 / vec(i, 6))
6302.     vec(i, 3) = vec(i, 3) + creaturezstep * vec(i, 5) * (1 + 1.5 / vec(i, 6))
6303.     'collision with wall
6304.     IF vec(i, 1) >= gridxhalfsize THEN vec(i, 1) = vec(i, 1) - creaturexstep
6305.     IF vec(i, 1) <= -gridxhalfsize THEN vec(i, 1) = vec(i, 1) - creaturexstep
6306.     IF vec(i, 2) >= gridyhalfsize THEN vec(i, 2) = vec(i, 2) - creatureystep
6307.     IF vec(i, 2) <= -gridyhalfsize THEN vec(i, 2) = vec(i, 2) - creatureystep
6308.     IF vec(i, 3) >= gridzhalfsize THEN vec(i, 3) = vec(i, 3) - creaturezstep
6309.     IF vec(i, 3) <= -gridzhalfsize THEN vec(i, 3) = vec(i, 3) - creaturezstep
6310.     'ckeck for collision with another creature
6311.     FOR j = 1 TO numcreatures
6312.         IF i <> j THEN
6313.             deltax = vec(i, 1) - vec(j, 1)
6314.             deltay = vec(i, 2) - vec(j, 2)
6315.             deltaz = vec(i, 3) - vec(j, 3)
6316.             deltar = SQR(deltax ^ 2 + deltay ^ 2 + deltaz ^ 2)
6317.             'collision between mature creatures
6318.             IF deltar < (vec(i, 6) + vec(j, 6)) AND vec(i, 6) > 1.5 * creatureinitrad AND vec(j, 6) > 1.5 * creatureinitrad THEN
6319.                 IF vec(i, 8) <> vec(j, 8) THEN 'collision between opposing genders
6320.                     vec(i, 1) = vec(i, 1) - creaturexstep
6321.                     vec(i, 2) = vec(i, 2) - creatureystep
6322.                     vec(i, 3) = vec(i, 3) - creaturezstep
6323.                     'species 1 mating
6324.                     IF vec(i, 8) >= 1 AND vec(i, 8) <= 2 AND vec(j, 8) >= 1 AND vec(j, 8) <= 2 THEN
6325.                         IF RND > .95 THEN 'determine if offspring is mutates to species 2
6326.                             numcreatures1 = numcreatures1 - 1
6327.                             numcreatures2 = numcreatures2 + 1
6328.                             IF RND > .5 THEN 'determine gender of species 2
6329.                                 vec(i, 4) = 14
6330.                                 vec(i, 8) = 3 'species 2 male
6331.                             ELSE
6332.                                 vec(i, 4) = 15
6333.                                 vec(i, 8) = 4 'species 2 female
6334.                             END IF
6335.                         END IF
6336.                         GOTO donemating
6337.                     END IF
6338.                     'species 2 mating
6339.                     IF vec(i, 8) >= 3 AND vec(i, 8) <= 4 AND vec(j, 8) >= 3 AND vec(j, 8) <= 4 THEN
6340.                         IF RND > .95 THEN 'determine if offspring is mutates to species 3
6341.                             numcreatures2 = numcreatures2 - 1
6342.                             numcreatures3 = numcreatures3 + 1
6343.                             IF RND > .5 THEN 'determine gender of species 3
6344.                                 vec(i, 4) = 11
6345.                                 vec(i, 8) = 5 'species 3 male
6346.                             ELSE
6347.                                 vec(i, 4) = 11
6348.                                 vec(i, 8) = 6 'species 3 female
6349.                             END IF
6350.                         END IF
6351.                         GOTO donemating
6352.                     END IF
6353.                     donemating:
6354.                     vec(i, 6) = creatureinitrad
6355.                 END IF
6356.             END IF
6357.         END IF
6358.     NEXT
6359. NEXT
6360. RETURN
6361.  
6362. genscheme.neuron.init:
6363. numneuralnodes = 75
6364. brainsize = 350
6365. pcountparticleorig = 0
6366. FOR i = 1 TO numneuralnodes
6367.     pcountparticleorig = pcountparticleorig + 1
6368.     vec(pcountparticleorig, 1) = brainsize * (RND - .5)
6369.     vec(pcountparticleorig, 2) = brainsize * (RND - .5)
6370.     vec(pcountparticleorig, 3) = brainsize * (RND - .5) / 5
6371.     vec(pcountparticleorig, 4) = 14
6372.     vec(pcountparticleorig, 5) = i 'node index
6373.     vec(pcountparticleorig, 6) = -1 'stimulation index (-1 for no stimulation)
6374.     vec(pcountparticleorig, 7) = 0 'dead time counter
6375. NEXT
6376. FOR i = 1 TO numneuralnodes
6377.     FOR j = 2 TO 21
6378.         pcountparticleorig = pcountparticleorig + 1
6379.         neuronxstep = (RND - .5)
6380.         neuronystep = (RND - .5)
6381.         neuronzstep = (RND - .5)
6382.         stepmag = SQR(neuronxstep ^ 2 + neuronystep ^ 2 + neuronzstep ^ 2)
6383.         neuronxstep = neuronxstep / stepmag
6384.         neuronystep = neuronystep / stepmag
6385.         neuronzstep = neuronzstep / stepmag
6386.         vec(pcountparticleorig, 1) = vec(i, 1) + .25 * neuronxstep * (brainsize * RND)
6387.         vec(pcountparticleorig, 2) = vec(i, 2) + .25 * neuronystep * (brainsize * RND)
6388.         vec(pcountparticleorig, 3) = vec(i, 3) + .25 * neuronzstep * (brainsize * RND) / 3
6389.         vec(pcountparticleorig, 4) = 7
6390.         vec(pcountparticleorig, 5) = i
6391.         vec(pcountparticleorig, 6) = -1
6392.         vec(pcountparticleorig, 7) = 0
6393.     NEXT
6394. NEXT
6395. randomneuron = INT(RND * (pcountparticleorig - numneuralnodes)) + numneuralnodes
6396. vec(randomneuron, 4) = 14
6397. vec(randomneuron, 6) = 1
6398. RETURN
6399.  
6400. 'Things to check:
6401. 'Question: is nhat.old a necessary construction?
6402. 'Question: is work.nhat a necessary construction?
6403. 'Unify snipworkpcount nomenclature
6404. 'There is an overall minus sign problem somewhere:
6405. '   doublets and particles clip differenetly for nearplane.
6406. '       This may have been solved. See comment below, too.
6407. ' The triplet snipping broke after I started playing with
6408. ' the normal vector. The temporary patch is the two calls of
6409. ' the function reverse.uvnhat. Triplet viewplane clipping has
6410. ' not been retested.
6411. 'The 'file' input mode for particle world has not been re-
6412. ' tested since the simple time animation setup, June 2013.
6413.  
6414. genscheme.neuron.timeanimate:
6415. FOR i = 1 TO numparticleorig
6416.     vecpuvsrev(i, 1) = vec(i, 1)
6417.     vecpuvsrev(i, 2) = vec(i, 2)
6418.     vecpuvsrev(i, 3) = vec(i, 3)
6419.     vecpuvsrev(i, 4) = vec(i, 4)
6420.     vecpuvsrev(i, 5) = vec(i, 5)
6421.     vecpuvsrev(i, 6) = vec(i, 6)
6422.     vecpuvsrev(i, 7) = vec(i, 7)
6423. NEXT
6424. FOR i = numneuralnodes + 1 TO numparticleorig
6425.     'single neuron activates whole cluster if cluster is ready
6426.     IF vecpuvsrev(i, 6) = 1 AND vecpuvsrev(vecpuvsrev(i, 5), 6) = -1 AND vecpuvsrev(vecpuvsrev(i, 5), 7) = 0 THEN
6427.         vec(vec(i, 5), 6) = 1
6428.         vec(vec(i, 5), 7) = 3000
6429.         FOR j = numneuralnodes + 1 TO numparticleorig
6430.             IF vecpuvsrev(i, 5) = vecpuvsrev(j, 5) THEN
6431.                 vec(j, 4) = 4
6432.                 vec(j, 6) = 1
6433.             END IF
6434.         NEXT
6435.     END IF
6436.     'cluster is fully active: probe neighbors and then become inactive
6437.     IF vecpuvsrev(i, 6) = 1 AND vecpuvsrev(vecpuvsrev(i, 5), 6) = 1 THEN
6438.         vec(i, 4) = 7
6439.         vec(i, 6) = -1
6440.         vec(vec(i, 5), 6) = -1
6441.         FOR j = numneuralnodes + 1 TO numparticleorig
6442.             IF vecpuvsrev(i, 5) <> vecpuvsrev(j, 5) THEN
6443.                 vecsep = SQR((vecpuvsrev(j, 1) - vecpuvsrev(i, 1)) ^ 2 + (vecpuvsrev(j, 2) - vecpuvsrev(i, 2)) ^ 2 + (vecpuvsrev(j, 3) - vecpuvsrev(i, 3)) ^ 2)
6444.                 IF vecsep < 7 AND vecpuvsrev(j, 6) = -1 THEN
6445.                     vec(j, 4) = 7
6446.                     vec(j, 6) = 1
6447.                 END IF
6448.             END IF
6449.         NEXT
6450.     END IF
6451.     IF vec(vec(i, 5), 7) > 0 THEN vec(vec(i, 5), 7) = vec(vec(i, 5), 7) - 1
6452. NEXT
6453. RETURN
6454.  
6455. '*'
6456.