worlds
• Music & Phonemes
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// 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
|| || || ||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// 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:
• Binary:
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
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 |
|
https://members.tripod.com/~rgrosser |