writing text to a pixmap

BlitzMax Forums/BlitzMax Beginners Area/writing text to a pixmap

Mordax_Praetorian

(Posted 2009) [#1]

Hello

Work keeps throwing curve balls at me

I need a way to write a font onto a pixmap, the computers that the program is going to run on don't have proper graphics drivers, making use of graphics commands is impossible, but MAXGui and Pixmaps work ok, no regular images, and I doubt image buffers are going to work either (don't have one of the PCs handy to test with atm)

The reason I need to get everything into one image is so that I can call it up in MS Paint for printing, since GadgetPrint is far too temperamental for me to trust right now

I realise that one solution is to have a function that picks out letters individually from a string and writes them pixel by pixel to the pixmap, and while I already have a function that does this, the letters are only 5 pixels tall, which is too small for this purpose, and writing out a larger set of letters would be time consuming enough that I'd probably miss my deadline

If I get a working answer, then I'm happy to share the little font writing function, the letters are 5 pixels tall, and most characters are just 3 pixels wide, with some at 2 pixels, and just a few at 4 pixels, while tiny, the font is designed to be clearly legible, so its great when you have very little space to work with, I initially developed it to write onto 32*32 pixel icons when no other option was available and it worked a treat

klepto2

(Posted 2009) [#2]

http://www.blitzbasic.com/codearcs/codearcs.php?code=2231

Space_guy

(Posted 2009) [#3]

And also bruceys cairo module is great to work with when you want some advanced pixmap rendering.

Mordax_Praetorian

(Posted 2009) [#4]

Thankyou

And as promised, heres the tiny font function

this is copied directly from the program I was using it in, where I need it to write either black (g=0) or green (g=1), and it returns the x ordinate where the next character should be placed

all characters are 5 pixels tall

Function WriteC(pix:TPixmap,c$,x,y,g=0)
	If g = 0
		b% = (255 Shl 24)|(0 Shl 16)|(0 Shl 8)|0
	Else
		b% = (255 Shl 24)|(0 Shl 16)|(128 Shl 8)|0
	EndIf
	Select Upper(c$)
		Case "A"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+3,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+2,y+3,b)
			WritePixel(pix,x+2,y+4,b)
			Return x+4
		Case "B"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+3,b)
			Return x+4
		Case "C"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+4,b)
			Return x+3
		Case "D"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+2,y+3,b)
			Return x+4
		Case "E"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+1,y+4,b)
			Return x+3
		Case "F"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+2,b)
			Return x+3
		Case "G"
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+3,b)
			WritePixel(pix,x+2,y+4,b)
			Return x+4
		Case "H"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+2,y+3,b)
			WritePixel(pix,x+2,y+4,b)
			Return x+4
		Case "I"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+1,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+1,y+3,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+4,b)
			Return x+4
		Case "J"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+2,y+3,b)
			Return x+4
		Case "K"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+3,b)
			WritePixel(pix,x+2,y+4,b)
			Return x+4
		Case "L"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y+4,b)
			Return x+3
		Case "M"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y+1,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+2,y+3,b)
			WritePixel(pix,x+2,y+4,b)
			Return x+4
		Case "N"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y+1,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+3,y,b)
			WritePixel(pix,x+3,y+1,b)
			WritePixel(pix,x+3,y+2,b)
			WritePixel(pix,x+3,y+3,b)
			WritePixel(pix,x+3,y+4,b)
			Return x+5
		Case "O"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+2,y+3,b)
			WritePixel(pix,x+2,y+4,b)
			Return x+4
		Case "P"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+2,y+1,b)
			Return x+4
		Case "Q"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+3,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+2,y+3,b)
			WritePixel(pix,x+2,y+4,b)
			WritePixel(pix,x+3,y+4,b)
			Return x+5
		Case "R"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+3,b)
			WritePixel(pix,x+2,y+4,b)
			Return x+4
		Case "S"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+1,y+3,b)
			WritePixel(pix,x+1,y+4,b)
			Return x+3
		Case "T"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+1,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+1,y+3,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y,b)
			Return x+4
		Case "U"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+2,y+3,b)
			WritePixel(pix,x+2,y+4,b)
			Return x+4
		Case "V"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+2,y+3,b)
			Return x+4
		Case "W"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y+3,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+2,y+3,b)
			WritePixel(pix,x+2,y+4,b)
			Return x+4
		Case "X"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+3,b)
			WritePixel(pix,x+2,y+4,b)
			Return x+4
		Case "Y"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x+1,y+1,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+2,y+3,b)
			WritePixel(pix,x+2,y+4,b)
			Return x+4
		Case "Z"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+1,y+3,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+2,y+4,b)
			WritePixel(pix,x+3,y,b)
			WritePixel(pix,x+3,y+4,b)
			Return x+5
		Case "1"
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+1,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+1,y+3,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y+4,b)
			Return x+4
		Case "2"
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+3,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+2,y+4,b)
			Return x+4
		Case "3"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y+1,b)
			WritePixel(pix,x+1,y+3,b)
			Return x+3
		Case "4"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x+1,y+1,b)
			WritePixel(pix,x+1,y+3,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+2,y+3,b)
			WritePixel(pix,x+2,y+4,b)
			WritePixel(pix,x+3,y+3,b)
			Return x+5
		Case "5"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+3,b)
			Return x+4
		Case "6"
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+3,b)
			Return x+4
		Case "7"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+1,y+3,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+1,b)
			Return x+4
		Case "8"
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+3,b)
			Return x+4
		Case "9"
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+2,y+3,b)
			Return x+4
		Case "0"
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+2,y+3,b)
			Return x+4
		Case "-"
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x+1,y+2,b)
			Return x+3
		Case "+"
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x+1,y+1,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+1,y+3,b)
			WritePixel(pix,x+2,y+2,b)
			Return x+4
		Case "="
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x+1,y+1,b)
			WritePixel(pix,x+1,y+3,b)
			Return x+3
		Case "*"
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+1,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+3,b)
			Return x+3
		Case "/"
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+1,b)
			Return x+4
		Case ":"
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+3,b)
			Return x+2
		Case ","
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y+3,b)
			Return x+3
		Case ";"
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y+1,b)
			WritePixel(pix,x+1,y+3,b)
			Return x+3
		Case "_"
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y+4,b)
			Return x+3
		Case "."
			WritePixel(pix,x,y+4,b)
			Return x+2
		Case "("
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+4,b)
			Return x+3
		Case ")"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y+1,b)
			WritePixel(pix,x+1,y+2,b)
			WritePixel(pix,x+1,y+3,b)
			Return x+3
		Case "?"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+1,b)
			Return x+3
		Case "!"
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+4,b)
			Return x+2
		Default
			WritePixel(pix,x,y,b)
			WritePixel(pix,x,y+1,b)
			WritePixel(pix,x,y+2,b)
			WritePixel(pix,x,y+3,b)
			WritePixel(pix,x,y+4,b)
			WritePixel(pix,x+1,y,b)
			WritePixel(pix,x+1,y+4,b)
			WritePixel(pix,x+2,y,b)
			WritePixel(pix,x+2,y+1,b)
			WritePixel(pix,x+2,y+2,b)
			WritePixel(pix,x+2,y+3,b)
			WritePixel(pix,x+2,y+4,b)
			Return x+4
	End Select
End Function

Jesse

(Posted 2009) [#5]

You know you can condense your code to about 5 times or more if you use DefData/ReadData.

Mordax_Praetorian

(Posted 2009) [#6]

I'm not really bothered with how long it takes to scroll through my code, it isn't a priority for me

The function is there and the function works, if nothing else then people can take the character set and use it for their own purposes

Jesse

(Posted 2009) [#7]

I just thought it would more usefull by making it more flexible and smaller at the same time:


Function WriteC:Int(pix:TPixmap,c:String,x:Int,y:Int,g:Int=0)
	Local b:Int
	If g = 0
		b = (255 Shl 24)|(0 Shl 16)|(0 Shl 8)|0
	Else
		b = (255 Shl 24)|(0 Shl 16)|(128 Shl 8)|0
	EndIf
	Select Upper(c$)
		Case "A" RestoreData DA
		Case "B" RestoreData DB
		Case "C" RestoreData DC
		Case "D" RestoreData DD
		Case "E" RestoreData DE
		Case "F" RestoreData DF
		Case "G" RestoreData DG
		Case "H" RestoreData DH
		Case "I" RestoreData DI
		Case "J" RestoreData DJ
		Case "K" RestoreData DK
		Case "L" RestoreData DL
		Case "M" RestoreData DM
		Case "N" RestoreData DN
		Case "O" RestoreData DO
		Case "P" RestoreData DP
		Case "Q" RestoreData DQ
		Case "R" RestoreData DR
		Case "S" RestoreData DS
		Case "T" RestoreData DT
		Case "U" RestoreData DU
		Case "V" RestoreData DV
		Case "W" RestoreData DW
		Case "X" RestoreData DX
		Case "Y" RestoreData DY
		Case "Z" RestoreData DZ
		Case "1" RestoreData D1
		Case "2" RestoreData D2
		Case "3" RestoreData D3
		Case "4" RestoreData D4
		Case "5" RestoreData D5
		Case "6" RestoreData D6
		Case "7" RestoreData D7
		Case "8" RestoreData D8
		Case "9" RestoreData D9
		Case "0" RestoreData D0
		Case "-" RestoreData DMI
		Case "+" RestoreData DPL
		Case "=" RestoreData DEQ
		Case "*" RestoreData DST
		Case "/" RestoreData DDI
		Case ":" RestoreData DCO
		Case "," RestoreData DCM
		Case ";" RestoreData DSC
		Case "_" RestoreData DUS
		Case "." RestoreData DPE
		Case "(" RestoreData DLB
		Case ")" RestoreData DRB
		Case "?" RestoreData DQU
		Case "!" RestoreData DEX
		Default RestoreData  DEF
	End Select
	Local a,d
	ReadData a,d
	Repeat
		If x+a < pix.width And x+a >= 0
			If y+d < pix.height And y+d >= 0 
				WritePixel(pix,x+a,y+d,b)
			EndIf
		EndIf
		ReadData a
		If a < 0 Return Abs(a)
		ReadData d
	Forever
End Function


#DA DefData 0,0,0,1,0,2,0,3,0,4,1,0,1,3,2,0,2,1,2,2,2,3,2,4,-4
#DB DefData 0,0,0,1,0,2,0,3,0,4,1,0,1,2,1,4,2,1,2,3,-4
#DC DefData 0,0,0,1,0,2,0,3,0,4,1,0,1,4,-3
#DD DefData 0,0,0,1,0,2,0,3,0,4,1,0,1,4,2,1,2,2,2,3,-4
#DE DefData 0,0,0,1,0,2,0,3,0,4,1,0,1,2,1,4,-3
#DF DefData 0,0,0,1,0,2,0,3,0,4,1,0,1,2,-3
#DG DefData 0,1,0,2,0,3,1,0,1,4,2,1,2,3,2,4,-4
#DH DefData 0,0,0,1,0,2,0,3,0,4,1,2,2,0,2,1,2,2,2,3,2,4,-4
#DI DefData 0,0,0,4,1,0,1,1,1,2,1,3,1,4,2,0,2,4,-4
#DJ DefData 0,0,0,3,1,0,1,4,2,0,2,1,2,2,2,3,-4
#DK DefData 0,0,0,1,0,2,0,3,0,4,1,2,2,1,2,3,2,4,-4
#DL DefData 0,0,0,1,0,2,0,3,0,4,1,4,-3
#DM DefData 0,0,0,1,0,2,0,3,0,4,1,1,2,0,2,1,2,2,2,3,2,4,-4
#DN DefData 0,0,0,1,0,2,0,3,0,4,1,1,2,2,3,0,3,1,3,2,3,3,3,4,-5
#DO DefData 0,0,0,1,0,2,0,3,0,4,1,0,1,4,2,0,2,1,2,2,2,3,2,4,-4
#DP DefData 0,0,0,1,0,2,0,3,0,4,1,0,1,2,2,1,-4
#DQ DefData 0,0,0,1,0,2,0,3,1,0,1,3,2,0,2,1,2,2,2,3,2,4,3,4,-5
#DR DefData 0,0,0,1,0,2,0,3,0,4,1,0,1,2,2,1,2,3,2,4,-4
#DS DefData 0,0,0,1,0,2,0,4,1,0,1,2,1,3,1,4,-3
#DT DefData 0,0,1,0,1,1,1,2,1,3,1,4,2,0,-4
#DU DefData 0,0,0,1,0,2,0,3,0,4,1,4,2,0,2,1,2,2,2,3,2,4,-4
#DV DefData 0,0,0,1,0,2,0,3,1,4,2,0,2,1,2,2,2,3,-4
#DW DefData 0,0,0,1,0,2,0,3,0,4,1,3,2,0,2,1,2,2,2,3,2,4,-4
#DX DefData 0,0,0,1,0,3,0,4,1,2,2,0,2,1,2,3,2,4,-4
#DY DefData 0,0,1,1,2,0,2,1,2,2,2,3,2,4,-4
#DZ DefData 0,0,0,4,1,0,1,2,1,3,1,4,2,0,2,1,2,2,2,4,3,0,3,4,-5
#D1 DefData 0,1,0,4,1,0,1,1,1,2,1,3,1,4,2,4,-4
#D2 DefData 0,1,0,4,1,0,1,3,1,4,2,1,2,2,2,4,-4
#D3 DefData 0,0,0,2,0,4,1,1,1,3,-3
#D4 DefData 0,0,0,1,0,2,0,3,1,1,1,3,2,2,2,3,2,4,3,3,-5
#D5 DefData 0,0,0,1,0,2,0,4,1,0,1,2,1,4,2,0,2,3,-4
#D6 DefData 0,1,0,2,0,3,1,0,1,2,1,4,2,0,2,3,-4
#D7 DefData 0,0,1,0,1,2,1,3,1,4,2,0,2,1,-4
#D8 DefData 0,1,0,3,1,0,1,2,1,4,2,1,2,3,-4
#D9 DefData 0,1,0,4,1,0,1,2,1,4,2,1,2,2,2,3,-4
#D0 DefData 0,1,0,2,0,3,1,0,1,4,2,1,2,2,2,3,-4
#DMI DefData 0,2,1,2,-3
#DPL DefData 0,2,1,1,1,2,1,3,2,2,-4
#DEQ DefData 0,1,0,3,1,1,1,3,-3
#DST DefData 0,1,0,3,1,0,1,1,1,2,2,0,2,1,2,3,-3
#DDI DefData 0,3,0,4,1,2,2,0,2,1,-4
#DCO DefData 0,1,0,3,-2
#DCM DefData 0,4,1,3,-3
#DSC DefData 0,4,1,1,1,3,-3
#DUS DefData 0,4,1,4,-3
#DPE DefData 0,4,-2
#DLB DefData 0,1,0,2,0,3,1,0,1,4,-3
#DRB DefData 0,0,0,4,1,1,1,2,1,3,-3
#DQU DefData 0,0,0,2,0,4,1,0,1,1,-3
#DEX DefData 0,0,0,1,0,2,0,4,-2
#DEF DefData 0,0,0,1,0,2,0,3,0,4,1,0,1,4,2,0,2,1,2,2,2,3,2,4,-4

with overflow and wrapping protection. Not tested yet as I haven't had time.

CS_TBL

(Posted 2009) [#8]

Sounds like a nice little code challenge..: create a function that returns a pixmap with a complete ASCII font, in as little code/bytes as possible.