I came up with this rough example which seems to be a workaround for the
print bug where rotated text in stringshapes prints all black. However, its
pretty
inefficient - and noticably slow for larger bugger sizes. Does anyone have a
better idea?
Greg
//(g is passed in as a graphic object, p is a buffer)
dim p as Picture
dim xw, yh as integer
xw = 200
yh = 40
p = NewPicture( xw, yh, Screen(0).Depth)
If p <> Nil then
t = "FGRBK" // these characters are chosen because they are not
symmetrical
p.Graphics.TextSize = 21
p.Graphics.ForeColor = &cffFF00
p.Graphics.FillRect 0,0,p.Width,p.Height
p.Graphics.ForeColor = &cFF0000
p.Graphics.DrawString t, 15, 20
end if
// now loop pixel by pixel to transpose the graphic (note i,j in opposite
orders)
for i = 0 to xw -1
for j = 0 to yh-1
g.DrawPicture p, 200 + j, 200 - i, 1, 1,i, j, 1, 1
next
next
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
