Sorry your browser is not supported!

line1 = createSprite(0)






function setLine(lineId as integer, x1 as integer, y1 as integer, x2 as integer, y2 as integer, size as integer)

	// calculate length of the line
	length = sqrt((x2-x1)^2 + (y2-y1)^2)
	// set sprite to match length of line and thickness desired
	setSpriteSize(lineId, length, size)
	// for easier positioning of sprite due to thickness, offset origin to half the thickness value
	setSpriteOffset(lineId, 0, size/2)
	// position sprite at start of line
	setSpritePosition(lineId, x1, y1)
	// rotate sprite so the end reaches the endpoint of the line
	// assuming atanfull works how I think it does
	setSpriteAngle(lineId, atanfull(x2-x1, y2-y1)-90)
endfunction

// Project: drawstroke 
// Created: 2018-02-21

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "drawstroke" )
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


do
    
	DrawMyline(100,100,200,200,10)
    Print( ScreenFPS() )
    Sync()
loop

function DrawMyline (x1,y1,x2,y2,size)

	for a=0 to size
// left and right
		DrawLine(x1+a,y1,x1+a,y2,MakeColor(255,255,255),MakeColor(255,255,255))
		DrawLine(x2-a,y1,x2-a,y2,MakeColor(255,255,255),MakeColor(255,255,255))

//top and bottom
		DrawLine(x1,y1-a,x2,y1-a,MakeColor(255,255,255),MakeColor(255,255,255))
		DrawLine(x1,y2-a,x2,y2-a,MakeColor(255,255,255),MakeColor(255,255,255))
	next
endfunction

// Project: TestSpriteLIneFunc 
// Created: 2018-02-21

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "TestSpriteLIneFunc" )
SetWindowSize( 720, 405, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 720, 405 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 1 ) // 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

// set print properties
SetPrintSize( 24 )
SetPrintColor( 255, 255, 0 )

global thickness as float	= 0.2
global x1 as float			= 0.0
global y1 as float			= 0.0

global switch as integer


CreateSprite(1, 0 )


do
	if GetRawKeyPressed( 27 ) then end
    
    
    if switch
		inc thickness, 0.2
		if thickness > 10.0 then switch = 0
	else
		dec thickness, 0.2
		if thickness < 1.0 then switch = 1
	endif
    
    if GetPointerPressed()
		x1 = GetPointerX()
		y1 = GetPointerY()
	endif
    
	SpriteToLine( 1, thickness, x1, y1, GetPointerX(), GetPointerY() )

	PrintC( "FPS: " ) : Print( Str( ScreenFPS(), 0 ) )
    Sync()
loop


function SpriteToLine( _sprID, _Size#, _x1#, _y1#, _x2#, _y2# )
	if GetSpriteExists( _sprID )
		// Get direction vector.
		_dx# = _x2# - _x1#
		_dy# = _y2# - _y1#
		
		// Get the center point between the two points.
		_cx# = _x1# + ( _dx# * 0.5 )
		_cy# = _y1# + ( _dy# * 0.5 )
		
		// Get the distance between the two points.
		_dist# = ( _dx# ^ 2.0 + _dy# ^ 2.0 ) ^ 0.5
		
		// Get the angle between the two points.
		_ang# = ATanFull( _dx#, _dy# )
		
		SetSpriteSize( _sprID, _Size#, _dist# )
		SetSpritePositionByOffset( _sprID, _cx#, _cy# )
		SetSpriteAngle( _sprID, _ang# )
	endif
endfunction