volta
Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192
|
 Verfasst am: 04.08.2007, 13:29 Titel: FBFont vergrößert |
 |
|
Hi,
die Idee ist schon sehr alt, ein Font wird Punkt für Punkt abgetastet und in gößeren Kreisen auf dem Screen gezeichnet.
Jojo hat hier seine " Absolut sinnlose Textspielerei" vorgestellt, die mir garnicht so sinnlos erschien  . | Code: | ' Gprint x-Pos, y-Pos, Ausgabetext, Schrifthöhe, Punktradius
Sub Gprint (x As Integer=0,y As Integer=0, Text As String, h As Integer, d As Integer)
Dim As Integer Tlen = Len (text)*8 'Länge des Textes
If Tlen < 1 Then Exit Sub 'kein Text -> raus hier
Dim As Integer Ptr ImgText = ImageCreate(Tlen,16,0) 'Image erstellen
If ImgText = 0 Then Exit Sub 'kein Image -> raus hier
Draw String ImgText,(0,0),Text,,,Pset 'Text in Image schreiben
For i As Integer= 1 To Tlen -2 'Image scannen Punk für Punkt
For j As Integer = 2 To 15 'bei Punkt Kreis auf den Screen zeichnen
If ImgText[(j*Tlen+i)+8] Then _
Circle ((i*h/14)+x, (j*h/11)+y-d), d, Rgb(250,17*j,0),,,14/11,F
Next
Next
If ImgText <> 0 Then ImageDestroy ImgText 'Speicher freigeben
End Sub
Screen 18,32
Gprint 150,100,"FreeBASIC",70,4
Sleep
'andere Schriftvariationen:
'Circle ((i*h/14)+x-j, (j*h/11)+y-d), d, Rgb(250,17*j,0),,,14/11,F 'leicht Italic
'Circle ((i*h/14)+x-j-j, (j*h/11)+y-d), d, Rgb(250,17*j,0),,,14/11,F 'Italic
'Circle ((i*h/14)+x, (j*h/11)+y-d-i), d, Rgb(17*j,i*3,250),,,14/11,F 'nach rechts oben
'Circle ((i*h/14)+x-j, (j*h/11)+y-d), d, Rnd()*&HFFFFFF,,,14/11,F.....'Zufallsfarben |
Viel Spaß damit
Volta
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
