Coil Structure Script

set background #222

set raytracer::light [0,5000,5000]
set raytracer::samples 8
set raytracer::ambient-occlusion-samples 2
set raytracer::phong [0.7,0.7,0.25]

#define XSegments 18
#define XRotation -15
#define XHalf 30
#define XMove 2

#define Scale 0.97
#define YRotation 2
#define YInital 7
#define YMain 46

#define Damage 0

{ color white ry -90 } Core

rule Core
{
    XSegments * { b 0.9 z XMove rx XRotation } PanelSegment
}

rule PanelSegment
{
    { rx XHalf } PanelScale1
    { rx XHalf ry 180 x -0.5 } PanelScale1
}

rule PanelScale1 md YInital > PanelScale2
{
    { rz YRotation } Panel
    { rz YRotation x 0.5 } PanelScale1
}

rule PanelScale2 md YMain w 50
{
    { rz YRotation } Panel
    { rz YRotation x 0.5 s 1 1 Scale } PanelScale2
}

rule PanelScale2 w Damage
{
}

rule Panel
{
    2 * { x 0.25 } PanelSub1
    3 * { z 2 } PanelSub2
}

rule PanelSub1 w 4
{
    { rx 90 s 0.04 4 0.1 } box
}

rule PanelSub1 w Damage
{
}

rule PanelSub2
{
    { z -4 x 0.4 s 0.5 0.25 0.05 } box
}