startshape PIR background {hue 50 sat 0.5 b 2}

rule PIR{

pyramid{hue 50 sat 0.5 r 45 skew -5 -5}

}

rule pyramid{

Side{r 0 y 0.5 s 1 0.6 skew -22 -0}
Side{r 270 x 0.5 s 1 0.6 skew 22 0 b 0.1}
Side{r 90 x -0.5 s 1 1.4 skew -22 0 b 0.2}
Side{r 180 y -0.5 s 1 1.4 skew 22 0 b 0.3}
SQUARE{r 180 x -0.46 s 0.07 0.05 skew 0 18 b 0.2}
Plane{r 180 y 0.5 b 0.9 z -1 skew 15 0 }

}

rule Side{

SQUARE{s 1 0.01}
Plane{b 0.4 z -1}
Dots{}
Dots{}
Dots{}
Dots{}
Dots{}
Dots{}
Dots{}
Side{s 0.90 y -.05}

}

rule Plane{

SQUARE{s 1 0.01}
Plane{s 0.98015 y -.01}

}

rule Dots{

Lot{x 0.1}

} rule Dots{

Lot{x -0.1}

} rule Dots{

Lot{x 0.2}

} rule Dots{

Lot{x -0.2}

} rule Dots{

Lot{x 0.3}

} rule Dots{

Lot{x -0.3}

} rule Dots{

Lot{x 0.4}

} rule Dots{

Lot{x -0.4}

} rule Dots{

Lot{}

}

rule Lot{

SQUARE{s 0.01 y -0.01}
Lot{s 0.8 y -0.01}

}