blitz-research
33 lines
1006 B
BlitzBasic
33 lines
1006 B
BlitzBasic
; TextureWidth and TextureHeight Example.
|
|
; ---------------------------------------
|
|
|
|
Graphics3D 640,480
|
|
|
|
; This bit of code creates 4 textures
|
|
; of different sizes and shapes.
|
|
|
|
texture1=CreateTexture(256,256,59)
|
|
texture2=CreateTexture(256,128,59)
|
|
texture3=CreateTexture(128,256,59)
|
|
texture4=CreateTexture(200,200,59)
|
|
|
|
; The following lines print the selected value
|
|
; of the texture, and reports the actual texture
|
|
; resolution.
|
|
|
|
|
|
Print "Texture 1 was created at 256x256"
|
|
Print "On your system the dimensions are "+TextureWidth(texture1)+"x"+TextureHeight(texture1)
|
|
Print
|
|
Print "Texture 2 was created at 256x128"
|
|
Print "On your system the dimensions are "+TextureWidth(texture2)+"x"+TextureHeight(texture2)
|
|
Print
|
|
Print "Texture 3 was created at 128x256"
|
|
Print "On your system the dimensions are "+TextureWidth(texture3)+"x"+TextureHeight(texture3)
|
|
Print
|
|
Print "Texture 4 was created at 200x200"
|
|
Print "On your system the dimensions are "+TextureWidth(texture4)+"x"+TextureHeight(texture4)
|
|
|
|
WaitKey
|
|
|
|
End |