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

		attenconst 0		# attenconst & attenmult affect GL;
		attenmult  0.25		# this is used by hyperbolic shader
		attenconst 1.0
		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 1	# Light is at origin...
		    location camera	# in camera coordinates
		}
	}
  })

  (camera Camera { fov 60 })		# Force window to be created
  (space hyperbolic)
  (backcolor allcams .1 .1 .1)
  (geometry borrom4.dgp  { =
DISCGRP
(group borrom4 )
(comment "  This is a test of the new discrete group library.  " )
(attribute Hyperbolic )
(display centercam )
(display zcull )
(enumdepth 2 )
(enumdist 10.0 )
(dimn 3 )
(ngens 12 )
(wafile borrom4.wa)
(gens
 a
-1.618033988749887   1.618033988749892    0    -2.058171027271484

-1.618033988749893   0                    0    -1.272019649514066

0                    0                    1.   0

2.058171027271483    -1.272019649514065   0    2.618033988749887
 d
-1.618033988749887   1.618033988749892   0    2.058171027271484

-1.618033988749893   0                   0    1.272019649514066

0                    0                   1.   0

-2.058171027271483   1.272019649514065   0    2.618033988749887
 b
1.   0                    0                    0

0    -1.618033988749886   1.618033988749892    -2.058171027271483

0    -1.618033988749892   0                    -1.272019649514065

0    2.058171027271483    -1.272019649514066   2.618033988749886
 e
1.   0                    0                   0

0    -1.618033988749886   1.618033988749892   2.058171027271483

0    -1.618033988749892   0                   1.272019649514065

0    -2.058171027271483   1.272019649514066   2.618033988749886
 c
0                    0    -1.618033988749892   -1.272019649514065

0                    1.   0                    0

1.618033988749892    0    -1.618033988749886   -2.058171027271483

-1.272019649514066   0    2.058171027271483    2.618033988749886
 f
0                   0    -1.618033988749892   1.272019649514065

0                   1.   0                    0

1.618033988749892   0    -1.618033988749886   2.058171027271483

1.272019649514066   0    -2.058171027271483   2.618033988749886
 A
-1.618033988749886   -1.618033988749892   0    -2.058171027271484

1.618033988749892    0                    0    1.272019649514066

0                    0                    1.   0

2.058171027271483    1.272019649514065    0    2.618033988749886
 D
-1.618033988749886   -1.618033988749892   0    2.058171027271484

1.618033988749892    0                    0    -1.272019649514066

0                    0                    1.   0

-2.058171027271483   -1.272019649514065   0    2.618033988749886
 B
1.   0                    0                    0

0    -1.618033988749885   -1.618033988749892   -2.058171027271483

0    1.618033988749891    0                    1.272019649514065

0    2.058171027271482    1.272019649514065    2.618033988749886
 E
1.   0                    0                    0

0    -1.618033988749885   -1.618033988749892   2.058171027271483

0    1.618033988749891    0                    -1.272019649514065

0    -2.058171027271482   -1.272019649514065   2.618033988749886
 C
0                    0    1.618033988749891    1.272019649514064

0                    1.   0                    0

-1.618033988749892   0    -1.618033988749885   -2.058171027271483

1.272019649514065    0    2.058171027271482    2.618033988749885
 F
0                    0    1.618033988749891    -1.272019649514064

0                    1.   0                    0

-1.618033988749892   0    -1.618033988749885   2.058171027271483

-1.272019649514065   0    -2.058171027271482   2.618033988749885

)
(cpoint 0.000000 0.000000 0.000000 1.000000 )
(camgeom
{ = OFF
5 2 5

0 0 0
-0.1 0 0.5
0.1 0 0.5
0 -0.1 0.5
0 0.1 0.5

3	 0 1 2	200 200 0 1
3	 0 3 4	0 200 200 1
}
)
}
)

)

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

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