#!/usr/bin/perl

$flnm = $ARGV[0];

open (DROP, $flnm);
$line = <DROP>;
@pcs = split(' ',$line);
$t[0] = $pcs[0];
$t[1] = $pcs[1];
$t[2] = $pcs[2];

$line = <DROP>;
@pcs = split(' ',$line);
$x = $pcs[0];
$y = $pcs[1];
$z = $pcs[2];

print "#VRML V2.0 utf8\n\n";
print "DEF Q1 Transform {\n";
print "children [\n";
print " Transform {\n";
print "  translation $t[0] $t[1] $t[2]\n";
print "  children [\n";
print "    Shape {\n";
print "      appearance BRICK { }\n";
print "      geometry IndexedFaceSet {\n";
print "        solid FALSE\n";
print "        coord Coordinate {\n";
print "          point [\n";
print "            $x 0.0 0.0\n";
print "            $x -$y 0.0\n";
print "            $x -$y -$z\n";
print "            $x 0.0 -$z\n";
print "           -$x 0.0 0.0\n";
print "           -$x -$y 0.0\n";
print "           -$x -$y -$z\n";
print "           -$x 0.0 -$z\n";
print "          ]\n";
print "        }\n";
print "        coordIndex [\n";
print "          0, 1, 2, 3, -1, 4, 5, 6, 7, -1\n";
print "        ]\n";
print "        texCoord TextureCoordinate {\n";
print "          point [\n";
print "           0.0 0.0\n";
print "           -$y 0.0\n";
print "           -$y -$z\n";
print "           0.0 -$z\n";
print "           0.0 0.0\n";
print "           -$y 0.0\n";
print "           -$y -$z\n";
print "           0.0 -$z\n";
print "                ]\n";
print "        }\n";
print "      }\n";
print "    }\n";
print "  ]\n";
print "}\n";
print "]}\n";


print "Transform {\n";
print "  rotation 0.0 1.0 0.0 1.571\n";
print "  children [\n";
print "    USE Q1\n";
print "    Transform {\n";
print "      rotation 0.0 1.0 0.0 1.571\n";
print "      children [\n";
print "        USE Q1\n";
print "        Transform {\n";
print "        	 rotation 0.0 1.0 0.0 1.571\n";
print "        	 children [\n";
print "        	   USE Q1\n";
print "          ]\n";
print "        }\n";
print "      ]\n";
print "    }\n";
print "  ]\n";
print "}\n";