<target
  class="AnimatedTarget"
  name="spin"
  path="doc/obj/spin.tn0.xml"
><![CDATA[
AnimatedTarget
"spin"
{}
{ /ItemPath { {
    .5 .5 .52 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
        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>

