#! /usr/bin/perl -w # povray intersection require 'check.ph'; $sig = << 'EOF'; -1,-1,-1:0 -1,-1,0:0 -1,-1,1:0 -1,0,-1:0 -1,0,0:0 -1,0,1:0 -1,1,-1:0 -1,1,0:0 -1,1,1:0 0,-1,-1:0 0,-1,0:0 0,-1,1:0 0,0,-1:0 0,0,0:1 0,0,1:0 0,1,-1:0 0,1,0:0 0,1,1:0 1,-1,-1:0 1,-1,0:0 1,-1,1:0 1,0,-1:0 1,0,0:0 1,0,1:0 1,1,-1:0 1,1,0:0 1,1,1:0 EOF SceneCheck(<< 'EOF',$sig); intersection{ box{ <-0.1,-0.1,-0.1>, <1.1,1.1,1.1> } box{ <-0.1,-0.1,-0.1>, <1.1,1.1,1.1> translate <-1,0,0> } box{ <-0.1,-0.1,-0.1>, <1.1,1.1,1.1> translate <0,-1,0> } box{ <-0.1,-0.1,-0.1>, <1.1,1.1,1.1> translate <0,0,-1> } box{ <-0.1,-0.1,-0.1>, <1.1,1.1,1.1> translate <-1,-1,0> } box{ <-0.1,-0.1,-0.1>, <1.1,1.1,1.1> translate <-1,0,-1> } box{ <-0.1,-0.1,-0.1>, <1.1,1.1,1.1> translate <0,-1,-1> } box{ <-0.1,-0.1,-0.1>, <1.1,1.1,1.1> translate <-1,-1,-1> } pigment{color rgb <1,0,0>} } EOF Report();