Octogonic - parameters

[VanlindtMarc]

Code:

// Camera settings. Place these before first rule call.
set translation [-5.40444 -6.82667 -20]
set rotation [0.999911 -0.0127698 -0.00357114 0.0132595 0.964559 0.263528 7.95024e-05 -0.263551 0.964643]
set pivot [0 0 0]
set scale 5.5
set raytracer::size [1080x1080]
set perspective-angle 100
#define deplac1 92/100
#define modtaille 84/100
#define modcolor 20
#define angle1 22.5
#define angle2 11.25
#define objmat {h 128}sphere
#define modalpha 1
#define nbritra 8
#define nbritrb 8
#define nbritrc 8
#define nbritrd 8
#define nbritre 8

{x 0.5 y 1 s 16 16 1 z -1 color black}box
rulea

rule rulea md nbritra
{ruleb
{x 1 rz angle1 rz angle1}rulea}

rule ruleb md nbritrb
{rulee
{rz angle1 rz angle1}ruleb}

rule rulec md nbritrc
{objmat
{x -deplac1 s modtaille rz -angle1 h modcolor  a modalpha}rulec}

rule ruled md nbritrd > rulec
{objmat
{z deplac1 s modtaille rx angle1  h modcolor  a modalpha}ruled}

rule rulee md nbritre > ruled
{objmat
{x deplac1 s modtaille rz angle1 rz angle1  rx angle2 h modcolor  a modalpha}rulee}