[bb] Tile2Iso by pc_tek [ 1+ years ago ]

Started by BlitzBot, June 29, 2017, 00:28:41

Previous topic - Next topic
Print
Go Down Pages1
User actions

BlitzBot

June 29, 2017, 00:28:41
Title : Tile2Iso
Author : pc_tek
Posted : 1+ years ago

Description : Converts square tile to an Isometric image.

Code :
Code (blitzbasic) Select
; Author: JP Hamilton 2011
; Title: Tile2Iso.bb creates Isometric images from a uniform tile.  Floor, Left & Right
; Inputs:  1 tile of equal sides (32x32, 64x64...etc)
; Outputs: 1 image containing the Isometric images
Graphics3D 640,480,32,2
filein$="image.png"
fileout$="slab1.bmp"

GFX_In=LoadImage(filein$)
GFX_Out=CreateImage(ImageWidth(GFX_In)*4,ImageHeight(GFX_In)+ImageHeight(GFX_In)/2)

For x=0 To ImageWidth(GFX_In)-1
For y=0 To ImageHeight(GFX_In)-1
ix=x+y:iy=ImageWidth(GFX_In)/2-Int(x/2)+y/2
WritePixel ix+0,iy,ReadPixel(x,y,ImageBuffer(GFX_In))
WritePixel ix+1,iy,ReadPixel(x,y,ImageBuffer(GFX_In))
Next
Next

For x=0 To ImageWidth(GFX_In)-1
For y=0 To ImageHeight(GFX_In)-1
ix=x:iy=y+x/2
WritePixel ix+ImageWidth(GFX_In)*2,iy+1,ReadPixel(x,y,ImageBuffer(GFX_In))
Next
Next

For x=0 To ImageWidth(GFX_In)-1
For y=0 To ImageHeight(GFX_In)-1
ix=x:iy=ImageWidth(GFX_In)/2-x/2+y
WritePixel ix+ImageWidth(GFX_In)*3,iy,ReadPixel(x,y,ImageBuffer(GFX_In))
Next
Next

GrabImage GFX_Out,0,0
SaveImage(GFX_Out,fileout$)
EndGraphics
End

Comments :


Andy_A(Posted 1+ years ago)

 This could be useful to non-artist types like me.  Nice!
Print
Go Up Pages1
User actions