Uses: Fig. 988.13C S Quanta Module in Context of Icosahedron and Octahedron Copyright © 1997 Estate of R. Buckminster Fuller Compare to: 988.20 Table: Volume-area Ratios of Modules and Polyhedra of the Primitive Hierarchy. http://www.rwgrayprojects.com/synergetics/s09/p87400.html#988.12
from math import sqrt
stage.set_background_color("white")
sprite = codesters.Sprite("S_Modules_46d")
PHI = (1 + sqrt(5))/2
S3 = sqrt(9.0/8)
# https://codepen.io/pdx4d/full/qjwORr/
super_RT = 20 * S3
canonical_icosa = sqrt(2) * 5 * PHI**2
SFACTOR = 20.0 / canonical_icosa
volume = ((1.0/2) * SFACTOR)**3 * canonical_icosa
codesters.Text("Icosa: {:>8.4f}".format(volume * 24), -80, -210)
codesters.Text("Octa: {:>8.4f}".format(4.0 * 24), -80, -230)
codesters.Text("KEY: ", 75, -210)
codesters.Text("A,B,T-mod vol. = 1", 100, -230)
codesters.Text("See Table 988.20", 100, 210)
s_module = (4.0 - volume)/24
codesters.Text("S-mod: {:>8.4f}".format(s_module * 24), -80, 230)
e_module = (super_RT * PHI**-3)/120
codesters.Text("E-mod: {:>8.4f}".format(e_module * 24), -80, 210)
