ui.pens.image: allow float math.
parent
cf5bc20b1b
commit
2d71fd9e22
|
@ -12,7 +12,7 @@ TUPLE: image-pen image fill? ;
|
|||
M: image-pen draw-interior
|
||||
[ dim>> ] [ [ image>> ] [ fill?>> ] bi ] bi*
|
||||
[ draw-scaled-image ] [
|
||||
[ image-dim [ - 2 /i ] 2map ] keep
|
||||
[ image-dim [ - 2 / ] 2map ] keep
|
||||
'[ _ draw-image ] with-translation
|
||||
] if ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue