# $Author: lewkiw $ 
# $Date: 2002-04-01 17:03:07+12 $ 
# $Id: global.cmd,v 1.5 2002-04-01 17:03:07+12 lewkiw Exp $
# $Locker:  $ 
# $Log: global.cmd,v $
# 
# Rev 1.7
# Now works in Houdini 8.X
# Fixed enable/disenable shadow map creation bug
#
# Rev 1.6
# You can now add multiple key lights
# Fixed bug in key light light shader so that dimmer in light at obj level now works
# Added $F to filename in all lights
# 
# Revision 1.5  2002-04-01 17:03:07+12  lewkiw
# Added support for by-passing shadow map creation.
#
# Revision 1.4  2002-03-15 14:35:18+13  lewkiw
# Fixed bug that would put key light shadow maps in /tmp instead of correct place depending on operating system.
#
# Revision 1.3  2002-02-08 11:54:27+13  lewkiw
# Added support for keylight.
# Added NoOp add SOP to G_dome so it won't render.
#
# Revision 1.2  2002-02-07 17:51:13+13  lewkiw
# Removed "always on top" as it did weird things with the tk_optionMenu
# More help
# Auto detection of operating system
# Option to add all the lights in one shot
# Options to set light resolution or the autogen setting
#
# Revision 1.1  2002-02-07 13:14:12+13  lewkiw
# Initial revision
#

# USAGE: global.cmd action incr_no platform resolution shadow_gen_setting

objparent off
opcf /obj

set INIT = $arg1
set INCR = $arg2
set PLAT = $arg3
set RES  = $arg4
set GEN  = $arg5

if ($GEN == "closest") then
	set AUTOGEN = near
else if ($GEN == "midpoint") then
	set AUTOGEN = on
else
	set AUTOGEN = far
endif



# Toggling Shadow Map Creation
if ($INIT == "shad_on") then
	echo enable
	opcf /obj
	objparent off
	set LIST_LIGHTS = `execute("opls -d G_*light*")`
	foreach i ($LIST_LIGHTS)
		 opparm $i autogen ( $AUTOGEN )
	end
	
	set -u LIST_LIGHTS
	exit
endif

# Toggling Shadow Map Creation
if ($INIT == "shad_disable") then
	echo dis
	opcf /obj
	objparent off
	set LIST_LIGHTS = `execute("opls -d G_*light*")`
	foreach i ($LIST_LIGHTS)
		 opparm $i autogen ( off )
	end
	
	set -u LIST_LIGHTS
	exit
endif

# Adding a key light
if ($INIT == "key") then

	set KEYPIC = "${PLAT}${KEY}.\${F}.pic"

	opcf /obj
	objparent off
	#---------------
	# G_KEYlight
	#---------------

	
	# Node ${KEY}
	set KEY = `run("opadd -n -v light G_KEYlight1")`
  	
	oplocate -x 4.68539 -y 2.10449 ${KEY}
	chadd -f 1 $FEND ${KEY} resx
	chkey -f 1 -v 64 -m 0 -a 1 -F 'ch("/obj/G_light0/resx")' ${KEY}/resx
	chkey -f $FEND -v 64 -m 0 -a 1 ${KEY}/resx
	chadd -f 1 $FEND ${KEY} resy
	chkey -f 1 -v 64 -m 0 -a 1 -F 'ch("/obj/G_light0/resy")' ${KEY}/resy
	chkey -f $FEND -v 64 -m 0 -a 1 ${KEY}/resy
	chadd -f 1 $FEND ${KEY} copframe
	chkey -f 1 -v 0 -m 0 -a 1 -F '$F' ${KEY}/copframe
	chkey -f $FEND -v 0 -m 0 -a 1 ${KEY}/copframe
        opparm ${KEY} t ( 0 0 2 )
	opparm ${KEY} lookat ( G_lookat ) c ( 0.3 0.3 0.3 ) dimmer ( 1 ) spread ( 3 ) 
	opparm ${KEY} autogen ( $AUTOGEN ) 
	opparm ${KEY} depthmap ( ${KEYPIC} ) shader ( "" ) 
	opparm ${KEY} shop_light ( ${KEY} ) shop_shadow ( ${KEY}shad ) 
	opparm ${KEY} specular ( off ) aperture ( 41.4214 ) far ( 2 ) copframe ( copframe )
	opcolor -c 0.4 1 1 ${KEY}
	opset -d on -r off -h off -f off -y off -t off -l off -s off -u off -c off -C on -p off -e on -b off -S on ${KEY}
	opcf ${KEY}

	# Node tube1
	opadd -n tube tube1
	oplocate -x 2.20952 -y 2.79048 tube1
	chadd -f 1 $FEND tube1 tz
	chkey -f 1 -v 0 -m 0 -a 1 -F '-ch("height")*.5' tube1/tz
	chkey -f $FEND -v 0.5 -m 0 -a 1 tube1/tz
	chadd -f 1 $FEND tube1 rad2
	chkey -f 1 -v 1 -m 0 -a 1 -F 'ch("height")*if(ch("../coneangle")>90,1,tan(ch("../coneangle")*.5))' tube1/rad2
	chkey -f $FEND -v 0.5 -m 0 -a 1 tube1/rad2
	opparm tube1 orient ( z ) t ( 0 0 tz ) rad ( 0.01 rad2 ) height ( 0.5 )
	opset -d off -r off -h off -f off -y off -t off -l off -s off -u off -c off -C on -p off -e on -b off tube1

	# Node grid1
	opadd -n grid grid1
	oplocate -x 0.709524 -y 2.79048 grid1
	opparm grid1 size ( 0.03 0.5 ) t ( 0 0.25 0 ) rows ( 2 ) cols ( 2 )
	opset -d off -r off -h off -f off -y off -t off -l off -s off -u off -c off -C off -p off -e on -b off grid1

	# Node merge1
	opadd -n merge merge1
	oplocate -x 1.54762 -y 1.75238 merge1
	opset -d on -r on -h off -f off -y off -t off -l off -s off -u off -c off -C off -p off -e on -b off merge1
	opcf ..

	opcf /obj
	opcf ${KEY}
	opwire -n grid1 -0 merge1
	opwire -n tube1 -1 merge1

	#---------------
	# G_${KEY}
	#---------------
	opcf /
	opcf shop
	

	# Node ${KEY}
	opadd -n v_asadlight ${KEY}
	oplocate -x 5.32185 -y 1.73335 ${KEY}

	chadd -f 1 $FEND ${KEY} lightcolorr
	chkey -f 1 -v 1 -m 0 -a 1 -F "ch(\"/obj/${KEY}/cg\") * ch(\"/obj/${KEY}/dimmer\")" ${KEY}/lightcolorr
	chkey -f $FEND -v 1 -m 0 -a 1 ${KEY}/lightcolorr

	chadd -f 1 $FEND ${KEY} lightcolorg
	chkey -f 1 -v 1 -m 0 -a 1 -F "ch(\"/obj/${KEY}/cg\") * ch(\"/obj/${KEY}/dimmer\")" ${KEY}/lightcolorg
	chkey -f $FEND -v 1 -m 0 -a 1 ${KEY}/lightcolorg

	chadd -f 1 $FEND ${KEY} lightcolorb
	chkey -f 1 -v 1 -m 0 -a 1 -F "ch(\"/obj/${KEY}/cb\") * ch(\"/obj/${KEY}/dimmer\")" ${KEY}/lightcolorb
	chkey -f $FEND -v 1 -m 0 -a 1 ${KEY}/lightcolorb
	
	#opparm ${KEY} lightcolor ( lightcolorr lightcolorg lightcolorb )
	opcolor -c 0.4 1 1 ${KEY}
	opset -d off -r off -h off -f off -y off -t off -l off -s off -u off -c off -C off -p off -e on -b off ${KEY}

	opcf /shop

	#---------------
	# G_rayshadowKEY 
	#---------------

	#oprm -f ${KEY}shad

	# Node ${KEY}shad
	opadd -n v_rayshadow ${KEY}shad
	oplocate -x 4.04894 -y 2.52059 ${KEY}shad
	chadd -f 1 $FEND ${KEY}shad quality
	chkey -f 1 -v 1 -m 0 -a 1 -F 'ch(\'/shop/G_rayshadow0/quality\')' ${KEY}shad/quality
	chkey -f $FEND -v 1 -m 0 -a 1 ${KEY}shad/quality
	chadd -f 1 $FEND ${KEY}shad bias
	chkey -f 1 -v 0.05 -m 0 -a 1 -F 'ch(\'/shop/G_rayshadow0/bias\')' ${KEY}shad/bias
	chkey -f $FEND -v 0.05 -m 0 -a 1 ${KEY}shad/bias
	opparm ${KEY}shad shadowtype ( zdepth ) shadowI ( 2 ) 
	opparm ${KEY}shad map ( ${KEYPIC} ) spread ( 4 )
	opcolor -c 0.4 1 1 ${KEY}shad
	opset -d off -r off -h off -f off -y off -t off -l off -s off -u off -c off -C off -p off -e on -b off ${KEY}shad

	opcf /obj
	
	exit
endif




if ($GEN == "closest") then
	set AUTOGEN = near
else if ($GEN == "midpoint") then
	set AUTOGEN = on
else
	set AUTOGEN = far
endif


if ( $INIT == "init" || $INIT == 1 ) then

	echo "Initializing"

	set LIGHTPIC = "${PLAT}\`opdigits(\".\")\`.\$F.pic"
	
	# Set up -------------------------

	# Node G_dome
	opadd -n geo G_dome
	oplocate -x 0.00943947 -y 4.30339 G_dome
	opparm G_dome picking ( off )
	opset -d on -r off -t off -l off -s off -u off -c off -C on -p on -e on -b off G_dome
	opcf G_dome

	# Node sphere1
	opadd -n sphere sphere1
	oplocate -x 1.56667 -y 3.57143 sphere1
	opparm sphere1 type ( poly ) rad ( 8 8 8 )
	opset -d off -r off -t off -l off -s off -u off -c off -C on -p on -e on -b off sphere1

	# Node clip1
	opadd -n clip clip1
	oplocate -x 1.56667 -y 2.45714 clip1
	opset -d off -r off -t off -l off -s off -u off -c off -C off -p off -e on -b off clip1

	# Node OUT
	opadd -n add OUT
	oplocate -x 1.56667 -y 0.22857 OUT
	opset -d off -r off -t off -l off -s off -u off -c off -C off -p off -e on -b off OUT

	# Node random_color
	opadd -n point random_color
	oplocate -x 0 -y 1.3619 random_color
	chkey -f 1 -v 1 -m 0 -a 1 -F 'rand($PT)' random_color/diffb
	chkey -f $FEND -v 1 -m 0 -a 1 random_color/diffb
	chadd -f 1 $FEND random_color diffg
	chkey -f 1 -v 1 -m 0 -a 1 -F 'rand($PT*.02)' random_color/diffg
	chkey -f $FEND -v 1 -m 0 -a 1 random_color/diffg
	chadd -f 1 $FEND random_color diffr
	chkey -f 1 -v 1 -m 0 -a 1 -F 'rand($PT*.01)' random_color/diffr
	chkey -f $FEND -v 1 -m 0 -a 1 random_color/diffr
	opparm random_color weight ( weight ) doclr ( on ) diff ( diffr diffg diffb ) alpha ( alpha ) tension ( tension ) springk ( springk ) pscale ( pscale )
	opset -d on -r off -t off -l off -s off -u off -c off -C off -p off -e on -b off random_color

	# Node constant_color
	opadd -n point constant_color
	oplocate -x 3 -y 1.39048 constant_color
	opparm constant_color weight ( weight ) doclr ( on ) diff ( 0.6 0.6 0.6 ) alpha ( alpha ) tension ( tension ) springk ( springk ) pscale ( pscale )
	opset -d off -r off -t off -l off -s off -u off -c off -C off -p off -e on -b off constant_color
	
	# Node image_sphere
	opadd -n sphere image_sphere
	oplocate -x 5 -y 3.60105 image_sphere
	opparm image_sphere type ( nurbs ) rad ( 8 8 8 ) rows ( 25 ) cols ( 25 )
	opset -d off -r off -t off -l off -s off -u off -c off -C on -p off -e on -b off image_sphere
	opcf /obj/G_dome

	# Node image_tex
	opadd -n texture image_tex
	oplocate -x 5 -y 2.79591 image_tex
	opparm image_tex type ( suniform )
	opset -d off -r off -t off -l off -s off -u off -c off -C off -p off -e on -b off image_tex
	opcf /obj/G_dome

	# Node image_map_OLDCOPS
	opadd -n point image_map_OLDCOPS
	oplocate -x 5 -y 1.20663 image_map_OLDCOPS
	chkey -f 1 -v 1 -m 0 -a 1 -F 'pic("/img/G_maps/OUT", $MAPU, $MAPV, D_CB)' image_map_OLDCOPS/diffb
	chkey -f $FEND -v 1 -m 0 -a 1 image_map_OLDCOPS/diffb
	chadd -f 1 $FEND image_map_OLDCOPS diffg
	chkey -f 1 -v 1 -m 0 -a 1 -F 'pic("/img/G_maps/OUT", $MAPU, $MAPV, D_CG)' image_map_OLDCOPS/diffg
	chkey -f $FEND -v 1 -m 0 -a 1 image_map_OLDCOPS/diffg
	chadd -f 1 $FEND image_map_OLDCOPS diffr
	chkey -f 1 -v 1 -m 0 -a 1 -F 'pic("/img/G_maps/OUT", $MAPU, $MAPV, D_CR)' image_map_OLDCOPS/diffr
	chkey -f $FEND -v 1 -m 0 -a 1 image_map_OLDCOPS/diffr
	opparm image_map_OLDCOPS t ( tx ty tz ) doclr ( on ) diff ( diffr diffg diffb ) alpha ( alpha ) tension ( tension ) springk ( springk ) pscale ( pscale )
	opset -d off -r off -t off -l off -s off -u off -c off -C off -p off -e on -b off image_map_OLDCOPS
	opcomment -c 'Use with OLD COPS.  Do not use if using HDR images. ' image_map_OLDCOPS
	
	opcf /obj/G_dome

	# Node image_map_NEWCOPS
	opadd -n point image_map_NEWCOPS
	oplocate -x 8 -y 1.20663 image_map_NEWCOPS
	chkey -f 1 -v 1 -m 0 -a 1 -F 'pic("/img/G_maps/OUT", $MAPU, $MAPV, D_CB)' image_map_NEWCOPS/diffb
	chkey -f $FEND -v 1 -m 0 -a 1 image_map_NEWCOPS/diffb
	chadd -f 1 $FEND image_map_NEWCOPS diffg
	chkey -f 1 -v 1 -m 0 -a 1 -F 'pic("/img/G_maps/OUT", $MAPU, $MAPV, D_CG)' image_map_NEWCOPS/diffg
	chkey -f $FEND -v 1 -m 0 -a 1 image_map_NEWCOPS/diffg
	chadd -f 1 $FEND image_map_NEWCOPS diffr
	chkey -f 1 -v 1 -m 0 -a 1 -F 'pic("/img/G_maps/OUT", $MAPU, $MAPV, D_CR)' image_map_NEWCOPS/diffr
	chkey -f $FEND -v 1 -m 0 -a 1 image_map_NEWCOPS/diffr
	opparm image_map_NEWCOPS t ( tx ty tz ) doclr ( on ) diff ( diffr diffg diffb ) alpha ( alpha ) tension ( tension ) springk ( springk ) pscale ( pscale )
	opset -d off -r off -t off -l off -s off -u off -c off -C off -p off -e on -b off image_map_NEWCOPS
	opcomment -c 'Use with COPS II.  Use if using HDR images.  Note that non-square images will crash some early versions of H5.5.' image_map_NEWCOPS
	opcf /obj/G_dome

	# Node image_carve
	opadd -n carve image_carve
	oplocate -x 5 -y 2.02577 image_carve
	opparm image_carve firstu ( off ) firstv ( on ) domainv1 ( 0.5 )
	opset -d off -r off -t off -l off -s off -u off -c off -C off -p off -e on -b off image_carve
	
	# Node RENDER
	opadd -n add RENDER
	oplocate -x 3.5 -y 0.22857 RENDER
	opset -d off -r on -t off -l off -s off -u off -c off -C off -p off -e on -b off RENDER

	opwire image_sphere -0 image_tex
	opwire image_carve -0 image_map_OLDCOPS
	opwire image_carve -0 image_map_NEWCOPS
	opwire image_tex -0 image_carve

	opwire sphere1 -0 clip1
	opwire random_color -0 OUT
	opwire clip1 -0 random_color
	opwire clip1 -0 constant_color

	opcf /obj
	
	# Add a G_lookat -------------------------------

	# Node G_lookat
	opadd -n null G_lookat
	oplocate -x 0.00943947 -y 3.87225 G_lookat
	opparm G_lookat dcolor ( 0 0.75 0 ) picking ( off )
	opset -d on -r off -t off -l off -s off -u off -c off -C off -p off -e on -b off G_lookat
	opcf G_lookat

	# Node cross1
	opadd -n file cross1
	oplocate -x 0.5 -y 1 cross1
	opparm cross1 file ( '$HH/geo/defnull.bgeo' )
	opset -d on -r off -t off -l off -s off -u off -c off -C on -p off -e on -b off cross1

	# Node point1
	opadd -n add point1
	oplocate -x 2.5 -y 1 point1
	opparm point1 usept0 ( on )
	opset -d off -r on -t off -l off -s off -u off -c off -C off -p off -e on -b off point1
	

	# Add Master Light -----------------------------------------
	
	opcf /obj

	# Node G_light0
	opadd -n light G_light0
	oplocate -x 0.463223 -y 3.22551 G_light0
	chadd -f 1 $FEND G_light0 tz
	chkey -f 1 -v 0.241633 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "P", 2)' G_light0/tz
	chkey -f $FEND -v 0.241633 -m 0 -a 1 G_light0/tz
	chadd -f 1 $FEND G_light0 ty
	chkey -f 1 -v 0.241633 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "P", 1)' G_light0/ty
	chkey -f $FEND -v 0.241633 -m 0 -a 1 G_light0/ty
	chadd -f 1 $FEND G_light0 tx
	chkey -f 1 -v 0.241633 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "P", 0)' G_light0/tx
	chkey -f $FEND -v 0.241633 -m 0 -a 1 G_light0/tx
	chadd -f 1 $FEND G_light0 cb
	chkey -f 1 -v 0.613 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "Cd", 2)' G_light0/cb
	chkey -f $FEND -v 0.8 -m 0 -a 1 G_light0/cb
	chadd -f 1 $FEND G_light0 cg
	chkey -f 1 -v 0.613 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "Cd", 1)' G_light0/cg
	chkey -f $FEND -v 0.8 -m 0 -a 1 G_light0/cg
	chadd -f 1 $FEND G_light0 cr
	chkey -f 1 -v 0.613 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "Cd", 0)' G_light0/cr
	chkey -f $FEND -v 0.8 -m 0 -a 1 G_light0/cr
	chadd -f 1 $FEND G_light0 copframe
	chkey -f 1 -v 0 -m 0 -a 1 -F '$F' G_light0/copframe
	chkey -f $FEND -v 0 -m 0 -a 1 G_light0/copframe
	opparm G_light0 stdswitcher ( 3 3 3 3 3 3 ) t ( tx ty tz ) lookat ( G_lookat ) c ( cr cg cb ) dimmer ( 0.197 ) spread ( 3 )  depthmap ( ${LIGHTPIC} ) shader ( "" ) shop_light ( 'G_light`opdigits(".")`' ) shop_shadow ( 'G_rayshadow`opdigits(".")`' ) specular ( off ) res ( $RES $RES ) aperture ( 41.4214 ) picking ( off ) copframe ( copframe )
	opparm G_light0 autogen ( $AUTOGEN )
	
	opcolor -c 1 0.4 0.4 G_light0
	opset -d on -r off -t off -l off -s off -u off -c off -C off -p off -e on -b off G_light0
	opcf G_light0

	# Node tube1
	opadd -n tube tube1
	oplocate -x 2.20952 -y 2.79048 tube1
	chadd -f 1 $FEND tube1 rad2
	chkey -f 1 -v 1 -m 0 -a 1 -F 'ch("height")*if(ch("../coneangle")>90,1,tan(ch("../coneangle")*.5))' tube1/rad2
	chkey -f $FEND -v 0.5 -m 0 -a 1 tube1/rad2
	chadd -f 1 $FEND tube1 tz
	chkey -f 1 -v 0 -m 0 -a 1 -F '-ch("height")*.5' tube1/tz
	chkey -f $FEND -v 0.5 -m 0 -a 1 tube1/tz
	opparm tube1 orient ( z ) t ( 0 0 tz ) rad ( 0.01 rad2 ) height ( 0.5 )
	opset -d off -r off -t off -l off -s off -u off -c off -C on -p off -e on -b off tube1

	# Node grid1
	opadd -n grid grid1
	oplocate -x 0.709524 -y 2.79048 grid1
	opparm grid1 size ( 0.03 0.5 ) t ( 0 0.25 0 ) rows ( 2 ) cols ( 2 )
	opset -d off -r off -t off -l off -s off -u off -c off -C off -p off -e on -b off grid1

	# Node merge1
	opadd -n merge merge1
	oplocate -x 1.54762 -y 1.75238 merge1
	opset -d on -r on -t off -l off -s off -u off -c off -C off -p off -e on -b off merge1

	opwire grid1 -0 merge1
	opwire tube1 -1 merge1

	# Wire the lookat to the dome.
	opcf /obj
	opwire G_dome -0 G_lookat

	# Add Master SHOPs  --------------------------

	opcf /shop

	# Node G_light0
	opadd -n v_asadlight G_light0
	oplocate -x 3.08218 -y 2.39993 G_light0
	chadd -f 1 $FEND G_light0 lightcolorb
	chkey -f 1 -v 1 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "Cd", 2)*ch("/obj/G_light0/dimmer")' G_light0/lightcolorb
	chkey -f $FEND -v 1 -m 0 -a 1 G_light0/lightcolorb
	chadd -f 1 $FEND G_light0 lightcolorg
	chkey -f 1 -v 1 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "Cd", 1)*ch("/obj/G_light0/dimmer")' G_light0/lightcolorg
	chkey -f $FEND -v 1 -m 0 -a 1 G_light0/lightcolorg
	chadd -f 1 $FEND G_light0 lightcolorr
	chkey -f 1 -v 1 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "Cd", 0)*(ch("/obj/G_light0/dimmer"))' G_light0/lightcolorr
	chkey -f $FEND -v 1 -m 0 -a 1 G_light0/lightcolorr
	opparm G_light0 lightcolor ( lightcolorr lightcolorg lightcolorb )
	opcolor -c 1 0.4 0.4 G_light0
	opset -d off -r off -t off -l off -s off -u off -c off -C off -p off -e on -b off G_light0

	# Node G_rayshadow0
	opadd -n v_rayshadow G_rayshadow0
	oplocate -x 1.80927 -y 3.18717 G_rayshadow0
	opparm G_rayshadow0 shadowtype ( zdepth ) map ( ${LIGHTPIC} ) spread ( 20 )
	opcolor -c 1 0.4 0.4 G_rayshadow0
	opset -d off -r off -t off -l off -s off -u off -c off -C on -p on -e on -b off G_rayshadow0
	
	# Add image map COMP
	
	opcf /img

	# Node G_maps
	opadd -n img G_maps
	oplocate -x 0 -y 0 G_maps
	opset -d off -r off -t off -l off -s off -u off -c off -C on -p on -e on -b off G_maps
	opcolor -c 1 0.4 0.4 G_maps
	opcf G_maps

	# Node file_in
	opadd -n file file_in
	oplocate -x 0.933334 -y 0.552381 file_in
	opparm file_in source ( '$HIS/pic/Mandril.pic' ) size ( 256 256 )
	opset -d on -r on -t off -l off -s off -u off -c on -C on -p on -e on -b off file_in

	# Node OUT
	opadd -n bright OUT
	oplocate -x 2.9381 -y 0.471428 OUT
	opparm OUT bright ( 1.55 )
	opset -d off -r off -t off -l off -s off -u on -c on -C off -p off -e on -b off OUT

	opwire file_in -0 OUT
	
	opcf /obj
	
else 

	
   if ( $INIT == "add" ) then
		echo "Adding light $INCR ....."
		set NPOINTS = $INCR
   endif
	
   if ($INIT == "all" ) then
		echo "Populating entire dome....."
		set  NPOINTS = `npoints("/obj/G_dome/OUT")`
		set  INCR = 1
   endif
	
   	
   while ( $INCR <= $NPOINTS )
	
	echo $INCR
	set LIGHTPIC = "${PLAT}\`opdigits(\".\")\`.\$F.pic"

	# Add any subsequent copies
	opcf /shop

	# Node G_rayshadow${INCR}
	opadd -n v_rayshadow G_rayshadow${INCR}
	oplocate -x 2.30927 -y 2.88717 G_rayshadow${INCR}
	chadd -f 1 $FEND G_rayshadow${INCR} bias
	chkey -f 1 -v 0.05 -m 0 -a 1 -F 'ch(\'/shop/G_rayshadow0/bias\')' G_rayshadow${INCR}/bias
	chkey -f $FEND -v 0.05 -m 0 -a 1 G_rayshadow${INCR}/bias
	chadd -f 1 $FEND G_rayshadow${INCR} shadowI
	chkey -f 1 -v 1 -m 0 -a 1 -F 'ch(\'/shop/G_rayshadow0/shadowI\')' G_rayshadow${INCR}/shadowI
	chkey -f $FEND -v 1 -m 0 -a 1 G_rayshadow${INCR}/shadowI
	chadd -f 1 $FEND G_rayshadow${INCR} spread
	chkey -f 1 -v 20 -m 0 -a 1 -F 'ch(\'/shop/G_rayshadow0/spread\')' G_rayshadow${INCR}/spread
	chkey -f $FEND -v 20 -m 0 -a 1 G_rayshadow${INCR}/spread

	chadd -f 1 $FEND G_rayshadow${INCR} quality
	chkey -f 1 -v 1 -m 0 -a 1 -F 'ch(\'/shop/G_rayshadow0/quality\')' G_rayshadow${INCR}/quality
	chkey -f $FEND -v 1 -m 0 -a 1 G_rayshadow${INCR}/quality

	chadd -f 1 $FEND G_rayshadow${INCR} fog_factor
	chkey -f 1 -v 1 -m 0 -a 1 -F 'ch(\'/shop/G_rayshadow0/fog_factor\')' G_rayshadow${INCR}/fog_factor
	chkey -f $FEND -v 1 -m 0 -a 1 G_rayshadow${INCR}/fog_factor

	opparm G_rayshadow${INCR} shadowtype ( zdepth ) map ( ${LIGHTPIC} ) spread ( spread )
	opcolor -c 1 0.8 0.8 G_rayshadow${INCR}
	opset -d off -r off -t off -l off -s off -u off -c off -C off -p off -e on -b off v_rayshadow



	# Node G_light${INCR}
	opadd -n v_asadlight G_light${INCR}
	oplocate -x 3.58218 -y 2.09993 G_light${INCR}
	chadd -f 1 $FEND G_light${INCR} lightcolorb
	chkey -f 1 -v 1 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "Cd", 2)*ch("/obj/G_light0/dimmer")' G_light${INCR}/lightcolorb
	chkey -f $FEND -v 1 -m 0 -a 1 G_light${INCR}/lightcolorb
	chadd -f 1 $FEND G_light${INCR} lightcolorg
	chkey -f 1 -v 1 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "Cd", 1)*ch("/obj/G_light0/dimmer")' G_light${INCR}/lightcolorg
	chkey -f $FEND -v 1 -m 0 -a 1 G_light${INCR}/lightcolorg
	chadd -f 1 $FEND G_light${INCR} lightcolorr
	chkey -f 1 -v 1 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "Cd", 0)*(ch("/obj/G_light0/dimmer"))' G_light${INCR}/lightcolorr
	chkey -f $FEND -v 1 -m 0 -a 1 G_light${INCR}/lightcolorr
	opparm G_light${INCR} lightcolor ( lightcolorr lightcolorg lightcolorb )
	opcolor -c 1 0.8 0.8 G_light${INCR}
	opset -d off -r off -t off -l off -s off -u off -c off -C off -p off -e on -b off G_light${INCR}


	opcf /obj

	# Node G_light${INCR}
	opadd -n light G_light${INCR}
	oplocate -x 0.963223 -y 2.92552 G_light${INCR}
	chadd -f 1 $FEND G_light${INCR} resy
	chkey -f 1 -v 64 -m 0 -a 1 -F 'ch("/obj/G_light0/resy")' G_light${INCR}/resy
	chkey -f $FEND -v 64 -m 0 -a 1 G_light${INCR}/resy
	chadd -f 1 $FEND G_light${INCR} resx
	chkey -f 1 -v 64 -m 0 -a 1 -F 'ch("/obj/G_light0/resx")' G_light${INCR}/resx
	chkey -f $FEND -v 64 -m 0 -a 1 G_light${INCR}/resx
	chadd -f 1 $FEND G_light${INCR} dimmer
	chkey -f 1 -v 0.197 -m 0 -a 1 -F 'ch("/obj/G_light0/dimmer")' G_light${INCR}/dimmer
	chkey -f $FEND -v 0.197 -m 0 -a 1 G_light${INCR}/dimmer
	chadd -f 1 $FEND G_light${INCR} tz
	chkey -f 1 -v 0.241633 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "P", 2)' G_light${INCR}/tz
	chkey -f $FEND -v 0.241633 -m 0 -a 1 G_light${INCR}/tz
	chadd -f 1 $FEND G_light${INCR} ty
	chkey -f 1 -v 0.241633 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "P", 1)' G_light${INCR}/ty
	chkey -f $FEND -v 0.241633 -m 0 -a 1 G_light${INCR}/ty
	chadd -f 1 $FEND G_light${INCR} tx
	chkey -f 1 -v 0.241633 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "P", 0)' G_light${INCR}/tx
	chkey -f $FEND -v 0.241633 -m 0 -a 1 G_light${INCR}/tx
	chadd -f 1 $FEND G_light${INCR} cb
	chkey -f 1 -v 0.613 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "Cd", 2)' G_light${INCR}/cb
	chkey -f $FEND -v 0.8 -m 0 -a 1 G_light${INCR}/cb
	chadd -f 1 $FEND G_light${INCR} cg
	chkey -f 1 -v 0.613 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "Cd", 1)' G_light${INCR}/cg
	chkey -f $FEND -v 0.8 -m 0 -a 1 G_light${INCR}/cg
	chadd -f 1 $FEND G_light${INCR} cr
	chkey -f 1 -v 0.613 -m 0 -a 1 -F 'point("/obj/G_dome/OUT", opdigits("."), "Cd", 0)' G_light${INCR}/cr
	chkey -f $FEND -v 0.8 -m 0 -a 1 G_light${INCR}/cr
	chadd -f 1 $FEND G_light${INCR} copframe
	chkey -f 1 -v 0 -m 0 -a 1 -F '$F' G_light${INCR}/copframe
	chkey -f $FEND -v 0 -m 0 -a 1 G_light${INCR}/copframe
	
	chadd -f 1 $FEND G_light${INCR} near
	chkey -f 1 -v 0 -m 0 -a 1 -F 'ch("/obj/G_light0/near")' G_light${INCR}/near
	chkey -f $FEND -v 0 -m 0 -a 1 G_light${INCR}/near
	
	chadd -f 1 $FEND G_light${INCR} far
	chkey -f 1 -v 0 -m 0 -a 1 -F 'ch("/obj/G_light0/far")' G_light${INCR}/far
	chkey -f $FEND -v 0 -m 0 -a 1 G_light${INCR}/far
	
	
	opparm G_light${INCR} t ( tx ty tz ) lookat ( G_lookat ) c ( cr cg cb ) dimmer ( dimmer ) spread ( 3 )  depthmap ( ${LIGHTPIC} ) shader ( "" ) shop_light ( 'G_light`opdigits(".")`' ) shop_shadow ( 'G_rayshadow`opdigits(".")`' ) specular ( off ) res ( resx resy ) aperture ( 41.4214 ) picking ( off ) copframe ( copframe )
	opparm G_light${INCR} autogen ( $AUTOGEN )
	
	opset -d on -r off -t off -l off -s off -u off -c off -C off -p off -e on -b off G_light${INCR}
	opcolor -c 1 0.8 0.8 G_light${INCR}
	opcf G_light${INCR}

	# Node tube1
	opadd -n tube tube1
	oplocate -x 2.20952 -y 2.79048 tube1
	chadd -f 1 $FEND tube1 rad2
	chkey -f 1 -v 1 -m 0 -a 1 -F 'ch("height")*if(ch("../coneangle")>90,1,tan(ch("../coneangle")*.5))' tube1/rad2
	chkey -f $FEND -v 0.5 -m 0 -a 1 tube1/rad2
	chadd -f 1 $FEND tube1 tz
	chkey -f 1 -v 0 -m 0 -a 1 -F '-ch("height")*.5' tube1/tz
	chkey -f $FEND -v 0.5 -m 0 -a 1 tube1/tz
	opparm tube1 orient ( z ) t ( 0 0 tz ) rad ( 0.01 rad2 ) height ( 0.5 )
	opset -d off -r off -t off -l off -s off -u off -c off -C on -p off -e on -b off tube1

	# Node grid1
	opadd -n grid grid1
	oplocate -x 0.709524 -y 2.79048 grid1
	opparm grid1 size ( 0.03 0.5 ) t ( 0 0.25 0 ) rows ( 2 ) cols ( 2 )
	opset -d off -r off -t off -l off -s off -u off -c off -C off -p off -e on -b off grid1

	# Node merge1
	opadd -n merge merge1
	oplocate -x 1.54762 -y 1.75238 merge1
	opset -d on -r on -t off -l off -s off -u off -c off -C off -p off -e on -b off merge1

	opwire grid1 -0 merge1
	opwire tube1 -1 merge1
	
	opcf /obj
	
	
	set INCR = `$INCR + 1`
   end

endif

opcf /obj