Das alte Codearchive

Nebenprodukt von ???

Hi,

da es bei TheShadows Wettbewerb darum geht, unter 256 KB zu bleiben, mußte ich mir für die Beschreibung des Games also selbst einen Font-Text machen.
Dies ist hiermit geschehen.

Wer also denkt, er könnte damit was anfangen, soll mir eine PN schicken, oder mich per ICQ anquatschen. Der bekommt dann natürlich den Source-Code.

Ist 3.5 KB groß !

http://members.chello.at/hot-bit/diverses/test.zip

Die Farben können dann im Prog verändert werden.

Ist das brauchbar ?

Toni

===

von ???

:( hab nur en Schwarzen Bildschirm.

===

von ???

Nett und schick ... könnte aber schneller sein. Gucke Dir mal meine Fontengine an (in diesem SubForum) ... sie verwendet den Standard-ASCII Satz und kann somit ohne Berechnungen auf Zeichen zugreifen.
Nicht vom Scanner abschrecken lassen, das ist nur ein Programm das die Breiten der Zeichen erfasst, der restliche Code, welcher den Font initialisiert und nutzt, ist schön klein.

===

von ???

Hoppla,

dann stimmt etwas bei dir nicht !
Ich meine bei deinen Einstellungen.

Welche GraKa ?

Hat sonst noch wer Probs ?

Toni

===

von ???

Hmmm,

da ja nicht jeder das downloaden will, gebe ich den Code gleich hierher.

Toni

[code:1:04e56cfc8c]
Graphics 1024,768
SetBuffer BackBuffer()
Dim buchbild(3,90)
Dim fontgroesse(3)
For i=1 To 3:Read fontgroesse(i):Next
Dim imgbreit(3),imghoch(3)
For i=1 To 3:Read imgbreit(i),imghoch(i):Next
Dim ac1(3),ac2(3),ac3(3), acc1(3),acc2(3),acc3(3)
For i=1 To 3: Read ac1(i),ac2(i),ac3(i),acc1(i),acc2(i),acc3(i):Next
Dim grabx(3),graby(3)
For i=1 To 3: Read grabx(i),graby(i):Next

For schl=1 To 3

font=LoadFont("courier",fontgroesse(schl),1,0,0)
SetFont font
bild4b=CreateImage(imgbreit(schl),imghoch(schl))
For q=32 To 122
c1=ac1(schl):c2=ac2(schl):c3=ac3(schl)
cc1=acc1(schl):cc2=acc2(schl):cc3=acc3(schl)
Cls
Color 230,230,230:Text 1,0,Chr$(q)
Color 255,255,255:Text 0,1,Chr$(q)
aa=0
For j=0 To 45
c1=c1+cc1
c2=c2+cc2
c3=c3+cc3
For i=0 To 32
rgb=ReadPixel(i,j)
r=(rgb And $FF0000)/$10000:g=(rgb And $FF00)/$100:b=rgb And $FF
If r>240
newrgb=c1*$10000 + c2*$100 + c3
WritePixel i,j,newrgb
EndIf
Next:flag=0
If schl=1 And j=22 cc1=-acc1(schl):cc2=-acc2(schl):cc3=-acc3(schl)
If schl=2 And j=12 cc1=acc1(schl):cc2=-acc2(schl):cc3=-acc3(schl)
If schl=3 And j=12 cc1=-acc1(schl):cc2=-acc2(schl):cc3=acc3(schl)

Next
GrabImage bild4b,grabx(schl),graby(schl)
buchbild(schl,q-32)=CopyImage(bild4b)
If KeyHit(1) End
Next
FreeImage bild4b:FreeFont font

Next

a1$="Hi, dies ist eine Test- Schrift"
While Not KeyHit(1)
Cls
xxw=0:yyw=40:bbb=-1
For tt=0 To 90
bbb=bbb+1:xxw=24*bbb
DrawImage buchbild(1,tt),xxw,yyw
If 24*bbb>900 xxw=0:yyw=yyw+40:bbb=-1
Next
x1=140:y1=190
For i=1 To Len(a1$)
b1b=Asc(Mid$(a1$,i,1))-32
DrawBlock buchbild(1,b1b), x1, 3 + (Sin(MilliSecs()+(i Shl 5) )+y1 )
x1=x1+22
Next

xxw=0:yyw=280:bbb=-1
For tt=0 To 90
bbb=bbb+1:xxw=20*bbb
DrawImage buchbild(2,tt),xxw,yyw
If 20*bbb>900 xxw=0:yyw=yyw+40:bbb=-1
Next
x1=200:y1=390
For i=1 To Len(a1$)
b1b=Asc(Mid$(a1$,i,1))-32
DrawBlock buchbild(2,b1b), x1, 3 + (Sin(MilliSecs()+(i Shl 5) )+y1 )
x1=x1+18
Next

xxw=0:yyw=520:bbb=-1
For tt=0 To 90
bbb=bbb+1:xxw=20*bbb
DrawImage buchbild(3,tt),xxw,yyw
If 20*bbb>900 xxw=0:yyw=yyw+40:bbb=-1
Next
x1=200:y1=620
For i=1 To Len(a1$)
b1b=Asc(Mid$(a1$,i,1))-32
DrawBlock buchbild(3,b1b), x1, 3 + (Sin(MilliSecs()+(i Shl 5) )+y1 )
x1=x1+18
Next
DrawBlock buchbild(1,8), 300,690:DrawBlock buchbild(2,67), 320,694:DrawBlock buchbild(1,9),338,690
DrawBlock buchbild(3,40), 370,694:DrawBlock buchbild(2,47),390,-3 + (Sin(MilliSecs()+(i Shl 5) )+694):DrawBlock buchbild(3,52),410,694
DrawBlock buchbild(3,13),430,694:DrawBlock buchbild(3,34),450,694:DrawBlock buchbild(2,41),470,-3 + (Sin(MilliSecs()+(i Shl 5) )+694):DrawBlock buchbild(3,52),490,694
Flip
Wend
End

Data 44,28,28 ;fontgroesse()
Data 27,36,18,24,18,24 ;für CreateImage
Data 0,0,20, 11,11,6, 255,0,0, 0,18,18, 0,0,255, 18,18,0 ; für Farben und Sprungweite
Data 2,6, 0,2, 0,2 ; für GrabImage
[/code:1:04e56cfc8c]

===

von ???

Kannst du es noch in einen CodeTag reinbauen? Vielleicht noch Ausrichten, hilft dem lesen ungemein, besonders für Leute ohne Comiler die nur lesen ;)

===

von ???

Hi,

könnte ich,

ABER : ICH HABE DAS EXTRA FÜR DIE NÖRGLER GEMACHT, WELCHE NUR LESEN ! ! !

Im Ernst, habe keine Ahnung von CodeTag und dergleichen !

Aber du könntest es mir ja erklären !?

Für diejenigen, welche es im Normal-Modus sehen wollen :

http://members.chello.at/hot-bit/diverses/testfont.zip

Hat 1.5 KB

Toni

===

von ???

hehe, [code ] und [/code ] ohne Leerzeichen ;)

===

von ???

oh der allmächtige Triton hat euch seine Macht gezeigt - huldigt mir!

;)

*bruceallmächtigguck*

===

von ???

Hi,

*aufdiekniefall*

Toni

===

von ???

Siehe meine Signatur, und denn neuesten Nvidia Treiber.

===

von ???

Werd heut Abend mal mit Deinem Code spielen, 16 Bit ist kein Problemm.

Hab aber seit dem ich denn neuen Treiber drauf hab auch problemme mit meinem eigenen spiel :?:

===

von ???

So, hab ein bisschen damit rumgespielt.

Im Vollbid hab ich nur schwarz, im fenstermodus mit 16 und 32 bit
tut sich folgendes :?:

Zuerst ist der bildschirm schwarz wenn ich dann das fenster mit der maus
ein klein wenig verschiebe Tacht im oberen kinken eck ein Buchstabe oder
ein Sonderzeichen auf das bei jedem verschieben wechselt.

Wenn ich das ein paar mal, ca. 15 mal (habs nicht gezählt), mache
wird mir dann alles angezeigt so wie es sein sollte.
Das ganze ist mit B3D und B+ so.

[img:a34fb16e6e]http://members.aon.at/blitzbasic/1a.jpg[/img:a34fb16e6e]
[img:a34fb16e6e]http://members.aon.at/blitzbasic/2a.jpg[/img:a34fb16e6e]

Werde Morgen doch mal den neuen Treiber deinstalliern und zum Testen meinen alten wieder installieren.[/url]

===

von ???

Hoppla,

warum kannst du das Fenster verschieben ?

Ist doch Vollbild-Modus !

Versteh ich nicht !

Toni

===

von ???

er hat doch gesagt er hat dran rumgespielt.
dann wird er wohl noch ne 2 hinter graphics gesetzt haben nehme ich an ;-)

===

von ???

Hi,

mich verwundert da etwas:

Entweder braucht niemand sowas, oder
jeder hat den Durchblick im Code, (das wäre schön), oder
niemand traut sich was fragen.

Hier werden 2 verschiedene Fontgrößen mit 3 Farbeinstellungen erstellt.
Wenn jemand ein prog für nur einen Font, oder sich diverse Parameter erklären lassen will, der soll was sagen.

Toni

===

von ???

So, hat etwas länger gedauert.

Ich habe jetzt wieder meinen Original Treiber 31.40 von AOpen installiert,
sihe da mein spiel und Dein Code funktionieren wieder ohne fehler :!:

Ich werd in nächster zeit bestimmt nicht nochmal einen neuen Treiber von NVidia installieren. :evil:

===

von ???

richtig so gibs den Säcken Slayer:D

@HOT-BIT

Dein Font ist sehr schön nur was ich mich seit langem frage ist: gibt es irgendwelche fonteditoren, mit denen man seine eigenen schriftarten verwenden kann?

Deine schrift is übrigens super bringt mal farbe in bb... :D

Suche:
(unterstützt mySQL Wildcards ala %)