为什么不cairo翻译文本？

在下面的程序中，我使用cairo-0.12.2来绘制一些带有字母的小框。不幸的是，当我使用translate函数来移动用户空间原点时，该矩形被翻译，但文本不是。为什么不cairo翻译文本？

import Graphics.Rendering.Cairo 

main = withSVGSurface "test.svg" 600 600 
    (`renderWith` draw) 

draw = do 
    color white 
    rectangle 0 0 600 600 
    fill 
    newPath 
    color black 
    translate 300 300 
    drawSortBox 
    translate 200 200 
    drawSortBox 
    stroke 

drawSortBox = do 
    showText "V Ʌ" 
    a <- textExtents "V Ʌ" 
    rectangle (textExtentsXbearing a - 2) (textExtentsYbearing a - 2) (textExtentsWidth a/2 + 2) (textExtentsHeight a + 4) 
    rectangle (textExtentsXbearing a - 2) (textExtentsYbearing a - 2) (textExtentsWidth a + 4) (textExtentsHeight a + 4) 

color (a,b,c) = setSourceRGB a b c 

white = (255,255,255) 
black =(0,0,0)

来源

2012-11-11 HaskellElephant

根据文档，showText从当前位置开始绘制文本。 translate移动原点，但不移动当前位置。您必须使用moveTo而不是translate来选择文字的位置。（translate恰好适用于第一个呼叫的事实与newPath删除当前位置有关。）

来源

2012-11-11 19:22:35

为什么不cairo翻译文本？

回答

相关问题