« previous next »
Pages: [1] 2   Go Down

Author Topic: Moving Water Waves  (Read 3719 times)

0 Members and 1 Guest are viewing this topic.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Moving Water Waves
« on: June 06, 2020, 08:16:04 pm »
I never knew it would only take 28 lines of code to make moving water waves. It uses the SIN command which I learned about from here:
http://www.petesqbsite.com/sections/tutorials/zines/basix/6-coderz_2_plasma.txt

Here is the code. Tell me what you think.

Code: QB64: [Select]
  1. _TITLE "Moving Water Waves - by Sierraken"
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. t = 20
  4. b = 174
  5. xx = 250
  7.     _LIMIT 500
  8.     IF xx + xx > 1200 THEN xx = 250
  9.     FOR yy = 300 TO 700
  10.         FOR x = 0 TO 500
  11.             PSET (x + xx, (SIN(x * 0.017453) * t) + yy), _RGB32(25, 50, b)
  12.             PSET (x + xx + 360, (SIN(x * 0.017453) * t) + yy), _RGB32(25, 50, b)
  13.         NEXT x
  14.     NEXT yy
  15.     FOR yy = 300 TO 700
  16.         FOR x = xx - 1300 TO xx
  17.             PSET (x + xx, (SIN(x * 0.017453) * t) + yy), _RGB32(25, 50, b)
  18.             PSET (x + xx + 360, (SIN(x * 0.017453) * t) + yy), _RGB32(25, 50, b)
  19.         NEXT x
  20.     NEXT yy
  21.     IF tt = 0 THEN t = t + 2: b = b + 2
  22.     IF t > 80 THEN tt = 1
  23.     IF tt = 1 THEN t = t - 2: b = b - 2
  24.     IF t < -80 THEN tt = 0
  25.     xx = xx + 10
  26.     _DISPLAY
  27.     CLS
  29.  
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: Moving Water Waves
« Reply #1 on: June 07, 2020, 01:33:13 am »
Wow! Really nice.... It will be cool if someone extend this to 3D. :)
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline STxAxTIC

  • Library Staff
  • Forum Resident
  • Posts: 1091
  • he lives
    • View Profile
Re: Moving Water Waves
« Reply #2 on: June 07, 2020, 01:38:26 am »
Run mode.... 14 I think? Most of this is crap, I don't really endorse this code anymore.

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
  8.  
  9. ' *** Performance settings. ***
  10.  
  11. bignumber = 500000 ' Maximum objects per array (determined by memory).
  12. globaldelayinit = 1000 ' Loop damping factor (fine adjustment below).
  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.  
  200. PRINT " *** Welcome to 3DCTRWGRAPH ***"
  201. PRINT "     by: William F. Barnes"
  203. PRINT " 3D Graphics and Physics Engine"
  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."
  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."
  220. PRINT " 10: Spherical harmonics (in development) in single point plot mode."
  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.  
  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
  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.  
  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
  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
  525.  
  526. GOSUB redraw
  527.  
  528. ' *** Begin main loop. ***
  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
  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
  571.  
  572. keyprocess:
  573. 'IF mousekey$ <> "" THEN
  574. '    key$ = mousekey$
  575. '    mousekey$ = ""
  576. 'ELSE
  578. 'END IF
  579. IF key$ <> "" THEN
  580.     flagredraw = 1
  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
  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
  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)
  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)
  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)
  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)
  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)
  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)
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  1022. GOSUB draw.all.objects
  1023. GOSUB store.screen.projections
  1025.  
  1026. reverse.uvnhat:
  1027. uhat(1) = -uhat(1)
  1028. uhat(2) = -uhat(2)
  1029. uhat(3) = -uhat(3)
  1030. GOSUB normalize.screen.vectors
  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
  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
  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
  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))
  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
  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
  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
  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
  1261. IF toggletimealert = 1 THEN
  1262.     COLOR 7
  1263.     LOCATE 1, 25: PRINT "Press 'T' to toggle animation."
  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)
  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)
  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)
  1291. numtripletfinal.old = numtripletfinal
  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
  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)
  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)
  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)
  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)
  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)
  1418. numdoubletclip = numdoubletorig
  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)
  1431. numdoubletclip = pcountdoubletclipwork
  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
  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
  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)
  1575. numdoubletsnip = numdoubletclip
  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)
  1588. numdoubletsnip = snipworkpcount
  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
  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)
  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)
  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
  1802. numtripletfaceon = pcounttripletfaceon
  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)
  1821. numtripletclip = numtripletfaceon
  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)
  1837. numtripletclip = pcounttripletclipwork
  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
  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
  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)
  2049. numtripletsnip = numtripletclip
  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
  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)
  2167. numtripletsnip = snipworkpcount
  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
  2248.     pointDinside = 0
  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
  2273.     pointEinside = 0
  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
  2298.     pointFinside = 0
  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
  2377.     pointAinside = 0
  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
  2402.     pointBinside = 0
  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
  2427.     pointCinside = 0
  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
  2641.     intABDE = 0
  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
  2677.     intBCDE = 0
  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
  2713.     intCADE = 0
  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
  2749.     intABEF = 0
  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
  2785.     intBCEF = 0
  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
  2821.     intCAEF = 0
  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
  2857.     intABFD = 0
  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
  2893.     intBCFD = 0
  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
  2929.     intCAFD = 0
  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
  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)
  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)
  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)
  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)
  4599. numtripletfinal = numtripletsnip
  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
  4619. pcounttripletsnipimage = pcountimagerepack
  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
  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
  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
  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
  4658.  
  4659. plotmode.3denvparticles:
  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)
  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
  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
  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
  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)
  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
  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)
  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
  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
  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
  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)
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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)
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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)
  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)
  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)
  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)
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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)
  6164. FOR i = 1 TO xrange
  6165.     nrbcerr = nrbcerr + vec2dz(i, yrange - 1)
  6166.     nrbcerr = nrbcerr + vec2dz(i, 2)
  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)
  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
  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
  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
  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
  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
  6395. randomneuron = INT(RND * (pcountparticleorig - numneuralnodes)) + numneuralnodes
  6396. vec(randomneuron, 4) = 14
  6397. vec(randomneuron, 6) = 1
  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)
  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
  6454.  
  6455. '*'
« Last Edit: June 07, 2020, 01:42:37 am by STxAxTIC »
Logged
You're not done when it works, you're done when it's right.

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: Moving Water Waves
« Reply #3 on: June 07, 2020, 07:48:38 am »
@STxAxTIC Its very nice! I also loved other demos! :D
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Moving Water Waves
« Reply #4 on: June 07, 2020, 07:51:46 am »
Quote
Tell me what you think.

Cool... Almost hypnotic... Like a deer staring at the lights of an oncoming truck... Cool
(of course the deer escapes just in time..')
Logged
Logic is the beginning of wisdom.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Moving Water Waves
« Reply #5 on: June 07, 2020, 01:10:31 pm »
Thanks everyone! Making these waves took a lot of luck and trial and error, as well as that SIN formula I found.

Static, I am always amazed when I run your program. I forgot that you had the water waves on there too, amazing.
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Moving Water Waves
« Reply #6 on: June 07, 2020, 04:53:44 pm »
I just added a tiny bit more code and got something I really like. It now also animates going from bottom to the top of the water and shows much better colors. Here is a picture of it. But it shows the animation in the program itself.

Code: QB64: [Select]
  1. _TITLE "Moving Water Waves - by Sierraken"
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. t = 20
  4. b = 174
  5. xx = 250
  6. g = 10
  8.     _LIMIT 500
  9.     IF xx + xx > 1200 THEN xx = 250
  10.     FOR yy = 300 TO 700
  11.         IF yy / 3 = INT(yy / 3) THEN g = g + 2
  12.         IF g > 255 THEN g = 10
  13.         FOR x = 0 TO 500
  14.             PSET (x + xx, (SIN(x * 0.017453) * t) + yy), _RGB32(25, g, b)
  15.             PSET (x + xx + 360, (SIN(x * 0.017453) * t) + yy), _RGB32(25, g, b)
  16.         NEXT x
  17.     NEXT yy
  18.     FOR yy = 300 TO 700 STEP .75
  19.         IF yy / 3 = INT(yy / 3) THEN g = g + 2
  20.         IF g > 255 THEN g = 10
  21.         FOR x = xx - 1300 TO xx
  22.             PSET (x + xx, (SIN(x * 0.017453) * t) + yy), _RGB32(25, g, b)
  23.             PSET (x + xx + 360, (SIN(x * 0.017453) * t) + yy), _RGB32(25, g, b)
  24.         NEXT x
  25.     NEXT yy
  26.     IF tt = 0 THEN t = t + 2: b = b + 2
  27.     IF t > 80 THEN tt = 1
  28.     IF tt = 1 THEN t = t - 2: b = b - 2
  29.     IF t < -80 THEN tt = 0
  30.     xx = xx + 10
  31.     _DISPLAY
  32.     CLS
  34.  
Moving Water Waves by Me.jpg
* Moving Water Waves by Me.jpg (Filesize: 69.06 KB, Dimensions: 801x624, Views: 85)
« Last Edit: June 07, 2020, 04:55:30 pm by SierraKen »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Moving Water Waves
« Reply #7 on: June 07, 2020, 04:58:03 pm »
I like the direction you took with last mod, nice color too, can you offset the two waves?
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Moving Water Waves
« Reply #8 on: June 07, 2020, 05:07:30 pm »
Offset as in how? You have to watch the animation to understand it. It's not just 2 waves. The bottom wave is constantly moving from bottom to the top wave and changing colors. Or do you mean keep the bottom wave without moving toward the top? I might see if I can do that. Or do you mean shift the bottom to the right some from the top?
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Moving Water Waves
« Reply #9 on: June 07, 2020, 05:10:53 pm »
Yes, I mean the latter, shift the bottom or top so the crest of one is in the trough of the other.

Then of course I will like to see way more waves LOL!
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Moving Water Waves
« Reply #10 on: June 07, 2020, 06:02:45 pm »
LOL DANG BPlus you knew what you were talking about! Thank you for the idea! I just shifted all the waves over one by one and check this out! I also made the colors change more realistically and added a daytime color in the sky. I added a picture below but check out the animation now. :)))

Code: QB64: [Select]
  1. 'Water Waves - by Sierraken on June 7, 2020
  2. 'Thank you Bplus for the idea of shifting the waves over!
  3. 'Feel free to change anything you wish or use it in your own projects.
  4. _TITLE "Moving Water Waves - by Sierraken"
  5. SCREEN _NEWIMAGE(800, 600, 32)
  6. t = 20
  7. b = 174
  8. xx = 250
  9. g = 10
  11.     _LIMIT 750
  12.     IF xx + xx > 1200 THEN xx = 250
  13.     FOR yy = 300 TO 700
  14.         IF yy / 3 = INT(yy / 3) AND g2 = 0 THEN g = g + 2
  15.         IF yy / 3 = INT(yy / 3) AND g2 = 1 THEN g = g - 2
  16.         IF g > 255 THEN g2 = 1
  17.         IF g < 11 THEN g2 = 0
  18.         xx2 = xx2 + 1
  19.         FOR x = 0 TO 500
  20.             PSET (x + xx + xx2, (SIN(x * 0.017453) * t) + yy), _RGB32(25, g, b)
  21.             PSET (x + xx + xx2 + 360, (SIN(x * 0.017453) * t) + yy), _RGB32(25, g, b)
  22.         NEXT x
  23.     NEXT yy
  24.     FOR yy = 300 TO 700
  25.         IF yy / 3 = INT(yy / 3) AND g2 = 0 THEN g = g + 2
  26.         IF yy / 3 = INT(yy / 3) AND g2 = 1 THEN g = g - 2
  27.         IF g > 255 THEN g2 = 1
  28.         IF g < 11 THEN g2 = 0
  29.         xx3 = xx3 + 1
  30.         FOR x = xx - 1700 TO xx
  31.             PSET (x + xx + xx3, (SIN(x * 0.017453) * t) + yy), _RGB32(25, g, b)
  32.             PSET (x + xx + xx3 + 360, (SIN(x * 0.017453) * t) + yy), _RGB32(25, g, b)
  33.         NEXT x
  34.     NEXT yy
  35.     IF tt = 0 THEN t = t + 2: b = b + 2
  36.     IF t > 80 THEN tt = 1
  37.     IF tt = 1 THEN t = t - 2: b = b - 2
  38.     IF t < -80 THEN tt = 0
  39.     xx = xx + 10
  40.     xx2 = 0: xx3 = 0
  41.     _DISPLAY
  42.     CLS
  43.     PAINT (1, 1), _RGB32(0, 255, 255)
  45.  

Moving Water Waves by Me 2.jpg
* Moving Water Waves by Me 2.jpg (Filesize: 209.67 KB, Dimensions: 802x630, Views: 85)
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Moving Water Waves
« Reply #11 on: June 07, 2020, 06:46:09 pm »
I found a neat ocean waves mp3 sound and added the code to automatically play it when you run the program. So here are Ocean.mp3 and Ken's Water Waves.bas files. Put both files in the same directory.
* Ocean.mp3 (Filesize: 754.15 KB, Downloads: 113)
* Kens Water Waves.bas (Filesize: 1.78 KB, Downloads: 102)
« Last Edit: June 09, 2020, 11:56:32 am by SierraKen »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Moving Water Waves
« Reply #12 on: June 07, 2020, 07:15:07 pm »
Hey Ken, that's better than what I had in mind! :)
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Moving Water Waves
« Reply #13 on: June 07, 2020, 07:37:47 pm »
Awesome bplus!

Here is a short 2 minute YouTube video I made of it using the sound I found.


« Last Edit: June 07, 2020, 07:39:09 pm by SierraKen »
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Moving Water Waves
« Reply #14 on: June 08, 2020, 04:12:57 am »
Very cool indeed! Surf's Up!
Logged
Logic is the beginning of wisdom.
Pages: [1] 2   Go Up
« previous next »