#!/bin/csh -f
#
# xpixrootdisplay _file_
# 
# Author: Andrew MacDonald
#   
# given a file with a list of names of xpix, display them in random order
set files = ` cat $1 `
set seedstring = `ps`
set rand = $seedstring[6]
set modnum = $#files
@ rand %= 1000
while(1)
	@ rand *= 1583
	@ rand %= 1427
	set r = $rand
	@ r %= $modnum
	@ r += 1
	set file = $files[$r]
	set t = $rand
	@ t %= 10
	@ t += 1
	@ t *= 30
	zcat /mit/xpix/pictures/$file | \
		/mit/xpix/bin`/bin/athena/machtype`/xroot
	sleep $t
    end

-----cut here-----
  
ascot.dmp.Z
astronaut.dmp.Z
autox.dmp.Z
aves.maxim.dmp.Z
aves.pionus.dmp.Z
betyboop.dmp.Z
bigcalvin.dmp.Z
bitrot.dmp.Z
bloom.dmp.Z
bloomhack.dmp.Z
blotch.dmp.Z
boom.dmp.Z
bulls_eye.dmp.Z
calvin.dmp.Z
carpet.dmp.Z
cellauto.dmp.Z
chess.dmp.Z
circles.dmp.Z
clover.dmp.Z
diplomacy.dmp.Z
donut.dmp.Z
dragon.dmp.Z
eye.dmp.Z
far-side.dmp.Z
fingerprint.dmp.Z
fourpoll.dmp.Z
fourpoll1.dmp.Z
fresnel.dmp.Z
fullmoon.dmp.Z
gasket.dmp.Z
godzilla.dmp.Z
graf.pic.dmp.Z
hills.dmp.Z
john-yoko.dmp.Z
lenna18.dmp.Z
lum1.dmp.Z
lum2.dmp.Z
mandrill18.dmp.Z
max-brandy.dmp.Z
maze.dmp.Z
medeco.dmp.Z
moeb.dmp.Z
mon_face.dmp.Z
mstreep.dmp.Z
nausicca1.dmp.Z
nausicca2.dmp.Z
nebula.dmp.Z
nil.dmp.Z
peidmont.dmp.Z
phoenix.dmp.Z
popart.dmp.Z
ran-times.dmp.Z
reflect.dmp.Z
rhine.dmp.Z
ronbo.dmp.Z
rpicalvin.dmp.Z
scrooge.dmp.Z
shin.dmp.Z
sq-tunnel.dmp.Z
stars.dmp.Z
steinheim.dmp.Z
swirl.dmp.Z
talking.dmp.Z
thing.dmp.Z
times.dmp.Z
tvc15.dmp.Z
twodollar.dmp.Z
vanna.dmp.Z
venn.dmp.Z
water.dmp.Z
yin-yang.dmp.Z
yosemite.dmp.Z
yuri1.dmp.Z
yuri2.dmp.Z