parent
fd4ddf588f
commit
1b007dd7fc
|
@ -12,7 +12,7 @@ TUPLE: image-pen image fill? ;
|
||||||
M: image-pen draw-interior
|
M: image-pen draw-interior
|
||||||
[ dim>> ] [ [ image>> ] [ fill?>> ] bi ] bi*
|
[ dim>> ] [ [ image>> ] [ fill?>> ] bi ] bi*
|
||||||
[ draw-scaled-image ] [
|
[ draw-scaled-image ] [
|
||||||
[ image-dim [ - 2 / ] 2map ] keep
|
[ image-dim [ - 2 /i ] 2map ] keep
|
||||||
'[ _ draw-image ] with-translation
|
'[ _ draw-image ] with-translation
|
||||||
] if ;
|
] if ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue