Spectrum-Style Graphics

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|514\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Effects

Evil Roy Ferguso	Created : 07 June 2009 Edited : 27 July 2009 System : Windows Language : Blitz Spectrum-Style Graphics Does what it says on the tin.
This isn't exactly what I'd call optimized, but it more or less works for putting basic Spectrum-like graphics in your games. You can download this file, plus a small example program and the font file you'll need to get it working here. Include this file: ; speccygraphics.bb Const SpeccyWidth = 256 Const SpeccyHeight = 192 Global SpeccyLeft = 0 Global SpeccyTop = 0 Global SpeccyScaleX = 1 Global SpeccyScaleY = 1 Global SpeccyInkImg Global SpeccyPaperImg Global SpeccyPixelImg Global SpeccyScratchImg Global SpeccyFont Const SpeccyColors = 14 Dim SpeccyPal(SpeccyColors) Global SpeccyPalImg ; Element 0 is the color. ; Element 1 is the 'priority' of the color there. Dim SpeccyInk (32, 24, 1) Dim SpeccyPaper(32, 24, 1) ; Opens Spectrum graphics Function SpeccyGraphics(w=800, h=600, depth=0, mode=0) SpeccyLoadPal() Graphics w, h, depth, mode SpeccyScaleX = w/SpeccyWidth SpeccyScaleY = h/SpeccyHeight SpeccyInkImg = CreateImage(SpeccyWidthSpeccyScaleX, SpeccyHeightSpeccyScaleY) SpeccyPaperImg = CreateImage(SpeccyWidthSpeccyScaleX, SpeccyHeightSpeccyScaleY) SpeccyPixelImg = CreateImage(SpeccyWidthSpeccyScaleX, SpeccyHeightSpeccyScaleY) SpeccyScratchImg = CreateImage(SpeccyWidthSpeccyScaleX, SpeccyHeightSpeccyScaleY) ; Create "8x8" images for each color in our palette -- this tends to be faster ; than rects SpeccyPalImg = CreateImage(8SpeccyScaleX, 8SpeccyScaleY, SpeccyColors+1) For i = 0 To SpeccyColors SetBuffer ImageBuffer(SpeccyPalImg, i) Color 0, 0, SpeccyPal(i) Rect 0, 0, 8SpeccyScaleX, 8SpeccyScaleY Next MaskImage SpeccyPalImg, 12, 12, 12 ; antialiasing is unacceptable TFormFilter False SpeccyFont = SpeccyImage(LoadAnimImage("speccy_font.bmp", 8, 8, 0, 128)) ; this is what will allow our fabulous palettery MaskImage SpeccyPixelImg, 255, 255, 255 SpeccyLeft = (GraphicsWidth() - (SpeccyWidthSpeccyScaleX)) / 2 SpeccyTop = (GraphicsHeight() - (SpeccyHeightSpeccyScaleY)) / 2 End Function ; Load the spectrum palette. Function SpeccyLoadPal() Restore SpeccyPalData Local i, a For i = 0 To SpeccyColors Read a SpeccyPal(i) = a Next End Function ; Clears the spectrum screen's pixel data Function SpeccyCls() ;Local ob = GraphicsBuffer() SetBuffer ImageBuffer(SpeccyPixelImg) ClsColor 0, 0, 0 Cls For ix = 0 To 31 For iy = 0 To 23 SpeccyInk(ix, iy, 0) = -1 SpeccyInk(ix, iy, 1) = -1 Next Next ;SetBuffer ob End Function Function SpeccyClsPaper() ;Local ob = GraphicsBuffer() SetBuffer ImageBuffer(SpeccyPaperImg) ClsColor 0, 0, 0 Cls ;SetBuffer ob For ix = 0 To 31 For iy = 0 To 23 ;SpeccySetInk(ix, iy, 0, 0) SpeccyPaper(ix, iy, 1) = -1 SpeccyPaper(ix, iy, 0) = -1 Next Next End Function ; Draws a spectrumly image Function SpeccyDrawImage(sprite, x, y, col=14, frame=0, priority=0) Local iw = ImageWidth(sprite) / SpeccyScaleX; + x Mod 8 Local ih = ImageHeight(sprite) / SpeccyScaleY; + y Mod 8 ; Local tx = (x - iw/2) / 8 ; Local ty = (y - ih/2) / 8 ; if priority is greater, change it For ix = x To x + iw + 7 Step 4 For iy = y To y + ih + 7 Step 4 tx = ix / 8 ty = iy / 8 If tx < 0 Then tx = 32 If ty < 0 Then ty = 24 If tx > 31 Then tx = 32 If ty > 24 Then ty = 24 If priority >= SpeccyInk(tx, ty, 1) SpeccySetInk(tx, ty, col, priority) EndIf Next Next ; Local ob = GraphicsBuffer() SetBuffer ImageBuffer(SpeccyPixelImg) ; draw the image there anyway I guess DrawImage sprite, xSpeccyScaleX, ySpeccyScaleY, frame ; SetBuffer ob End Function ; Draws a spectrumly image Function SpeccyDrawImage2(sprite, x, y, col=14, frame=0, priority=0) ;Local ob = GraphicsBuffer() ;SetBuffer ImageBuffer(SpeccyPixelImg) ; draw the image there anyway I guess DrawImage sprite, xSpeccyScaleX, ySpeccyScaleY, frame ;SetBuffer ob End Function ; Draw the speccy screen Function SpeccyDrawScreen() ; Local ob = GraphicsBuffer() SetBuffer ImageBuffer(SpeccyScratchImg) DrawBlock SpeccyInkImg, 0, 0 DrawImage SpeccyPixelImg, 0, 0 SetBuffer BackBuffer() DrawBlock SpeccyPaperImg, SpeccyLeft, SpeccyTop DrawImage SpeccyScratchImg, SpeccyLeft, SpeccyTop End Function ; Updates the color attributes image Function SpeccySetInk(tx, ty, col, priority) ; change the color attribute if it's different If col <> SpeccyInk(tx, ty, 0) ; alter the attributes SpeccyInk(tx, ty, 0) = col SpeccyInk(tx, ty, 1) = priority ;Local ob = GraphicsBuffer() ; alter the color image SetBuffer ImageBuffer(SpeccyInkImg) ; draw a rectangle of the appropriate color ;Color 0, 0, SpeccyPal(col) ;Rect tx8 SpeccyScaleX, ty8SpeccyScaleY, 8SpeccyScaleX, 8SpeccyScaleY DrawBlock SpeccyPalImg, tx8SpeccyScaleX, ty8SpeccyScaleY, col ;SetBuffer ob EndIf End Function ; Updates the color attributes image for a range Function SpeccySetInkBlock(tx, ty, w, h, col) ; Local ob = GraphicsBuffer() ; alter the color image SetBuffer ImageBuffer(SpeccyInkImg) For xx = 0 To w-1 For yy = 0 To h-1 SpeccyInk(tx+xx, ty+yy, 0) = col SpeccyInk(tx+xx, ty+yy, 1) = 0 Next Next ; draw a rectangle of the appropriate color Color 0, 0, SpeccyPal(col) Rect tx8SpeccyScaleX, ty8SpeccyScaleY, 8SpeccyScaleXw, 8SpeccyScaleYh ;DrawBlock SpeccyPalImg, tx8SpeccyScaleX, ty8SpeccyScaleY, col ; SetBuffer ob End Function ; Draws a rectangle in an area Function SpeccyInkRect2(x, y, w, h, col) ; alter the color image SetBuffer ImageBuffer(SpeccyInkImg) ; draw a rectangle of the appropriate color Color 0, 0, SpeccyPal(col) Rect xSpeccyScaleX, ySpeccyScaleY, wSpeccyScaleX, hSpeccyScaleY ;DrawBlock SpeccyPalImg, tx8SpeccyScaleX, ty8SpeccyScaleY, col End Function ; Updates the color attributes image Function SpeccySetPaper(tx, ty, col, priority) ; change the color attribute if it's different If col <> SpeccyPaper(tx, ty, 0) ; alter the attributes SpeccyPaper(tx, ty, 0) = col SpeccyPaper(tx, ty, 1) = priority Local ob = GraphicsBuffer() ; alter the color image SetBuffer ImageBuffer(SpeccyPaperImg) ; draw a rectangle of the appropriate color ; Color 0, 0, SpeccyPal(col) DrawBlock SpeccyPalImg, tx8SpeccyScaleX, ty8SpeccyScaleY, col SetBuffer ob EndIf End Function ; Draw a "paper rectangle" Function SpeccyPaperRect(tx, ty, w, h, col, priority) For iy = ty To ty + h - 1 For ix = tx To tx + w - 1 SpeccySetPaper(ix, iy, col, priority) Next Next End Function ; Scales an image as necessary for the spectrum resolution Function SpeccyImage(img) ScaleImage img, SpeccyScaleX, SpeccyScaleY Return img End Function ; draw font, speccy-style Function SpeccyText(x, y, txt$, col=SpeccyBWhite) Local l = Len(txt) For i = 1 To l c = Asc(Mid(txt, i, 1))-32 SpeccyDrawImage SpeccyFont, x+(i-1)8, y, col, c Next End Function ; draw font, speccy-style -- faster. Function SpeccyText2(x, y, txt$, col=SpeccyBWhite) Local l = Len(txt) ;Local ob = GraphicsBuffer() SetBuffer ImageBuffer(SpeccyPixelImg) For i = 1 To l c = Asc(Mid(txt, i, 1))-32 SpeccyDrawImage2 SpeccyFont, x+(i-1)8, y, col, c Next SpeccySetInkBlock Floor(x/8.0), Floor(y/8.0), l, 1, col ;SetBuffer ob End Function Function CenteredSpeccyText(x, y, st$, col=SpeccyBWhite) SpeccyText x-4-4*Len(st), y, st, col End Function ; letterboxes the screen Function SpeccyDrawBorders() Rect 0, 0, GraphicsWidth(), SpeccyTop Rect 0, 0, SpeccyLeft, GraphicsHeight() Rect 0, GraphicsHeight()-SpeccyTop, GraphicsWidth(), SpeccyTop Rect GraphicsWidth()-SpeccyLeft, 0, SpeccyLeft, GraphicsHeight() End Function .SpeccyPalData Data 1 Data $000080 ; blue Data $0000ff ; bright blue Data $800000 ; red Data $ff0000 ; bright red Data $800080 ; magenta Data $ff00ff ; programmer's pink Data $008000 ; green Data $00ff00 ; bright green Data $008080 ; cyan Data $00ffff ; bright cyan Data $808000 ; yellow Data $ffff00 ; bright yellow Data $808080 ; that white thing Data $ffffff ; white Const SpeccyBlack = 0 Const SpeccyBlue = 1 Const SpeccyBBlue = 2 Const SpeccyRed = 3 Const SpeccyBRed = 4 Const SpeccyPink = 5 Const SpeccyBPink = 6 Const SpeccyGreen = 7 Const SpeccyBGreen = 8 Const SpeccyCyan = 9 Const SpeccyBCyan = 10 Const SpeccyYellow = 11 Const SpeccyBYellow= 12 Const SpeccyWhite = 13 Const SpeccyBWhite = 14 --v Loading an image becomes: Global img = LoadImage("asdfas") SpeccyImage(img) --v Your main loop will look something like this: Repeat SpeccyText 0, 0, Score, SpeccyWhite SpeccyDrawImage img, x, y, SpeccyGreen, frame SpeccyDrawScreen Color 16, 16, 16 SpeccyDrawBorders Flip --v The difference between the 2/regular versions is that the "2" versions are marginally faster but also are constrained to drawing 8x8 pixel images to coordinates that are multiples of 8 pixels.

Comments
Sunday, 26 July 2009, 13:43
JL235	I tried this, but was unable to get it to work. I just get a black screen. Perhaps you could upload a folder with a BB project all written and ready to run.
Sunday, 26 July 2009, 14:44
Evil Roy Ferguso	I'll write up a more complete example soon. In retrospect, not including a complete working example is something of a glaring omission. Does Zieks also show a blank screen? If so, then the effect itself is broken on your hardware and I will need to fix it. (This is something of a concern, since the buffer stuff it's doing IS kind of weird.)
Sunday, 26 July 2009, 14:51
JL235	Yes, Zieks worked fine.
Monday, 27 July 2009, 01:22
Evil Roy Ferguso	Here's a quick example.
Monday, 27 July 2009, 16:46
steve_ancell	'Spec'tacular

Spectrum-Style Graphics

Comments