SpanImageFactory.c = (0,0); horizontally(80, xx, SpanImageFactory, CachingSpanImageFactory); sk = -.35; foo.p := (CachingSpanImageFactory.c{sk,1}..SpanImageFactory.c{sk,-1});