#!/bin/sh
#\
exec ${GOOD_ROOT_DIR}/bin/vr_scene $0 $*

VR_position { 0 0 8 }
VR_msg {Hello. Now you are in a little castle}

Top tg 
tg -matrix { 0.969669 -0.072809 -0.233325 0.000000 0.053624 0.994716 -0.087546 0.000000 0.238467 0.072379 0.968450 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Top t0 
t0 -father tg
t0 -matrix { 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 -2.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t0.q1 4.500000 0.500000 0.300000
t0.q1 -father t0
t0.q1 -matrix { 0.955336 -0.295520 0.000000 0.000000 0.295520 0.955336 0.000000 3.000000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t0.q1.q0 0.500000 0.500000 0.300000
t0.q1.q0 -father t0.q1
t0.q1.q0 -matrix { 1.000000 0.000000 0.000000 -1.750000 0.000000 1.000000 0.000000 0.500000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t0.q1.q1 0.500000 0.500000 0.300000
t0.q1.q1 -father t0.q1
t0.q1.q1 -matrix { 1.000000 0.000000 0.000000 -0.750000 0.000000 1.000000 0.000000 0.500000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t0.q1.q2 0.500000 0.500000 0.300000
t0.q1.q2 -father t0.q1
t0.q1.q2 -matrix { 1.000000 0.000000 0.000000 0.250000 0.000000 1.000000 0.000000 0.500000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t0.q1.q3 0.500000 0.500000 0.300000
t0.q1.q3 -father t0.q1
t0.q1.q3 -matrix { 1.000000 0.000000 0.000000 1.250000 0.000000 1.000000 0.000000 0.500000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t0.f 1.000000 2.700000 0.300000
t0.f -father t0
t0.f -matrix { 1.000000 0.000000 0.000000 -1.720000 0.000000 1.000000 0.000000 1.220000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t0.f1 1.000000 2.800000 0.300000
t0.f1 -father t0
t0.f1 -matrix { 1.000000 0.000000 0.000000 -0.720000 0.000000 1.000000 0.000000 1.400000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t0.f2 1.000000 3.000000 0.300000
t0.f2 -father t0
t0.f2 -matrix { 1.000000 0.000000 0.000000 0.220000 0.000000 1.000000 0.000000 1.500000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t0.f3a 0.700000 0.700000 0.300000
t0.f3a -father t0
t0.f3a -matrix { 1.000000 0.000000 0.000000 1.070000 0.000000 1.000000 0.000000 3.000000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t0.f3b 0.700000 1.500000 0.050000
t0.f3b -father t0
t0.f3b -matrix { 1.000000 0.000000 0.000000 1.070000 0.000000 1.000000 0.000000 2.100000 0.000000 0.000000 1.000000 0.100000 0.000000 0.000000 0.000000 1.000000 } -surface {{1.000000 1.000000 1.000000} {0.000000 0.000000 0.500000} {0.800000 0.800000 0.800000} {0.000000 0.000000 0.000000} 0.800000 1.330000 1.000000 }  
Quader t0.f3c 0.700000 1.600000 0.300000
t0.f3c -father t0
t0.f3c -matrix { 1.000000 0.000000 0.000000 1.070000 0.000000 1.000000 0.000000 0.800000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t0.f3d 0.800000 0.050000 0.400000
t0.f3d -father t0
t0.f3d -matrix { 1.000000 0.000000 0.000000 1.070000 0.000000 1.000000 0.000000 1.600000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t0.f4 0.800000 3.500000 0.300000
t0.f4 -father t0
t0.f4 -matrix { 1.000000 0.000000 0.000000 1.800000 0.000000 1.000000 0.000000 1.700000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Top t1 
t1 -father tg
t1 -matrix { 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 2.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t1.q1 4.500000 0.500000 0.300000
t1.q1 -father t1
t1.q1 -matrix { 0.955336 -0.295520 0.000000 0.000000 0.295520 0.955336 0.000000 3.000000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t1.q1.q0 0.500000 0.500000 0.300000
t1.q1.q0 -father t1.q1
t1.q1.q0 -matrix { 1.000000 0.000000 0.000000 -1.750000 0.000000 1.000000 0.000000 0.500000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t1.q1.q1 0.500000 0.500000 0.300000
t1.q1.q1 -father t1.q1
t1.q1.q1 -matrix { 1.000000 0.000000 0.000000 -0.750000 0.000000 1.000000 0.000000 0.500000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t1.q1.q2 0.500000 0.500000 0.300000
t1.q1.q2 -father t1.q1
t1.q1.q2 -matrix { 1.000000 0.000000 0.000000 0.250000 0.000000 1.000000 0.000000 0.500000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t1.q1.q3 0.500000 0.500000 0.300000
t1.q1.q3 -father t1.q1
t1.q1.q3 -matrix { 1.000000 0.000000 0.000000 1.250000 0.000000 1.000000 0.000000 0.500000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t1.f 1.000000 2.700000 0.300000
t1.f -father t1
t1.f -matrix { 1.000000 0.000000 0.000000 -1.720000 0.000000 1.000000 0.000000 1.220000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t1.f1 1.000000 0.700000 0.300000
t1.f1 -father t1
t1.f1 -matrix { 1.000000 0.000000 0.000000 -0.720000 0.000000 1.000000 0.000000 2.420000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t1.f2 1.000000 3.000000 0.300000
t1.f2 -father t1
t1.f2 -matrix { 1.000000 0.000000 0.000000 0.220000 0.000000 1.000000 0.000000 1.500000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t1.f3a 0.700000 0.700000 0.300000
t1.f3a -father t1
t1.f3a -matrix { 1.000000 0.000000 0.000000 1.070000 0.000000 1.000000 0.000000 3.000000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t1.f3b 0.700000 1.500000 0.050000
t1.f3b -father t1
t1.f3b -matrix { 1.000000 0.000000 0.000000 1.070000 0.000000 1.000000 0.000000 2.100000 0.000000 0.000000 1.000000 0.100000 0.000000 0.000000 0.000000 1.000000 } -surface {{1.000000 1.000000 1.000000} {0.000000 0.000000 0.500000} {0.800000 0.800000 0.800000} {0.000000 0.000000 0.000000} 0.800000 1.330000 1.000000 }  
Quader t1.f3c 0.700000 1.600000 0.300000
t1.f3c -father t1
t1.f3c -matrix { 1.000000 0.000000 0.000000 1.070000 0.000000 1.000000 0.000000 0.800000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t1.f3d 0.800000 0.050000 0.400000
t1.f3d -father t1
t1.f3d -matrix { 1.000000 0.000000 0.000000 1.070000 0.000000 1.000000 0.000000 1.600000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader t1.f4 0.800000 3.500000 0.300000
t1.f4 -father t1
t1.f4 -matrix { 1.000000 0.000000 0.000000 1.800000 0.000000 1.000000 0.000000 1.700000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Top to 
to -father tg
to -matrix { 1.000000 0.000000 0.000000 2.500000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 2.000000 0.000000 0.000000 0.000000 1.000000 } 
Cylinder to.cy 0.500000 4.400000 
to.cy -father to
to.cy -matrix { 1.000000 0.000000 0.000000 0.000000 0.000000 0.000796 -1.000000 2.199999 0.000000 1.000000 0.000796 -0.001752 0.000000 0.000000 0.000000 1.000000 } 
Cone to.cy.co 1.000000 0.800000 
to.cy.co -father to.cy
to.cy.co -matrix { 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 -2.950000 0.000000 0.000000 0.000000 1.000000 } -surface {{1.000000 1.000000 1.000000} {1.000000 0.000000 0.000000} {0.000000 0.000000 0.000000} {0.000000 0.000000 0.000000} 0.000000 1.000000 1.000000 }  
Quader ql 0.300000 2.700000 4.000000
ql -father tg
ql -matrix { 1.000000 0.000000 0.000000 -2.000000 0.000000 1.000000 0.000000 1.350000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader qr 0.300000 4.000000 4.000000
qr -father tg
qr -matrix { 1.000000 0.000000 0.000000 2.200000 0.000000 1.000000 0.000000 2.000000 0.000000 0.000000 1.000000 0.000000 0.000000 0.000000 0.000000 1.000000 } 
Quader gr 7.000000 0.100000 7.000000
gr -box 1 -matrix { 0.963123 -0.200482 -0.179449 -0.060000 0.168901 0.969648 -0.176792 -0.736667 0.209446 0.139963 0.967751 0.000000 0.000000 0.000000 0.000000 1.000000 } -surface {{1.000000 1.000000 1.000000} {0.500000 0.800000 -0.200000} {0.000000 0.000000 0.000000} {0.000000 0.000000 0.000000} 0.000000 1.000000 1.000000 }  
PixmapDisplay d1 600 600 
d1 -doublebuffer
PointLight pl1 
pl1 -origin { 5.000000 5.000000 5.000000 }   -color {1.000000 1.000000 1.000000} 
PointLight pl2 
pl2 -origin { 0.000000 10.000000 0.000000 }   -color {1.000000 1.000000 0.000000} 
sc -background {0.000000 0.000000 0.000000}  -insert tg gr pl1 pl2 

