Sorry your browser is not supported!

// Project: test image wrap 
// Created: 2015-12-27

// set window properties
SetWindowTitle( "test image wrap" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

ClearScreen()

// draw an image
white = MakeColor(255,255,255)
red = MakeColor(255,0,0)
DrawBox(0,0,64,64,red,red,red,red,1)
DrawEllipse(32,32,32,32,white,white,1)

// grab the image for the first sprite
// with an auto-generated sprite ID
// and set the image uv wrap to "repeat"
MyImage = GetImage(0,0,64,64)
SetImageWrapU(MyImage, 1) 
SetImageWrapv(MyImage, 1)

// grab it again for the second sprite
// with an assigned sprite ID
// and set the image uv wrap to "repeat"
MyImage2 = GetImage(0,0,64,64)
SetImageWrapU(MyImage2, 1) 
SetImageWrapv(MyImage2, 1)

// create the two sprites
MySprite = CreateSprite(MyImage)
CreateSprite(1,MyImage2)
SetSpritePosition(MySprite, 100,100)
SetSpritePosition(1,200,100)

// use two methods to change the uv
// coords of the image on each sprite
SetSpriteUVScale(MySprite, .25, .25)
SetSpriteUV(1, 0,0, 0,3, 3,0, 3,3) 

setclearcolor(0,0,255) 

do
    Sync()
loop

// set window properties
SetWindowTitle( "sprites U V" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )

_Blue   = MakeColor(0,0,175)
_Yellow = MakeColor(175,175,0)
_Green  = MakeColor(0,175,0)
_Red    = MakeCOlor(175,0,0)

Render()
DrawBox(0,0,255,63,_Blue, _Blue, _Blue, _Blue, 1) 
DrawBox(0,64,255,127,_Yellow, _Yellow, _Yellow, _Yellow, 1) 
DrawBox(0,128,255,191,_Green, _Green, _Green, _Green, 1)
DrawBox(0,192,255,255,_Red, _Red, _Red, _Red, 1) 

DrawBox(0 + 400,0,63 + 400,255,_Blue, _Blue, _Blue, _Blue, 1) 
DrawBox(63 + 400,0,127 + 400,255,_Yellow, _Yellow, _Yellow, _Yellow, 1) 
DrawBox(127 + 400,0,191 + 400,255,_Green, _Green, _Green, _Green, 1)
DrawBox(191 + 400,0,255 + 400,255,_Red, _Red, _Red, _Red, 1) 

Render()
x = 150
repeat 
	inc x, 1
	Horizontal  = GetImage(0,0,x,x)
until GetImageWidth(Horizontal) = 256
Vertical    = GetImage(0 + 400,0,x,x)
ClearScreen()

SetImageWrapU(Horizontal, 1) : SetImageWrapV(Horizontal, 1)
SetImageWrapU(Vertical, 1) : SetImageWrapV(Vertical, 1)

_Sprite(Horizontal, Horizontal, 0,450,256, 255,255,255,255)
_Sprite(Vertical, Vertical, 400,450,256, 255,255,255,255)

SetClearColor(75,75,75)

Text1 = CreateText("Original images") : SetTextSize(Text1, 16) : SetTextPosition(Text1, 255, 268)
Text2 = CreateText("Sprite V changes                        Sprite U changes") : SetTextSize(Text2, 16) : SetTextPosition(Text2, 0, 400)



WrapU# = 0
WrapV# = 0

do      
	print(GetImageWidth(Horizontal))      
	print(GetImageHeight(Horizontal))      
	print(GetImageWidth(Vertical))      
	print(GetImageWidth(Vertical))      
        DrawBox(0,0,255,63,_Blue, _Blue, _Blue, _Blue, 1) 
        DrawBox(0,64,255,127,_Yellow, _Yellow, _Yellow, _Yellow, 1) 
        DrawBox(0,128,255,191,_Green, _Green, _Green, _Green, 1) 
        DrawBox(0,192,255,255,_Red, _Red, _Red, _Red, 1)
        
        DrawBox(0 + 400,0,63 + 400,255,_Blue, _Blue, _Blue, _Blue, 1) 
        DrawBox(63 + 400,0,127 + 400,255,_Yellow, _Yellow, _Yellow, _Yellow, 1) 
        DrawBox(127 + 400,0,191 + 400,255,_Green, _Green, _Green, _Green, 1)
        DrawBox(191 + 400,0,255 + 400,255,_Red, _Red, _Red, _Red, 1) 
        
        inc WrapU#, -0.007
        inc WrapV#, -0.007
        
        SetSpriteUVOffset(Horizontal, 0, WrapV#)
        SetSpriteUVOffset(Vertical, WrapU#, 0)
        if GetRawKeyReleased(27) then end 
        Sync()
loop

function _Sprite(num, img, x#, y#, size#,  Cr, Cg, Cb, Ca)
        CreateSprite(num, img)
        SetSpritePosition(num, x#, y#)
        SetSpriteColor(num, Cr, Cg, Cb, Ca)
        setSpriteSize(num, size#, size#)
Endfunction