#! /usr/bin/perl -w # povray "translate" 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: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); box{ <-1,-1,-1>, <1,1,1> translate <0.9,0.9,0.9> pigment{color rgb <1,0,0>} } EOF Report();