Sorry your browser is not supported!

// Project: magnifyer 
// Created: 2017-12-22

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "magnifyer" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


picturemem = LoadImage("\media\test.png")
pic = CreateMemblockFromImage(picturemem)
picsize#=GetMemblockSize(pic)
picture = CreateSprite(picturemem)
picwidth# = GetMemblockint(pic,0)
picheight# = GetMemblockInt(pic,4)

// *************************
// Chnage this value depending on size of magnifer - the larger the more fps is will swallow - so use this wisely
magnifiersize#=80
magnifierimg = createmagifier(magnifiersize#)
// *************************


mag = CreateMemblockFromImage(magnifierimg)
orginalmag = CreateMemblockFromImage(magnifierimg)
imgsize# = GetMemblockSize(mag)

magnifier = CreateSprite(magnifierimg)
do
	
	// magnify from the centre of the magnifier to the position on the screen
	wherex=getpointerx()-magnifiersize# / 2
	wherey=getpointery()-magnifiersize# / 2
	if wherex<0 then wherex=0
	if wherey<0 then wherey=0
	if wherex>picwidth# then wherex=picwidth#
	if wherey>picheight#-magnifiersize#*2 then wherey=picheight#-magnifiersize#*2


	SetSpritePosition(magnifier, wherex,wherey)
	SetSpriteAngle(magnifier,angle#)

	// change this to rotate the magnifier (cool effect)
	angle#=angle#+0

	
	C=4
	//loop round the size of the magifier
	for a=0 to (magnifiersize# * 2)-1
		
		for b=0 to (magnifiersize#*2)-1
		
			offset=12 + ((((wherey+a) * picwidth#) + wherex+b) *4)-4
			if offset>imgsize#-12 
				newr=GetMemblockInt(pic, offset)
				newg=GetMemblockInt(pic, offset+1)
				newb=GetMemblockInt(pic, offset+2)
				newa=GetMemblockInt(pic, offset+3)
			endif
			newoffset=12 + ((((a * (magnifiersize#*2)) + b) * 4))-4

						
			if c + newoffset<imgsize#-12 
				grabr = GetMemblockInt(orginalmag,c+newoffset)
				if grabr>3
					SetMemblockInt(mag, c+newoffset, newr)
				else
					SetMemblockInt(mag, c+newoffset+3, grabr)
			
				endif
			endif
		
			if c + newoffset + 1<Imgsize#-12
				grabg = GetMemblockInt(orginalmag,c+newoffset+1)
				if grabg>3
					SetMemblockInt(mag, c+newoffset+1, newg)
				else
					SetMemblockInt(mag, c+newoffset+3, grabg)
			
				endif
			endif
		
		
			if c + newoffset +2 <imgsize#-12
				grabb = GetMemblockInt(orginalmag,c+newoffset+2)
				if grabb>3
					SetMemblockInt(mag, c+newoffset+2, newb)
				else
					SetMemblockInt(mag, c+newoffset+3, grabb)
				
				endif
			endif
		
			if c+newoffset+3< imgsize#-12
				graba = GetMemblockInt(orginalmag,c+newoffset+3)
				if graba>3
					SetMemblockInt(mag, c+newoffset+3, newa)
				else
					SetMemblockInt(mag, c+newoffset+3, graba)
				endif	
			endif
		
			inc c, 4
		next
		
	next
	img = CreateImageFromMemblock(mag)

	SetSpriteImage(magnifier, img)
	
	
	Print( ScreenFPS() )
	Render2DFront()
    Sync()
loop

function createmagifier(size#)
	
	render()
	
	DrawBox(size#,size#,size#*2+(size#+100),size#+10,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
	DrawBox(size#,size#,size#*2+(size#+100),size#+9,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),0)
	for a=1 to 5
		DrawEllipse(size#,size#,size#-a,size#-a,MakeColor(0,0,0),MakeColor(0,0,0),0)
		DrawEllipse(size#,size#,(size#-5)-a,(size#-5)-a,MakeColor(255,255,255),MakeColor(255,255,255),0)
		
	next
	
	DrawEllipse(size#,size#,size#-10,size#-10,MakeColor(3,3,3),MakeColor(3,3,3),1)
	
	swap()
	img = GetImage(0,0,size#*2,size#*2)
	
endfunction img

// Project: TV 
// Created: 2017-12-24

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "TV" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

tvimg = createanimage()
TV = CreateSprite(tvimg) // this can be loadimage something too

do
    SetSpritePosition(tv,getpointerx(),getpointery())
	tvimg = tvstatic(tvimg)
    SetSpriteImage(tv,tvimg)
    
    Print( ScreenFPS() )
    Sync()
loop

function tvstatic(id)
	mem = CreateMemblockFromImage(id)
	width=GetMemblockInt(mem,0)
	height = GetMemblockInt(mem,4)
	imgsize# = GetMemblockSize(mem)
	
	
	for wherex=20 to width-20
		for wherey=20 to height-20		
			offset=12 + (((wherey * width) + wherex) *4)
			
			bw = random(0,255)
			

				SetMemblockInt(mem, offset, bw)
				SetMemblockInt(mem, offset+1, bw)
				SetMemblockInt(mem, offset+2, bw)
			
			SetMemblockInt(mem, offset+3, bw)
			
			
		next
	next
	
	img = CreateImageFromMemblock(mem)
	DeleteMemblock(mem)
endfunction img


function createanimage()
	swap()
	DrawBox(0,0,200,200,MakeColor(255,0,0),MakeColor(0,255,0),MakeColor(0,0,255),MakeColor(255,255,255),1)
//	DrawEllipse(100,100,100,100,MakeColor(255,0,0),MakeColor(255,0,0),1)
	render()
	img= getimage(0,0,200,200)
endfunction img
	

// Project: tinter 
// Created: 2017-12-24

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "TV" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

tvimg = createanimage()

TVstand = CreateObjectBox(5,5,5)
SetObjectImage(tvstand,tvimg,1)

angx#=0:angy#=0:angz#=0
do



	tvimg = tvstatic(tvimg)
    SetObjectImage(tvstand,tvimg,1)

	SetObjectRotation(tvstand,angx#,angy#,angx#)
	inc angx#,.5
    
    Print( ScreenFPS() )
    Sync()
loop

function tvstatic(id)
	mem = CreateMemblockFromImage(id)
	width=GetMemblockInt(mem,0)
	height = GetMemblockInt(mem,4)
	imgsize# = GetMemblockSize(mem)
	
	
	for wherex=20 to width-20
		for wherey=20 to height-20		
			offset=12 + (((wherey * width) + wherex) *4)
			
			bw = random(0,255)
			

				SetMemblockInt(mem, offset, bw)
				SetMemblockInt(mem, offset+1, bw)
				SetMemblockInt(mem, offset+2, bw)
			
			SetMemblockInt(mem, offset+3, bw)
			
			
		next
	next
	
	img = CreateImageFromMemblock(mem)
	DeleteMemblock(mem)
endfunction img


function createanimage()
	swap()
	DrawBox(0,0,200,200,MakeColor(255,0,0),MakeColor(0,255,0),MakeColor(0,0,255),MakeColor(255,255,255),1)
//	DrawEllipse(100,100,100,100,MakeColor(255,0,0),MakeColor(255,0,0),1)
	render()
	img= getimage(0,0,200,200)
endfunction img
	

// Project: tinter 
// Created: 2017-12-24

#option_explicit
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "TV" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

Global tvimg, TVstand, angx#, angy#, angz#
tvimg = createanimage()
 
TVstand = CreateObjectBox(5,5,5)
SetObjectImage(tvstand,tvimg,1)
 
angx#=0:angy#=0:angz#=0

MakeSound()
PlaySound(sound,100,1)
do
 
    tvimg = tvstatic(tvimg)
    SetObjectImage(tvstand,tvimg,1)
 
    SetObjectRotation(tvstand,angx#,angy#,angx#)
    inc angx#,.5


    print("                                            'I want my, I want my, I want my MTV..'    ;-) ")
    print("                                                              (click mouse to exit) ")
    if GetPointerPressed() then exit
    Print( ScreenFPS() )
    Sync()
loop

 
Function tvstatic(id)

	global mem, width, height, imgsize#
	
    mem = CreateMemblockFromImage(id)
    width=GetMemblockInt(mem,0)
    height = GetMemblockInt(mem,4)
    imgsize# = GetMemblockSize(mem)
     
    global wherex, wherey, offset, bw
    for wherex=20 to width-20
        for wherey=20 to height-20      
            offset=12 + (((wherey * width) + wherex) *4)
             
            bw = random(0,255)
             
 
                SetMemblockInt(mem, offset, bw)
                SetMemblockInt(mem, offset+1, bw)
                SetMemblockInt(mem, offset+2, bw)
             
            SetMemblockInt(mem, offset+3, bw)
             
             
        next
    next
     
    img = CreateImageFromMemblock(mem)
    DeleteMemblock(mem)
endfunction img
 
 
function createanimage()
    swap()
    DrawBox(0,0,200,200,MakeColor(255,0,0),MakeColor(0,255,0),MakeColor(0,0,255),MakeColor(255,255,255),1)
//  DrawEllipse(100,100,100,100,MakeColor(255,0,0),MakeColor(255,0,0),1)
    render()
    global img
    img= getimage(0,0,200,200)
endfunction img


// ----------------------------------
//create sound wave in memory
Function MakeSound()
	sec as integer
	sec = 1 
	 
	data as integer 
	data = sec * (44100 * (2*2)) // 176400 bytes per second

	 
	frames as integer
	frames = data 

	frames = frames /4 
	 
	size as integer
	size = 2+2+4+4 + data
	 
	local mem as integer 
	mem = CreateMemblock(size)
	  
	SetMemblockByte(mem,0, 2) //The first 2 bytes of the memlbock store the number of channels (1 or 2 supported)
	SetMemblockByte(mem,1, 0)
	SetMemblockByte(mem,2,16) //the next 2 bytes store the bits per sample (8 (1 byte) or 16 (2 byte) supported)
	SetMemblockByte(mem,3, 0)
	SetMemblockint(mem,4,44100) // the next 4 bytes store the samples per second, for example 44100
	SetMemblockint(mem,8,frames) // The next 4 bytes are the number of frames in the sound data, the size of the sound data in bytes can be calculated from this with the formula numFrames*(bitsPerSample/8)*channels.
	 
	local i as integer
	local value as integer
	value=0
	local w as float
	w=0

	 
	local Hz as float
	Hz = 8000.0

	
	for i=0 to data -1 step 4 //
		w=w+(random(1,360) / 44100.0) * Hz
		//w=w+(random(1,360) / 44100.0) * Hz // creates static!
		if w > 360.0 then w = w -360.0
	 
		value = sin(w)*32767.0 //Max −32768 through 32767
	 
		SetMemblockShort(mem,12+i+0 ,value) // short 2 bytes −32768 through 32767
		SetMemblockShort(mem,12+i+2 ,value) // short 2 bytes −32768 through 32767
	 next
	global sound as integer
	sound = CreateSoundFromMemblock(mem)
EndFunction