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 }