[RQt-devel] segment glyph

[Michael Lawrence]

I tried to fix this. Please let me know.

Michael

On Wed, Oct 20, 2010 at 10:23 PM, Michael Lawrence <michafla at gene.com>wrote:

> I'll look into this. Just FYI, this works fine when OpenGL is disabled by
> passing opengl=FALSE to qplotView(). Need to get this working with GL.
>
> Michael
>
> On Wed, Oct 20, 2010 at 3:18 PM, Yihui Xie <xieyihui at gmail.com> wrote:
>
>> Hi,
>>
>> I want to define a glyph which is a short segment as follows, but when
>> the slope b=0, the glyph looks weird on screen (it is a filled
>> square); other slopes are fine. I don't know what's going on:
>>
>> library(qtpaint)
>> ## x: length; b: slope
>> qglyphSegment <- function(x = 5, b = 0) {
>>  glyph <- Qt$QPainterPath()
>>  x0 <- x * cos(atan(b))
>>  y0 <- x * sin(atan(b))
>>  glyph$moveTo(-x0, -y0)
>>  glyph$lineTo(x0, y0)
>> #  glyph$closeSubpath()
>>  glyph
>> }
>>
>> s <- qscene()
>> test_layer <- qlayer(s, function(layer, painter) {
>>    qdrawGlyph(painter, qglyphSegment(), 1:10, .5, stroke = 'black')
>>    qdrawGlyph(painter, qglyphSegment(10, 1), 1:10, .7, stroke = 'black')
>>    qdrawGlyph(painter, qglyphSegment(10, -1), 1:10, .3, stroke = 'black')
>> }, limits=qrect(0,0,11,1))
>> qplotView(s)
>> ## see the screenshot attached
>>
>>
>> Thanks!
>>
>> Regards,
>> Yihui
>> --
>> Yihui Xie <xieyihui at gmail.com>
>> Phone: 515-294-2465 Web: http://yihui.name
>> Department of Statistics, Iowa State University
>> 2215 Snedecor Hall, Ames, IA
>>
>> _______________________________________________
>> Qtinterfaces-devel mailing list
>> Qtinterfaces-devel at lists.r-forge.r-project.org
>>
>> https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/qtinterfaces-devel
>>
>>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.r-forge.r-project.org/pipermail/qtinterfaces-devel/attachments/20101021/547c3022/attachment.htm>