XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Text mit Truetype-Schriften ausgeben
Lauffähig ab Profan-Version 5.0
Declare Grad%, Text$, Ende%

Proc TextDemo

    Declare Winkel%,Groesse%
    TextColor @RGB(0,0,0),-1
    Let Text$ = .......... XPROFAN ist klasse!
    Let Winkel% = 150

    WhileNot @Gt(Winkel%,3600)

        Let Groesse% = @Div(Winkel%,100)
        Orientation Winkel%
        UseFont Times New Roman,Groesse%,0,0,0,0
        DrawText 250,180,Text$
        Add Winkel%,150

    Wend

EndProc

Proc Bildschirm

    Cls
    TextDemo

EndProc

Proc Drucker

    StartPrint
    TextDemo
    EndPrint

EndProc

WindowStyle 31
WindowTitle TrueType - Demo
Window 0,0 - 639,479
PopUp &Ausgabe
AppendMenu 100,&Bildschirm
AppendMenu 101,&Drucker
Separator
AppendMenu 109,&Ende
Bildschirm
Let Ende% = 0

WhileNot Ende%

    WaitInput
    Case @MenuItem(100):Bildschirm
    Case @MenuItem(101):Drucker
    Case @MenuItem(109):Let Ende% = 1

Wend

End