🚀 go-pugleaf

In <OIVINDT.91Apr19164856@darwin.uio.no> oivindt@bio.uio.no (Oivind Toien) writes:

>I am trying to output vertical text to the screen initiated with the
>CreateFontIndirect procedure. Setting the parameters
>lfOrientation:=900; and lfEscapement:=900; makes stroked fonts (Roman,
>Script and Modern) appear vertical. This does however not work with
>the bit-mapped fonts, and not with the corresponding fonts on a system
>where ATM was installed.

A possible solution is writing a string into a bitmap, turning the bitmap
by 90 degrees, and displaying it. Though this works with every bitmapped 
device, it looks good only on devices that have ASPECTX = ASPECTY. This
method is not restricted to diplay devices. If your printer has BitBlt
capability, you may apply it there as well. 
 
You may find an example of text drawn into a bitmap in chapter 9 of 
Charles Petzold's book. Rotating a bitmap requires a lot of bit shift-
ing that should be done in assembler. 
 
When I encountered the same problem I solved it with Actor and assembler.
Please feel free to email me for the assembler primitives and, if wanted, 
an Actor demo class. The assembler routines anyhow need some hacking. 
Actor has a different argument passing.
 
rainer
 
-- 
------------------------------------------------------------------------
 EMAIL: rainer@zelator.in-berlin.de                      Rainer Brendel
------------------------------------------------------------------------