for i in `ls /u/graphics/*/facette` ;  do
	sed '/object_type=Polyedre/c\
object_type=Pyramide' $i > $i.tmp
	sed '/program POLYEDRE/a\
/usr/local/bin/polyedre.sh PYR' $i.tmp > $i
	rm $i.tmp
done