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