hallo,
teste immernoch glbasic und bin begeistert ;-)
was ich noch gerne wissen möchte, kann man die schrift, die auf dem grafikbildschirm ausgegeben wird,
größer als 64x64 bekommen ?
bräuchte unbedingt große schrift für ein rechenprogramm...64x64 ist etwas mickrig ;-(
achso, meine arbeitsauflösung ist 1024x768
ich hoffe nicht, das ich für jede zahl ein sprite machen muß oder geht das mit font irgendwie ?
wäre nett, wenn mir das jemand beantworten könnte
gruß
tom
Geht. Mit dem Font-Tool ist die Größe begrenzt aber ich habe soeben getestet, einen Font anschließend zu skalieren (mit Photoshop) und GLBasic kann ihn noch korrekt anzeigen. Mein Font hat jetzt eine Auflösung von 1472 x 800 und bei 8 x 16 Zeichen kannst Du leicht ausrechnen, wie groß ein Zeichen dann ist :)
Also Du musst schon etwas selbst Hand anlegen, aber es ist nicht nötig, jede Zahl/jedes Zeichen selbst zu pixeln. Du kannst es schon mit Font machen, musst dann eben die Grafik mit einer geeigneten Software größer skalieren. Dass dabei Qualität verloren geht, ist eine andere Geschichte ;)
[EDIT]: Achja, beachte dabei bitte, dass die Breite und Höhe des Fonts dabei immer ein Vielfaches von 16 bzw. 8 bleibt, dann passt es schon.
ok, danke für die schnelle antwort
gruß
tom
Hallo,
du kannst das alles etwas leichter haben.
Hier ist eine Routine, mit der Du Deine Fonts vergrößern und verkleinern kannst !
Du kannst dir ein Font downloaden hier: http://rapidshare.com/files/155215572/Font.rar.html
Du kannst Dir auch ein Font erstellen mit Groß und Kleinbuchstaben, ich denke mal das Du
dir Dein eigenen Font machen willst.
Du kannst den Font als Grundlage benutzen.
Hier der Code:
LOADANIM "c:/GlBasic/Font.bmp", 1, 16, 16 // gib hier dein eigenen Pfad ein !
SETSCREEN 1024,768,1
TextZoom("DAS IST GANZ EINFACH MIT GLBASIC !",48,0,24,24)
TextZoom("HELLO",32,92,8,8)
TextZoom("HELLO",32,100,16,16)
TextZoom("HELLO",32,116,32,32)
TextZoom("HELLO",32,148,64,64)
TextZoom("HELLO",32,212,128,128)
TextZoom("HELLO",32,340,200,128)
TextZoom("$$$$",32,468,232,300)
SHOWSCREEN
MOUSEWAIT
END
FUNCTION TextZoom: Txt$, x1, y1, x2, y2
LOCAL lx, sx, rx
lx = LEN(Txt$)
FOR sx = 0 TO lx
rx = ASC(MID$(Txt$,sx,1))
IF rx >= 32 AND rx <= 128
rx = rx -32
STRETCHANIM 1, rx, x1, y1, x2, y2
x1 = x1 + x2
ENDIF
NEXT
ENDFUNCTION
//-------------------------------
best wishes..
Peter
coole Funktion. Gefällt mir :good:
Hi Quentin,
hört man gern ! Danke.
Peter
Dem kann ich mich nur anschließen, sehr brauchbar Deine Funktion ;-)
DANKE !
Gruß
Tom