<target
  class="AnimatedTarget"
  name="chomp"
  path="doc/obj/chomp.tn0.xml"
><![CDATA[
AnimatedTarget
"chomp"
{}
{ /ItemPath { {
    .5 .5 .51 0 360 arc
    closepath } unit-scale } def
  /CanvasMaker {
    1 1 30 {
      /CanvasNum exch def
      /CacheFile
	(%%%.%.%x%.cc%)
	[ TiesRootDirectory  FilePos 0 get  FilePos 1 get
	  CanvasNum
	  ItemWidth ItemHeight   
	  framebuffer /Color get 8 1 ifelse 
	] sprintf def
      CacheFile findraster dup null eq {
        pop
        (%/smi/globes/globe%.im1)
	[ (NEWSHOME) getenv  CanvasNum
	] sprintf
        findraster
        get-canvas setcanvas
        clippath pathbbox scale pop pop
        .5 fillcanvas
        CanvasNum 1 sub 30 div
        360 mul sin abs 30 mul
        .5 .5 moveto
        .5 .5 .5 3 index 360 5 index sub arc pop
        closepath clip
        imagecanvas
        pause pause
	clippath pathbbox points2rect rectpath
	CacheFile { writescreen } errored {pop} if
      } {
        get-canvas setcanvas
        clippath pathbbox scale pop pop
        imagecanvas
      } ifelse
      currentcanvas
    } for } def }
]]></target>

