Draw Line Function. Need Help - GameCreators Forum

Author

Message

Stormwire

13

Years of Service

User Offline

Joined: 3rd Sep 2010

Location:

Posted: 19th Jan 2012 23:40 Edited at: 20th Jan 2012 16:05

Link

I have no idea why this program isnt working. I have coded it several times in several different ways and cant figure out why the Lerp function isnt working now. Please read the code and let me know if you know why it isnt working. Thanks in advance.

+ Code Snippet



SetVirtualResolution(480,480)

dot = CreateSprite(myimage)
SetSpritePosition(dot,-32,0)
SetSpriteSize(dot,4,4)
SetSpriteColor(dot, 100,0,200,255)

Dim ylist[15] As Integer

Do
    
    If GetRawKeyPressed(32) = 1
        
        For i = 10002 To dot2
            
            DeleteSprite(i)
            
        Next i
        
        For x = 0 To 14
    
            ylist[x] = Random(200,400)
    
        Next x
        
        For y = 0 To 14
            mu# = 0.0
            For z = 1 To 32
                mu# = mu# + 0.1
                dot2 = CloneSprite(dot)
                SetSpritePosition(dot2, x, LinearInterpolation(ylist[y],ylist[y+1],mu#))
                
            Next z
            
            Inc x,32
        Next x
        
        x = 0
    EndIf
    
    If GetRawKeyPressed(27) = 1 Then End
    Print("Press Space")
Sync()
Loop

Function LinearInterpolation(y1#,y2#,mu#)
    
    result# = y1#*(1-mu#)+y2#*mu#
    
EndFunction result#

Back to top

Profile PM Email

3d point in space

14

Years of Service

User Offline

Joined: 30th Jun 2009

Location: Idaho

Posted: 19th Jan 2012 23:52 Edited at: 19th Jan 2012 23:53

Link

use text "." should work.
then position the "." on the screen.
you can also color text too.
use postiontext to position characters.
making multiple dots like this will actually save you from loading a picture.

Go through yourself at a wall.

Back to top

Profile PM Email Website

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 20th Jan 2012 10:17

Link

The function itself seems fine. I got it to draw a series of dots the way I expected:

+ Code Snippet

SetVirtualResolution(640,480)

x1# = 50
y1# = 360
x2# = 590
y2# = 120
spr = createSprite(0)
setSpriteColor(spr,255,0,0,255)
setSpriteSize(spr,8,8)
setSpriteOffset(spr,4,4)
setSpriteAngle(spr,45)
setSpritePositionByOffset(spr,x1#,y1#)
spr = createSprite(0)
setSpriteColor(spr,255,0,0,255)
setSpriteSize(spr,8,8)
setSpriteOffset(spr,4,4)
setSpriteAngle(spr,45)
setSpritePositionByOffset(spr,x2#,y2#)

for x=1 to 9
	spr = createSprite(0)
	setSpriteColor(spr,255,255,0,255)
	setSpriteSize(spr,4,4)
	setSpriteOffset(spr,2,2)
	setSpriteAngle(spr,45)
	mu# = x*0.1
	setSpritePositionByOffset(spr,50+x*(x2#-x1#)*0.1,LinearInterpolation(y1#,y2#,mu#))
next

Do
    If GetRawKeyPressed(32) = 1 Then End
    Print("Press Space To End")
Sync()
Loop

Function LinearInterpolation(y1#,y2#,mu#)
    
    result# = y1#*(1-mu#)+y2#*mu#
    
EndFunction result#

I couldn't quite understand what you were trying to do with your own code though so I couldn't help.

Maybe if you could explain better?

Back to top

Profile PM Email

Stormwire

13

Years of Service

User Offline

Joined: 3rd Sep 2010

Location:

Posted: 20th Jan 2012 15:50 Edited at: 20th Jan 2012 16:00

Link

Sorry for the lack of information

I was wrecked after trying to fix this for a few hours. Anyway what the code is meant to do is:

Press space
Create random points
Interpolate between points

Thats realy it lol For some reason the Interpolation function just doesnt work here. I have made the code as simple as I could for what was needed but it may not be the best

Here is a pic of what the end result should look like.

Attachments

Login to view attachments

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 20th Jan 2012 16:23

Link

Does this help?

+ Code Snippet


SetVirtualResolution(640,480)

dim point[5] as float

for a=0 to 5
    x# = 128 * a
    y# = random(0,480)
    drawPoint(x#,y#,1)
    point[a] = y#
next

for b=0 to 4
	y1# = point[b]
	y2# = point[b+1]
	for c=0 to 10
		x# = 128 * b + (c * 12.8)
		y# = LinearInterpolation(y1#,y2#,c/10.0)
		drawPoint(x#,y#,2)
	next
next

Do
    If GetRawKeyPressed(32) = 1 Then End
    Print("Press Space To End")
    Sync()
Loop

function drawPoint(x#,y#,typ)
    spr = createSprite(0)
    if typ=1
        size# = 8
        setSpriteColor(spr,255,0,0,255)
    else
        size# = 4
        setSpriteColor(spr,255,255,0,255)
    endif
    setSpriteSize(spr,size#,size#)
    setSpriteOffset(spr,size#/2,size#/2)
    setSpriteAngle(spr,45)
    setSpritePositionByOffset(spr,x#,y#)
endfunction

Function LinearInterpolation(y1#,y2#,mu#)
    
    result# = y1#*(1-mu#)+y2#*mu#
    
EndFunction result#

Back to top

Profile PM Email

Stormwire

13

Years of Service

User Offline

Joined: 3rd Sep 2010

Location:

Posted: 20th Jan 2012 16:36

Link

@baxslash That is excellent thank you

Gonna have to study it. I am slow reading code lol Thanks again!

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 20th Jan 2012 16:40

Link

No problem. The important thing is how I'm using your function, the "mu#" value has to be right and you have to make sure you are incrimenting the x position correctly.

Back to top

Profile PM Email

Stormwire

13

Years of Service

User Offline

Joined: 3rd Sep 2010

Location:

Posted: 20th Jan 2012 19:19 Edited at: 20th Jan 2012 19:51

Link

Finaly! lol I wasnt increasing the x axis arg

Here is my finished version for those that may need something similar. It is not exactly what I was going for but it is a step in the right direction

SetVirtualResolution(480,480)

dot = CreateSprite(myimage)
SetSpritePosition(dot,-32,0)
SetSpriteSize(dot,4,4)
SetSpriteColor(dot, 100,0,200,255)

Dim ylist#[15] As Float

Do
    
    If GetRawKeyPressed(32) = 1
        
        For i = 10002 To dot2
            
            DeleteSprite(i)
            
        Next i
        
        For i = 0 To 14
            
            ylist#[i] = Random(100,400)
            
        Next i
        
        For i = 0 To 14
            
            For mu# = 0.0 To 1.0 Step 0.01
                
                dot2 = CloneSprite(dot)
                SetSpritePosition(dot2,x#,LinearInterpolation(ylist#[i],ylist#[i+1],mu#))
                x# = x# + 0.35
                
            Next mu#
            
        Next i
        
        x# = 0.0
        i = 0
    EndIf
    
    If GetRawKeyPressed(27) = 1 Then End
    Print("Press Space")
Sync()
Loop

Function LinearInterpolation(y1#,y2#,mu#)
    
    result# = y1#*(1-mu#)+y2#*mu#
    
EndFunction result#

+ Code Snippet




SetVirtualResolution(480,480)

dot = CreateSprite(myimage)
SetSpritePosition(dot,-32,0)
SetSpriteSize(dot,4,4)
SetSpriteColor(dot, 100,0,200,255)

Dim ylist#[15] As Float

Do
    
    If GetRawKeyPressed(32) = 1
        
        For i = 10002 To dot2
            
            DeleteSprite(i)
            
        Next i
        
        For i = 0 To 14
            
            ylist#[i] = Random(100,400)
            
        Next i
        
        For i = 0 To 14
            
            For mu# = 0.0 To 1.0 Step 0.01
                
                dot2 = CloneSprite(dot)
                SetSpritePosition(dot2,x#,LinearInterpolation(ylist#[i],ylist#[i+1],mu#))
                x# = x# + 0.35
                
            Next mu#
            
        Next i
        
        x# = 0.0
        i = 0
    EndIf
    
    If GetRawKeyPressed(27) = 1 Then End
    Print("Press Space")
Sync()
Loop

Function LinearInterpolation(y1#,y2#,mu#)
    
    result# = y1#*(1-mu#)+y2#*mu#
    
EndFunction result#

Sorry your browser is not supported!

AppGameKit Classic Chat / Draw Line Function. Need Help

Attachments

Attachments