Vertical text, or other directions...

[Nuno]

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

[Rod]

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]

I see...

Might as well "getbmp" and "drawbmp" on the whole thing, since it's just a small line.
Thank you Rod

[Rod]

It needs rotated, this is a simple xy reversal of each pixel, more complex rotations with cos/sin are possible but the text looks messy.

Well messy or stunning.

libertybasiccom.proboards.com/thread/1429/cometh-new-year

[Nuno]

Acctually quite usefull.
Was wondering about doing that myself.
Thanks!

[deaconjim]

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.

[tsh73]

See
libertybasiccom.proboards.com/thread/1429/cometh-new-year
for text rotated with magic of API.