Nuno
Junior Member
Posts: 64
|
Post by Nuno on Apr 2, 2023 6:51:05 GMT -5
Hello all,
in this kind of environment:
open "Window name here" for graphics as #handle Is there a way to write text on a vertical fashion? Not one letter under the other, and all the letters horizontally written, but write text on a vertical fashion. Like you would have to read it by tilting your head to that side
Thank you
|
|
|
Post by Rod on Apr 2, 2023 7:21:42 GMT -5
One way. There are others to search out but this gives pretty clean looking text.
nomainwin WindowWidth=800 WindowHeight=600 UpperLeftX=(DisplayWidth-WindowWidth)/2 UpperLeftY=(DisplayHeight-WindowHeight)/2 open "Rotate Text" for graphics_nsb as #1 #1 "down ; trapclose [quit]"
#1 "font courier 12" xx=50 yy=50 x=100 y=400 w=9 h=12 call rotate xx,yy,x,y,w,h,"Hello this is verticle text "
wait
[quit] close #1 end
sub rotate xx,yy,x,y,w,h, c$ 'xx,yy a conveniant location to draw the letter to be copied 'x,y the location to start drawing from 'w,h width height of font, experiment. 'if c$ ends with a space it will blank temporary drawing out for n= 1 to len(c$) #1 "place ";xx;" ";yy;" ;\";mid$(c$,n,1) for xn = 0 to w for yn= 0 to h #1 "getbmp bmp ";xx+xn;" ";yy-yn;" 1 1 " #1 "drawbmp bmp ";x-yn;" ";y-xn next next y=y-w next
end sub
|
|
Nuno
Junior Member
Posts: 64
|
Post by Nuno on Apr 2, 2023 7:26:29 GMT -5
I see...
Might as well "getbmp" and "drawbmp" on the whole thing, since it's just a small line. Thank you Rod
|
|
|
Post by Rod on Apr 2, 2023 7:56:27 GMT -5
|
|
Nuno
Junior Member
Posts: 64
|
Post by Nuno on Apr 5, 2023 11:09:55 GMT -5
Acctually quite usefull. Was wondering about doing that myself. Thanks!
|
|
|
Post by deaconjim on Dec 18, 2023 14:29:51 GMT -5
I have a need to print documents and envelopes that are right-edge first when hand-feeding into the printer. Do anyone have any code that would make this happen? Need it for the Church programs. Thank you.
|
|
|
Post by tsh73 on Dec 18, 2023 15:25:39 GMT -5
|
|