#!/usr/bin/perl

$flnm = $ARGV[0];
open (ANCHORS,$flnm);
$n = -1;
while( <ANCHORS> ) {
    @pcs = split(' ',$_);
    $n++;
    $X[$n] = $pcs[0];
    $Y[$n] = $pcs[1];
    $Z[$n] = $pcs[2];
}

for $i (0 .. $n) {
    print "Anchor {\n";
    print " url \"GalleryOne_1.wrl\"\n";
    print " children [ \n";
    print "   Transform {\n";
    print "     translation $X[$i] $Y[$i] $Z[$i]\n";
    print "     children [\n";
    print "       Shape {\n";
    print "	 appearance BRICK0 { }\n";
    print "	 geometry Sphere {radius 0.2}\n";
    print "       }\n";
    print "     ]\n";
    print "   }\n";
    print " ]\n";
    print "}\n";
    print "Anchor {\n";
    print " url \"GalleryOne_2.wrl\"\n";
    print " children [ \n";
    print "   Transform {\n";
    print "     translation $Z[$i] $Y[$i] $X[$i]\n";
    print "     children [\n";
    print "       Shape {\n";
    print "	 appearance BRICK0 { }\n";
    print "	 geometry Sphere {radius 0.2}\n";
    print "       }\n";
    print "     ]\n";
    print "   }\n";
    print " ]\n";
    print "}\n";
    print "Anchor {\n";
    print " url \"GalleryOne_3.wrl\"\n";
    print " children [ \n";
    print "   Transform {\n";
    print "     translation $Z[$i] $Y[$i] -$X[$i]\n";
    print "     children [\n";
    print "       Shape {\n";
    print "	 appearance BRICK0 { }\n";
    print "	 geometry Sphere {radius 0.2}\n";
    print "       }\n";
    print "     ]\n";
    print "   }\n";
    print " ]\n";
    print "}\n";
    print "Anchor {\n";
    print " url \"GalleryOne_4.wrl\"\n";
    print " children [ \n";
    print "   Transform {\n";
    print "     translation $X[$i] $Y[$i] -$Z[$i]\n";
    print "     children [\n";
    print "       Shape {\n";
    print "	 appearance BRICK0 { }\n";
    print "	 geometry Sphere {radius 0.2}\n";
    print "       }\n";
    print "     ]\n";
    print "   }\n";
    print " ]\n";
    print "}\n";
    print "Anchor {\n";
    print " url \"GalleryOne_5.wrl\"\n";
    print " children [ \n";
    print "   Transform {\n";
    print "     translation -$X[$i] $Y[$i] -$Z[$i]\n";
    print "     children [\n";
    print "       Shape {\n";
    print "	 appearance BRICK0 { }\n";
    print "	 geometry Sphere {radius 0.2}\n";
    print "       }\n";
    print "     ]\n";
    print "   }\n";
    print " ]\n";
    print "}\n";
    print "Anchor {\n";
    print " url \"GalleryOne_6.wrl\"\n";
    print " children [ \n";
    print "   Transform {\n";
    print "     translation -$Z[$i] $Y[$i] -$X[$i]\n";
    print "     children [\n";
    print "       Shape {\n";
    print "	 appearance BRICK0 { }\n";
    print "	 geometry Sphere {radius 0.2}\n";
    print "       }\n";
    print "     ]\n";
    print "   }\n";
    print " ]\n";
    print "}\n";
    print "Anchor {\n";
    print " url \"GalleryOne_7.wrl\"\n";
    print " children [ \n";
    print "   Transform {\n";
    print "     translation -$Z[$i] $Y[$i] $X[$i]\n";
    print "     children [\n";
    print "       Shape {\n";
    print "	 appearance BRICK0 { }\n";
    print "	 geometry Sphere {radius 0.2}\n";
    print "       }\n";
    print "     ]\n";
    print "   }\n";
    print " ]\n";
    print "}\n";
    print "Anchor {\n";
    print " url \"GalleryOne_8.wrl\"\n";
    print " children [ \n";
    print "   Transform {\n";
    print "     translation -$X[$i] $Y[$i] $Z[$i]\n";
    print "     children [\n";
    print "       Shape {\n";
    print "	 appearance BRICK0 { }\n";
    print "	 geometry Sphere {radius 0.2}\n";
    print "       }\n";
    print "     ]\n";
    print "   }\n";
    print " ]\n";
    print "}\n";
    print "\n";
}