The SiMPLE Program Gallery

< Prev | The SiMPLE Program Gallery | Next >

Double-Size ASCII Characters

The "display2" task (given in the source listng here) allows you to display text strings at twice their normal size (and in color) on the graphics screen. You can also display rotated text.

Source Listing

// // Program: Double-Size ASCII Characters // Author: Jim Richmond // Pro-SiMPLE graphon tabxy (20, 2); display2 (" Green text on black ", 2, 0, 0) @ tabxy (8, 22); display2 (" Red text on yellow ", 12, 14, 1) @ tabxy (60, 21); display2 (" Gray text on purple ", 8, 5, 2) @ tabxy (72, 3); display2 (" Blue text on white ", 9, 15, 3) @ tabxy (27, 12); Display "Normal text (white on black)" Task display2 (Text text, Int forecolor, Int backcolor, Int direction) // // direction=0, Text is rotated zero degrees (Runs from Left to Right) // direction=1, Text is rotated 90 degrees (Runs from Bottom to Top) // direction=2, Text is rotated 180 degrees (Runs from Right to Left) // direction=3, Text is rotated 270 degrees (Runs from Top to Bottom) // Int pixel[8][16] graphon solid color (backcolor) Do i = 0, length(text)-1 Display extract(text,i,i), xul=8*(wherex()-2); yul=16*(wherey()-1) Do y = 0, 15 Do x = 0, 7 pixel[x][y]=getpixel(xul+x, yul+y) Loop Loop dir=cycle (direction, 4) If dir=0 Or dir=2 solid rectangle (xul, yul, xul+15, yul+31) Do y = 0, 15 Do x = 0, 7 If (dir=0 And !pixel[x][y]) Continue If (dir=2 And !pixel[7-x][15-y]) Continue putpixel(xul+2*x, yul+2*y, forecolor) putpixel(xul+2*x+1, yul+2*y, forecolor) putpixel(xul+2*x, yul+2*y+1, forecolor) putpixel(xul+2*x+1, yul+2*y+1, forecolor) Loop Loop If (dir=0) htab (wherex()+1) Else htab (wherex()-3) Endif If dir=1 Or dir=3 solid rectangle (xul, yul, xul+31, yul+15) Do y = 0, 15 Do x = 0, 7 If (dir=1 And !pixel[x][y]) Continue If (dir=3 And !pixel[7-x][15-y]) Continue putpixel(xul+2*y, yul-2*x+15, forecolor) putpixel(xul+2*y+1, yul-2*x+15, forecolor) putpixel(xul+2*y, yul-2*x+14, forecolor) putpixel(xul+2*y+1, yul-2*x+14, forecolor) Loop Loop If (dir=1) tabxy (wherex()-1, wherey()-1) Else tabxy (wherex()-1, wherey()+1) Endif Loop

How To Run The Program

If you're feeling ambitious and have nothing better to do, you could just copy
the source listing by hand! However, there is a much easier way to do it:

Copy the source listing into the Windows Clipboard

Paste the Clipboard into a new text document

Drop that text document onto the "Drop SiMPLE Listing Here" icon

(If you would like to contribute any of your SiMPLE programs to The Gallery, just e-mail them to us.)