XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Text in 3D gestalten (mit ein paar Spielereien)
Lauffähig ab Profan-Version 7.0
Ein paar 3D-Texteffekte erzeugen und noch
paar Spielereien ;)
Rolf Koch Roko-Software 2001
Viel Divertimento beim probieren
declare font%,text%,font2%,text2%,font3%,text3%,zeit%,ende%
** Einfache Spielerei an Text 2 ******

PROC TEXT2

    SetText text2%,
    sleep 100
    SetText text2%,u
    sleep 100
    settext text2%,un
    sleep 100
    settext text2%,und
    sleep 100
    settext text2%,und n
    sleep 100
    settext text2%,und no
    sleep 100
    settext text2%,und noc
    sleep 100
    settext text2%,und noch
    sleep 100
    settext text2%,und noch e
    sleep 100
    settext text2%,und noch ei
    sleep 100
    settext text2%,und noch ein
    sleep 100
    settext text2%,und noch ein T
    sleep 100
    settext text2%,und noch ein Te
    sleep 100
    settext text2%,und noch ein Tes
    sleep 100
    settext text2%,und noch ein Test

ENDPROC

SetTrueColor 1
Cls RGB(192,192,192)
SetTrueColor 1
Windowtitle Einfach 3D-Text gestalten (c) Rolf Koch
font%=CreateFont(Times New Roman,50,0,0,1,0)
font2%=CreateFont(COURIER NEW,50,0,0,1,0)
font3%=CreateFont(ARIAL,150,0,1,1,0)
text%=CreateText (%hwnd,Dies ist ein Test,5,5,300,50)
text2%=CreateText (%hwnd,und noch ein Test,5,75,500,50)
text3%=CreateText (%hwnd,3D TEXT,5,175,600,150)
SetFont text%,font%
SetFont text2%,font2%
SetFont text3%,font3%
EnableWindow text%,0
EnableWindow text2%,0
EnableWindow text3%,0

whilenot ende%

    TEXT2		Spielerei ;)
    EnableWindow text3%,0
    EnableWindow text2%,1
    sleep 500	im normalen Programm naturalmente Timer
    damit das Programm weiterläuft!
    EnableWindow text3%,1
    EnableWindow text2%,0
    sleep 500

wend

Deleteobject font%
Deleteobject font2%
DeleteObject font3%