#! /usr/bin/perl -w # povray union 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:1 EOF SceneCheck(<< 'EOF',$sig); union{ box{ <-0.1,-0.1,-0.1>, <0.1,0.1,0.1> } box{ <0.9,0.9,0.9>, <1.1,1.1,1.1> } pigment{color rgb <1,0,0>} } EOF Report();