Make your own free website on Tripod.com
 

rgrosser/terrain


dimensions

worlds


"I think the world we live in is so hopelessly weird and complex that in order to come to terms with it, you need the tools that science fiction develops." - William Gibson



Paradigms:

Music & Phonemes
 

LA
 MI
 DO
 DO
 FA
 TI
LA
 DO
 MI
 DO
 TI
 FA
DO
 MI
 LA
 TI
 FA
 DO
DO
 LA
 MI
 TI
 DO
 FA
 MI
 DO
LA
 FA
 DO
TI
MI
LA
DO
FA
TI
DO

// 12 Bar Blues
// C-C G-G C-C G-G A-B
// (DO-DO FA-FA DO-DO FA-FA LA-TI)

#include "harmony"
#include "riff"
#include "lead break"

DNA

DNA Computing

 ||  || ||  ||
A
C
G
T
C
A
T
G
G
T
A
C
T
G
C
A
 ||  || ||  ||  || ||  ||

A
C
G
T
C
A
T
G
G
T
A
C
T
G
C
A
           ||  || ||  ||  || ||  ||
 
A
C
G
T
C
A
T
G
G
T
A
C
T
G
C
A
||  || ||  ||
Tetrahedra & Quadrays


// Draws 2 face-bonded tetrahedra
// K. Urner 6-3-96

#include "colors.inc"
#include "textures.inc"
#include "shapes.inc"

#declare finish_ambient   = .5

object{light_source{<-1,2,-1> color White}}
object{light_source{< 2,2, 2> color White}}

camera{location <2,0,0>
        look_at <0,0,1>
        direction <0,0,1>
        up <0,1,0>
        right<1.3,0,0>
        translate <0,0,-5>
        }

// tetrahedron of edge=2
// Sit at origin, legs in front, splayed apart to x=triangle altitude (2root of 3), z= {+|- 1}
// Lean forward,  reach to apex

#declare Tetra =
union{
object{cylinder{< 0, 0, 0> < 1.7321, 0.0000, 1.0000> .05} pigment {Blue} finish{ambient finish_ambient} no_shadow}
object{cylinder{< 0, 0, 0> < 1.7321, 0.0000,-1.0000> .05} pigment {Blue} finish{ambient finish_ambient} no_shadow}
object{cylinder{< 0, 0, 0> < 1.1547, 1.633, 0.0000> .05} pigment {Blue} finish{ambient finish_ambient} no_shadow}
object{cylinder{< 1.1547, 1.633,  0.0000 > < 1.7321, 0.0000,-1.0000> .05} pigment {Blue} finish{ambient finish_ambient} no_shadow}
object{cylinder{< 1.1547, 1.633,  0.0000 > < 1.7321, 0.0000, 1.0000> .05} pigment {Blue} finish{ambient finish_ambient} no_shadow}
object{cylinder{< 1.7321, 0.0000, 1.0000 > < 1.7321, 0.0000,-1.0000> .05} pigment {Blue} finish{ambient finish_ambient} no_shadow}
}

// Use A mod angle to tip Tetra down so opposite face center is
// along x-axis (call this TiltTetra)

#declare TiltTetra  = object{Tetra rotate<0,0,-19.471>}

object{TiltTetra}  // first item drawn

// Rotate around Y axis and slide twice altitude of tetra in pos x direction
object{TiltTetra rotate<0,180,0> translate< 3.266, 0.0000,0.0000>}

// Draw an X-axis from apex to apex
object{cylinder{< 0.0000, 0.0000, 0.0000> < 3.266, 0.0000,0.0000> .05} pigment {Red} finish{ambient finish_ambient} no_shadow}

Concordance:

Workshop of the Mind

Binary:
 

1
0
0
0
0
1
0
0
0
0
1
0
0
0
0
1
=
8
4
2
1



"To be able to fill leisure intelligently is the last product of civilization."- Betrand Russell
The Conquest of Happiness(1930) ch. 14
 
 





Richard Grosser
CADRE Systems Architect
Ph: +643 3890564
Fax:+643 3890569
PO Box 22-095
Christchurch
New Zealand
grosserr@v1.chchp.ac.nz
http://www.chchpoly.ac.nz
cadre@ext.canterbury.ac.nz
http://www.geocities.com/ResearchTriangle/Lab/1286
http://members.tripod.com/~rgrosser