(progn
  (merge-baseap {
	lighting {
		ambient .4 .4 .4
		replacelights		# Turn off all default geomview lights

		attenconst 0		# attenconst & attenmult affect GL;
		attenmult  .5		# this is used by spherical shader
					# to model exponential falloff

		attenmult2  1.0		# software shading uses this is a
					# minimum of distance from light

		light {
		    color 1 1 1
		    position  0 0 0 1	# Light is at origin...
		    location camera	# in camera coordinates
		}
		light {
		    color 1 .5 .5
		    position  .25 .25 0 .7	# Light is at origin...
		    location camera	# in camera coordinates
		}
	}
  })

  (camera Camera { fov 60 })		# Force window to be created
  (space spherical)
  (backcolor allcams .1 .1 .1)
  (geometry 120.dgp < groups/120.dgp)
)

(sleep-for 1)
(echo "\nEnabling software shading\n")

(rawevent 118  0 0 0 0)  (rawevent 126  0 0 0 0)  # v~  enables software shading
