: render-tile ( tile x width gadget -- )
[ orientation>> '[ _ v* ] dip ] keep
'[
- _ _ [ dim>> swap ] [ orientation>> ] bi set-axis
- swap draw-scaled-image
+ _ _ [ dim>> swap ] [ orientation>> ] bi set-axis
+ swap draw-scaled-image
] with-translation ;
M: tile-pen draw-interior