bug in qb/rellib??

[red_Marvin]

I've promised to do a little graphic animation for my brother and
chosen rellib to do it.

Anyhow

I have a sub drawing several relbox and relboxf directly to video
(to test the layout, in the end it is supposed to look like a gui of some sort).
Well, the strange thing is that when I draw a relbox outside the
sub (=in the main module/whatever) it refuses to draw the left
edge...
If I copy the relbox stuff into the sub (with exactly the same parameters)
into the sub it draws fine. if I make a comment of the sub call above
the box it also draws fine.

???

I'll post the code later on request, it's really just a sub that draws
a "window" and several calls to that sub...

[Nexinarus]

lets see some code

[red_Marvin]

Some code to be seen: (actually this is the whole program so far)

Code:

'$INCLUDE: 'rellib.bi'
DECLARE SUB drawform (page, x1, y1, x2, y2)
RelInitVGA13
relwritergb 1, 0, 31, 0
relwritergb 2, 0, 63, 0
relwritergb 3, 0, 39, 0
relwritergb 4, 0, 31, 0

DIM SHARED hl: hl = 2

drawform video, 0, 0, 239, 15          'menu bar
drawform video, 240, 0, 255, 15        'menubutton1
drawform video, 256, 0, 271, 15        'menubutton2
drawform video, 272, 0, 287, 15        'menubutton3
drawform video, 288, 0, 303, 15        'menubutton4
                                  
relbox video, 292, 4, 298, 10, hl  '<<<<<< This should draw a box
                                   '       if I comment out the above
                                   '       drawform calls or put the
                                   '       relbox... in the drawform
                                   '       sub it works.

drawform video, 304, 0, 319, 15        'menubutton5

relline video, 308, 4, 314, 10, hl
relline video, 308, 10, 314, 4, hl


drawform video, 0, 16, 239, 99       'molecule window
drawform video, 0, 100, 239, 183     'info window
drawform video, 0, 184, 239, 199     'command prompt
drawform video, 240, 16, 319, 151    '3D scan view
drawform video, 240, 152, 319, 167   'button1
drawform video, 240, 168, 319, 183   'button2
drawform video, 240, 184, 319, 199   'button3



SLEEP
RelInitText

SUB drawform (page, x1, y1, x2, y2)
gap = 1
relbox page, x1, y1, x2 - gap, y2 - gap, 1
relbox page, x1 + 1, y1 + 1, x2 - 1 - gap, y2 - 1 - gap, 2
relbox page, x1 + 2, y1 + 2, x2 - 2 - gap, y2 - 2 - gap, 3
relboxf page, x1 + 3, y1 + 3, x2 - 3 - gap, y2 - 3 - gap, 4
END SUB

Note: the comment out the above line didn't work this time, but if I
commented out all the drawforms above the relbox it "worked"

[relsoft]

More like a Rellib bug.

What version are you using?

Use the latest version. The old ones' clipping smells. ;*)