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