QOTD : Cheap and neat graphical tricks

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|432\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Question of the Day -> QOTD : Cheap and neat graphical tricks
Sat, 12 Sep 2009, 04:28
Jayenkai	The other week (Painter) I discovered a neat effect for floor tiles. I figured Spinal might want to know this for his Sensitive game's floor, but others might use it, too. So, why not open a nice big sprawling topic whilst I'm at it! Post your own neat graphical tricks here. Cheapass Parallax Water Step 1, draw a floor. Step 2, cut out part of the floor. Step 3, parallax the two layers, with the cutout-version on top. Graphics 800,600,32,2 waterBottom=CreateImage(256,256) SetBuffer ImageBuffer(waterBottom) For x=0 To 255 For y=0 To 255 Color 0,0,Rand(150,250) If Rand(1,20)=1 Then Color 50,50,255 Plot x,y Next Next waterTop=CopyImage(waterBottom) ScaleImage watertop,-1,-1 ; flip image horizontally and vertically SetBuffer ImageBuffer(waterTop) Color 0,0,0 For x=0 To 255 For y=0 To 255 If Rand(0,2)=1 Then Plot x,y Next Next SetBuffer BackBuffer() scrx#=0 scry#=0 Repeat Cls TileImage waterBottom,scrx0.2,scry0.2 TileImage waterTop,scrx0.5,scry0.5 scrx=scrx+(KeyDown(205)-KeyDown(203)) scry=scry+(KeyDown(208)-KeyDown(200)) Flip Until KeyDown(1) --v Works for water quite nicely, and gives your plain floor a little extra depth. -=-=- ''Load, Next List!''
Sun, 13 Sep 2009, 06:36
CodersRule	Hurts the eyes a bit, but if it was a bit darker it would be really good water for a sprite-ish game. Nice work Jay
Sun, 13 Sep 2009, 08:24
HoboBen	Lightning effect I had laying around: Program Uses cobra2d, keyset Type weapPoints = Record { For primary weapon fx } x, y: Integer EndType Var weapPoint :^weapPoints weapPointList : List of weapPoints weapSpr: Element Procedure NewLightening(width: Integer) ; Export Var x: Integer Begin weapSpr = CreateSprite(width, 64) PositionSprite(weapSpr, 100, 400) SetSpritePivot(weapSpr, 0, 32) For x = 0 to 40 weapPoint = NewItem(weapPointList) weapPoint.x = width * (x/40.0) Next End Procedure RenderLightening(ang: Integer) ; Export Var lx, ly: Integer Begin CLS(ToRGBA(0,0,0,0), weapSpr) lx = -7 ly = 32 Loop weapPoint through weapPointList weapPoint.y = Rand(7,64-7) Line(lx, ly-7, weapPoint.x, weapPoint.y-7, ToRGBA(0,0,200, 100), weapSpr) Line(lx, ly-6, weapPoint.x, weapPoint.y-6, ToRGBA(0,0,200, 200), weapSpr) Line(lx, ly-5, weapPoint.x, weapPoint.y-5, ToRGBA(0,0,200), weapSpr) Line(lx, ly-4, weapPoint.x, weapPoint.y-4, ToRGBA(0,0,255), weapSpr) Line(lx, ly-3, weapPoint.x, weapPoint.y-3, ToRGBA(100,100,255), weapSpr) Line(lx, ly-2, weapPoint.x, weapPoint.y-2, ToRGBA(150,200,255), weapSpr) Line(lx, ly-1, weapPoint.x, weapPoint.y-1, ToRGBA(200,200,255), weapSpr) Line(lx, ly, weapPoint.x, weapPoint.y, ToRGBA(255,255,255), weapSpr) Line(lx, ly+1, weapPoint.x, weapPoint.y+1, ToRGBA(200,200,255), weapSpr) Line(lx, ly+2, weapPoint.x, weapPoint.y+2, ToRGBA(150,200,255), weapSpr) Line(lx, ly+3, weapPoint.x, weapPoint.y+3, ToRGBA(100,100,255), weapSpr) Line(lx, ly+4, weapPoint.x, weapPoint.y+4, ToRGBA(0,0,255), weapSpr) Line(lx, ly+5, weapPoint.x, weapPoint.y+5, ToRGBA(0,0,200), weapSpr) Line(lx, ly+6, weapPoint.x, weapPoint.y+6, ToRGBA(0,0,200, 200), weapSpr) Line(lx, ly+7, weapPoint.x, weapPoint.y+7, ToRGBA(0,0,200, 100), weapSpr) lx = weapPoint.x ly = weapPoint.y EndLoop SpriteAngle(weapSpr, ang + 90) End Begin OpenScreen(800, 600, 32, FALSE) NewLightening(256) While KeyHits(VK_ESCAPE) < 1 RenderLightening(0) Flip Pause(1) Wend End --v -=-=- blog \| work \| code \| more code