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

		attenconst 0		# attenconst & attenmult affect GL;
		attenmult  .5		# these settings cause 1/r falloff


		attenmult2  1.3		# software shading uses 1/r^2 falloff,
					# with a light "area" (minimum r^2) of
					# attenmult2.

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

  (camera Camera { fov 60 })		# Force window to be created
  (backcolor allcams .15 .15 .15)
  (geometry 3torus.dgp < groups/3torus.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
