Line Animation - GameCreators Forum

Author

Message

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 29th Mar 2020 14:31

Link

Hi there . Using my last trick Line Thickness in Chafari's trick thread , I made a little example showing what you can do with it .

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)

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

`our Sky
createobjectcylinder(4000,1000,180,40)
SetObjectCullMode(4000,0)
SetObjectColorEmissive(4000,30,30,155)
do

`Animation
run=run+1
if run<25 then b=b+3
if run>25 then b=b-3
if run>50 
  run=0
  b=0
endif

`left hand
w=makecolor(160,140,90)
line(440,190,480-b,290,20)  
     
`left leg
w=makecolor(0,100,0)
line(400,300,410+b,400,20)
line(430,300,410+b,400,20)        `making thigh thicker
line(410+b,400,390+b*1.3,500,20)
w=makecolor(100,90,20)
line(390+b*1.3,500,420+b*1.3,500,23)

`right leg
w=makecolor(0,120,0)
line(400,300,460-b,400,20)
line(440,300,460-b,400,20)       `making thigh thicker
line(460-b,400,460-b*1.3,500,20)
w=makecolor(120,100,30)
line(460-b*1.3,500,490-b*1.3,500,25)

`body
w=makecolor(0,0,255)
line(420,280,430,200,40)

`head
w=makecolor(170,150,100)
drawellipse(450,130,50,50,w,w,1)

`right hand
line(430,200,410+b,300,20)
 
sync()
loop

function line(x#,z#,x2#,z2#,s)
angle#= atanfull(x#-x2#, z#-z2#)+90

dx#=x#-x2#
dz#=z#-z2#
dist#=sqrt((dx#*dx#)+(dz#*dz#))

for i= 1 to dist#
    x#=x#+cos(angle#)
    z#=z#+sin(angle#)
    drawellipse(x#,z#,s,s,w,w,1)
next
endfunction

+ Code Snippet

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)

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

`our Sky
createobjectcylinder(4000,1000,180,40)
SetObjectCullMode(4000,0)
SetObjectColorEmissive(4000,30,30,155)
do

`Animation
run=run+1
if run<25 then b=b+3
if run>25 then b=b-3
if run>50 
  run=0
  b=0
endif

`left hand
w=makecolor(160,140,90)
line(440,190,480-b,290,20)  
     
`left leg
w=makecolor(0,100,0)
line(400,300,410+b,400,20)
line(430,300,410+b,400,20)        `making thigh thicker
line(410+b,400,390+b*1.3,500,20)
w=makecolor(100,90,20)
line(390+b*1.3,500,420+b*1.3,500,23)

`right leg
w=makecolor(0,120,0)
line(400,300,460-b,400,20)
line(440,300,460-b,400,20)       `making thigh thicker
line(460-b,400,460-b*1.3,500,20)
w=makecolor(120,100,30)
line(460-b*1.3,500,490-b*1.3,500,25)

`body
w=makecolor(0,0,255)
line(420,280,430,200,40)

`head
w=makecolor(170,150,100)
drawellipse(450,130,50,50,w,w,1)

`right hand
line(430,200,410+b,300,20)
 
sync()
loop

function line(x#,z#,x2#,z2#,s)
angle#= atanfull(x#-x2#, z#-z2#)+90

dx#=x#-x2#
dz#=z#-z2#
dist#=sqrt((dx#*dx#)+(dz#*dz#))

for i= 1 to dist#
    x#=x#+cos(angle#)
    z#=z#+sin(angle#)
    drawellipse(x#,z#,s,s,w,w,1)
next
endfunction

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

GreekToMe

15

Years of Service

User Offline

Joined: 27th Oct 2009

Location: Colorado

Posted: 29th Mar 2020 17:38

Link

@chafari,
You are an endless source of inspiration and "food for thought"!
Before I even read it or see what it does, I will tell you two things:
I am not a grumpy grandpa as well and
Cheers!

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 29th Mar 2020 18:06 Edited at: 29th Mar 2020 22:32

Link

@Thanks for your comments GreekToMe . Here in Spain we are all confined and we have to stay at home ....perhaps that is way my inpiration last days

Here a new update .

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)

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

dim px[28]
dim py[28]
for i= 1 to 28
	py[i]=i*20
next
px[1]=125
px[2]=93
px[3]=74
px[4]=58
px[5]=49
px[6]=42
px[7]=35
px[8]=31
px[9]=25
px[10]=25
px[11]=31
px[12]=24
px[13]=15
px[14]=6
px[15]=0
px[16]=2
px[17]=29
px[18]=27
px[19]=27
px[20]=30
px[21]=24
px[22]=37
px[23]=43
px[24]=56
px[25]=82
px[26]=83
px[27]=88
px[28]=92
	
	for k= 1 to 230
	w=makecolor(k,k,k)	
	for i= 1 to 27
		line(k+50+px[i],py[i],k+50+px[i+1],py[i+1],10)
	next
	next
getimage(1,0,0,500,600)
createsprite(1,1)

do
	
`Animation
run=run+1
if run<25 then b=b+3
if run>25 then b=b-3
if run>50 
  run=0
  b=0
endif

`left hand
w=makecolor(140,140,140)
line(440,190,480-b,290,20)  
     
`left leg
w=makecolor(100,100,100)
line(400,300,410+b,400,20)
line(430,300,410+b,400,20)        `making thigh thicker
line(410+b,400,390+b*1.3,500,20)
w=makecolor(60,60,60)
line(390+b*1.3,500,420+b*1.3,500,23)

`right leg
w=makecolor(115,115,115)
line(400,300,460-b,400,20)
line(440,300,460-b,400,20)       `making thigh thicker
line(460-b,400,460-b*1.3,500,20)
w=makecolor(75,75,75)
line(460-b*1.3,500,490-b*1.3,500,25)

`body
w=makecolor(90,90,90)
line(420,280,430,200,40)

`head
w=makecolor(170,170,170)
drawellipse(450,130,50,50,w,w,1)

`right hand
line(430,200,410+b,300,20)
  
sync()
loop

function line(x#,z#,x2#,z2#,s)
angle#= atanfull(x#-x2#, z#-z2#)+90

dx#=x#-x2#
dz#=z#-z2#
dist#=sqrt((dx#*dx#)+(dz#*dz#))

for i= 1 to dist#
    x#=x#+cos(angle#)
    z#=z#+sin(angle#)
    drawellipse(x#,z#,s,s,w,w,1)
next
endfunction

+ Code Snippet

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)

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

dim px[28]
dim py[28]
for i= 1 to 28
	py[i]=i*20
next
px[1]=125
px[2]=93
px[3]=74
px[4]=58
px[5]=49
px[6]=42
px[7]=35
px[8]=31
px[9]=25
px[10]=25
px[11]=31
px[12]=24
px[13]=15
px[14]=6
px[15]=0
px[16]=2
px[17]=29
px[18]=27
px[19]=27
px[20]=30
px[21]=24
px[22]=37
px[23]=43
px[24]=56
px[25]=82
px[26]=83
px[27]=88
px[28]=92
	
	for k= 1 to 230
	w=makecolor(k,k,k)	
	for i= 1 to 27
		line(k+50+px[i],py[i],k+50+px[i+1],py[i+1],10)
	next
	next
getimage(1,0,0,500,600)
createsprite(1,1)

do
	
`Animation
run=run+1
if run<25 then b=b+3
if run>25 then b=b-3
if run>50 
  run=0
  b=0
endif

`left hand
w=makecolor(140,140,140)
line(440,190,480-b,290,20)  
     
`left leg
w=makecolor(100,100,100)
line(400,300,410+b,400,20)
line(430,300,410+b,400,20)        `making thigh thicker
line(410+b,400,390+b*1.3,500,20)
w=makecolor(60,60,60)
line(390+b*1.3,500,420+b*1.3,500,23)

`right leg
w=makecolor(115,115,115)
line(400,300,460-b,400,20)
line(440,300,460-b,400,20)       `making thigh thicker
line(460-b,400,460-b*1.3,500,20)
w=makecolor(75,75,75)
line(460-b*1.3,500,490-b*1.3,500,25)

`body
w=makecolor(90,90,90)
line(420,280,430,200,40)

`head
w=makecolor(170,170,170)
drawellipse(450,130,50,50,w,w,1)

`right hand
line(430,200,410+b,300,20)
  
sync()
loop

function line(x#,z#,x2#,z2#,s)
angle#= atanfull(x#-x2#, z#-z2#)+90

dx#=x#-x2#
dz#=z#-z2#
dist#=sqrt((dx#*dx#)+(dz#*dz#))

for i= 1 to dist#
    x#=x#+cos(angle#)
    z#=z#+sin(angle#)
    drawellipse(x#,z#,s,s,w,w,1)
next
endfunction

I'm not a grumpy grandpa

Attachments

Login to view attachments

Back to top

Profile PM Email

GreekToMe

15

Years of Service

User Offline

Joined: 27th Oct 2009

Location: Colorado

Posted: 29th Mar 2020 21:26

Link

Very nifty!
I am looking into the second code snippet, as it will not run, although no errors.
Cheers!

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 29th Mar 2020 22:09 Edited at: 29th Mar 2020 22:10

Link

@GreekToMe .... I donn't know why it doesn't work to you

. Here's a new update .

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)

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

`our Sky
createobjectcylinder(4000,1000,180,40)
SetObjectCullMode(4000,0)
SetObjectColorEmissive(4000,30,30,155)
b as float
do
w=makecolor(50,200,50)
drawbox(0,200,1400,800,w,w,w,w,1)
`Animation -------------------------------------
run=run+1
if run<35 then b=b+2
if run>35 then b=b-2
if run>70 
  run=0
  b=0
endif
x#=cos(ang)*25
y#=sin(ang)*15
ang=ang+5
`-----------------------------------------------

`left hand
w=makecolor(160,140,90)
line(440-x#/3,190,480-b,290,18)  
     
`left leg
w=makecolor(0,100,0)
line(400,300,410+b,400,20)
line(430,300,410+b,400,20)        `making thigh thicker
line(410+b,400,390+b*1.3,500-y#,20)
w=makecolor(100,90,20)
line(390+b*1.3,500-y#,420+b*1.3,500-y#,23)

`right leg
w=makecolor(0,120,0)
line(400,300,460-b,400,20)
line(440,300,460-b,400,20)       `making thigh thicker
line(460-b,400,460-b*1.3,500+y#,20)
w=makecolor(120,100,30)
line(460-b*1.3,500+y#,490-b*1.3,500+y#,25)

w=makecolor(0,120,0)
drawellipse(415,300,40,40,w,w,1)

`body
w=makecolor(0,0,255)
line(420,280,430-x#/3,200,40)

`head
w=makecolor(170,150,100)
drawellipse(450-x#/3,130,50,50,w,w,1)
w=makecolor(180,150,100)
drawellipse(501-x#/3,135,10,10,w,w,1)  `nose
w=makecolor(255,255,255)
drawellipse(490-x#/3,120,5,8,w,w,1)    `eye
line(490-x#/3,153,510-x#/3,165,2)       `cigar
w=makecolor(0,0,0)
line(490-x#/3,145,500-x#/3,150,5)       `moustache
drawellipse(491-x#/3,120,3,4,w,w,1)

`right hand
w=makecolor(170,150,100)
line(430-x#/3,200,410+b,300,20)
 
 `hat
 w=makecolor(10,10,10)
 line(400-x#/3,100,500-x#/3,100,15)
 line(440-x#/3,80,460-x#/3,80,25)
 
 
sync()
loop

function line(x#,z#,x2#,z2#,s)
angle#= atanfull(x#-x2#, z#-z2#)+90

dx#=x#-x2#
dz#=z#-z2#
dist#=sqrt((dx#*dx#)+(dz#*dz#))

for i= 1 to dist#
    x#=x#+cos(angle#)
    z#=z#+sin(angle#)
    drawellipse(x#,z#,s,s,w,w,1)
next
endfunction

+ Code Snippet

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)

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

`our Sky
createobjectcylinder(4000,1000,180,40)
SetObjectCullMode(4000,0)
SetObjectColorEmissive(4000,30,30,155)
b as float
do
w=makecolor(50,200,50)
drawbox(0,200,1400,800,w,w,w,w,1)
`Animation -------------------------------------
run=run+1
if run<35 then b=b+2
if run>35 then b=b-2
if run>70 
  run=0
  b=0
endif
x#=cos(ang)*25
y#=sin(ang)*15
ang=ang+5
`-----------------------------------------------

`left hand
w=makecolor(160,140,90)
line(440-x#/3,190,480-b,290,18)  
     
`left leg
w=makecolor(0,100,0)
line(400,300,410+b,400,20)
line(430,300,410+b,400,20)        `making thigh thicker
line(410+b,400,390+b*1.3,500-y#,20)
w=makecolor(100,90,20)
line(390+b*1.3,500-y#,420+b*1.3,500-y#,23)

`right leg
w=makecolor(0,120,0)
line(400,300,460-b,400,20)
line(440,300,460-b,400,20)       `making thigh thicker
line(460-b,400,460-b*1.3,500+y#,20)
w=makecolor(120,100,30)
line(460-b*1.3,500+y#,490-b*1.3,500+y#,25)

w=makecolor(0,120,0)
drawellipse(415,300,40,40,w,w,1)

`body
w=makecolor(0,0,255)
line(420,280,430-x#/3,200,40)

`head
w=makecolor(170,150,100)
drawellipse(450-x#/3,130,50,50,w,w,1)
w=makecolor(180,150,100)
drawellipse(501-x#/3,135,10,10,w,w,1)  `nose
w=makecolor(255,255,255)
drawellipse(490-x#/3,120,5,8,w,w,1)    `eye
line(490-x#/3,153,510-x#/3,165,2)       `cigar
w=makecolor(0,0,0)
line(490-x#/3,145,500-x#/3,150,5)       `moustache
drawellipse(491-x#/3,120,3,4,w,w,1)


`right hand
w=makecolor(170,150,100)
line(430-x#/3,200,410+b,300,20)
 
 `hat
 w=makecolor(10,10,10)
 line(400-x#/3,100,500-x#/3,100,15)
 line(440-x#/3,80,460-x#/3,80,25)
 
 
sync()
loop

function line(x#,z#,x2#,z2#,s)
angle#= atanfull(x#-x2#, z#-z2#)+90

dx#=x#-x2#
dz#=z#-z2#
dist#=sqrt((dx#*dx#)+(dz#*dz#))

for i= 1 to dist#
    x#=x#+cos(angle#)
    z#=z#+sin(angle#)
    drawellipse(x#,z#,s,s,w,w,1)
next
endfunction

Here are the exes if you wanna test

I'm not a grumpy grandpa

Attachments

Login to view attachments

Back to top

Profile PM Email

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 29th Mar 2020 22:12

Link

Could someone please test if it works on your PC .....I'm still using windows Vista .

Thanks.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Bengismo

7

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 29th Mar 2020 22:18 Edited at: 29th Mar 2020 22:18

Link

Hi Chafari

The code works fine for me on windows 10 in AGK2.

Nice animation!

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 29th Mar 2020 22:29

Link

@Bengismo thanks for testing ....so it must be a problem in GreekToMe PC. That is frustrating how different PC can screw up our works

I'm not a grumpy grandpa

Back to top

Profile PM Email

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 29th Mar 2020 22:45

Link

The last one works fine for me with AppGameKit 2 great stuff

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 29th Mar 2020 23:05

Link

@fubarpk. Thanks for testing .....so the one with Alfred H. face doesn't work for any of you ?

Here it works correctly with a laptop 10 years old and windows vista.

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 30th Mar 2020 07:13

Link

I just tried the other ones so they all work for me

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 30th Mar 2020 08:15 Edited at: 30th Mar 2020 08:16

Link

@fubarpk. Thanks for confirm tha the codes works correctly. That was driving me crazy the whole night thinking where could be the error. In my last proyect I use my line function to quikly draw on screen...
Thanks again....cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 30th Mar 2020 10:54 Edited at: 30th Mar 2020 11:22

Link

Hi there . New update to the animation....some adjust to correct feet position .

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Line Animation" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 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 w
dim px[15]
dim py[15]

for i= 1 to 15
	px[i]=-73+i*73
	py[i]=100+random(0,80)
next
	for k= 1 to 70
	w=makecolor(190-k,170-k,0)	
	for i= 1 to 14
	   drawline(px[i],30+py[i]+k,px[i+1],30+py[i+1]+k,w,w)
	next
	next
getimage(1,0,0,1024,200)
createsprite(1,1)

b as float
do
`sky
w=makecolor(150,150,255)
drawbox(0,0,1024,200,w,w,w,w,1)

`mountains
Render2DFront()

`floor
w=makecolor(200,200,70)
drawbox(0,200,1400,800,w,w,w,w,1)

`Animation -------------------------------------
run=run+1
if run<35 then b=b+2
if run>35 then b=b-2
if run>70 
  run=0
  b=0
  ang=0
endif
x#=cos(ang)*25
y#=sin(ang)*15
ang=ang+5
`-----------------------------------------------
`left hand
w=makecolor(160,140,90)
line(440-x#/3,190,480-b,290,18)  
     
`left leg
w=makecolor(0,100,0)
line(400,300,410+b,400,20)
line(430,300,410+b,400,20)        `making thigh thicker
line(410+b,400,390+b*1.3,500-y#,20)
w=makecolor(100,90,20)
line(390+b*1.3,500-y#,420+b*1.3,500-y#,23)

`right leg
w=makecolor(0,120,0)
line(400,300,460-b,400,20)
line(440,300,460-b,400,20)       `making thigh thicker
line(460-b,400,460-b*1.3,500+y#,20)
w=makecolor(120,100,30)
line(460-b*1.3,500+y#,490-b*1.3,500+y#,25)

w=makecolor(0,120,0)
drawellipse(415,300,40,40,w,w,1)

`body
w=makecolor(80,75,45)
line(420,280,430-x#/3,200,40)

`head
w=makecolor(170,150,100)
drawellipse(450-x#/3,130,50,50,w,w,1)
w=makecolor(180,150,100)
drawellipse(501-x#/3,135,10,10,w,w,1)  `nose
w=makecolor(165,135,75)
drawellipse(450-x#/3,135,10,20,w,w,1)   `ear
w=makecolor(170,150,100)
drawellipse(455-x#/3,135,10,10,w,w,1)   `ear

w=makecolor(255,255,255)
drawellipse(490-x#/3,120,5,8,w,w,1)    `eye
line(490-x#/3,153,510-x#/3,165,2)       `cigar
w=makecolor(0,0,0)
line(490-x#/3,145,500-x#/3,150,5)       `moustache
drawellipse(491-x#/3,120,3,4,w,w,1)

`right hand
 w=makecolor(170,150,100)
 line(430-x#/3,200,410+b,300,20)
 w=makecolor(150,140,50)
 line(415+b,305,420+b*1.2,540,5)         `walking stick
  
 `hat
 w=makecolor(10,10,10)
 line(400-x#/3,100,500-x#/3,100,15)
 line(440-x#/3,80,460-x#/3,80,25)

sync()
loop

function line(x#,z#,x2#,z2#,s)
angle#= atanfull(x#-x2#, z#-z2#)+90

dx#=x#-x2#
dz#=z#-z2#
dist#=sqrt((dx#*dx#)+(dz#*dz#))

for i= 1 to dist#
    x#=x#+cos(angle#)
    z#=z#+sin(angle#)
    drawellipse(x#,z#,s,s,w,w,1)
next
endfunction

+ Code Snippet

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Line Animation" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 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 w
dim px[15]
dim py[15]

for i= 1 to 15
	px[i]=-73+i*73
	py[i]=100+random(0,80)
next
	for k= 1 to 70
	w=makecolor(190-k,170-k,0)	
	for i= 1 to 14
	   drawline(px[i],30+py[i]+k,px[i+1],30+py[i+1]+k,w,w)
	next
	next
getimage(1,0,0,1024,200)
createsprite(1,1)



b as float
do
`sky
w=makecolor(150,150,255)
drawbox(0,0,1024,200,w,w,w,w,1)	

`mountains
Render2DFront()	

`floor
w=makecolor(200,200,70)
drawbox(0,200,1400,800,w,w,w,w,1)

`Animation -------------------------------------
run=run+1
if run<35 then b=b+2
if run>35 then b=b-2
if run>70 
  run=0
  b=0
  ang=0
endif
x#=cos(ang)*25
y#=sin(ang)*15
ang=ang+5
`-----------------------------------------------
`left hand
w=makecolor(160,140,90)
line(440-x#/3,190,480-b,290,18)  
     
`left leg
w=makecolor(0,100,0)
line(400,300,410+b,400,20)
line(430,300,410+b,400,20)        `making thigh thicker
line(410+b,400,390+b*1.3,500-y#,20)
w=makecolor(100,90,20)
line(390+b*1.3,500-y#,420+b*1.3,500-y#,23)

`right leg
w=makecolor(0,120,0)
line(400,300,460-b,400,20)
line(440,300,460-b,400,20)       `making thigh thicker
line(460-b,400,460-b*1.3,500+y#,20)
w=makecolor(120,100,30)
line(460-b*1.3,500+y#,490-b*1.3,500+y#,25)

w=makecolor(0,120,0)
drawellipse(415,300,40,40,w,w,1)

`body
w=makecolor(80,75,45)
line(420,280,430-x#/3,200,40)

`head
w=makecolor(170,150,100)
drawellipse(450-x#/3,130,50,50,w,w,1)
w=makecolor(180,150,100)
drawellipse(501-x#/3,135,10,10,w,w,1)  `nose
w=makecolor(165,135,75)
drawellipse(450-x#/3,135,10,20,w,w,1)   `ear
w=makecolor(170,150,100)
drawellipse(455-x#/3,135,10,10,w,w,1)   `ear


w=makecolor(255,255,255)
drawellipse(490-x#/3,120,5,8,w,w,1)    `eye
line(490-x#/3,153,510-x#/3,165,2)       `cigar
w=makecolor(0,0,0)
line(490-x#/3,145,500-x#/3,150,5)       `moustache
drawellipse(491-x#/3,120,3,4,w,w,1)

`right hand
 w=makecolor(170,150,100)
 line(430-x#/3,200,410+b,300,20)
 w=makecolor(150,140,50)
 line(415+b,305,420+b*1.2,540,5)         `walking stick
  
 `hat
 w=makecolor(10,10,10)
 line(400-x#/3,100,500-x#/3,100,15)
 line(440-x#/3,80,460-x#/3,80,25)

 
sync()
loop

function line(x#,z#,x2#,z2#,s)
angle#= atanfull(x#-x2#, z#-z2#)+90

dx#=x#-x2#
dz#=z#-z2#
dist#=sqrt((dx#*dx#)+(dz#*dz#))

for i= 1 to dist#
    x#=x#+cos(angle#)
    z#=z#+sin(angle#)
    drawellipse(x#,z#,s,s,w,w,1)
next
endfunction

Cheers.

Last update

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Line Animation" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 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 w
dim px[15]
dim py[15]

for i= 1 to 15
	px[i]=-73+i*73
	py[i]=100+random(0,80)
next
	for k= 1 to 70
	w=makecolor(190-k,170-k,0)	
	for i= 1 to 14
	   drawline(px[i],30+py[i]+k,px[i+1],30+py[i+1]+k,w,w)
	next
	next
getimage(1,0,0,1024,200)
createsprite(1,1)

b as float
do
`sky
w=makecolor(150,150,255)
drawbox(0,0,1024,200,w,w,w,w,1)

`mountains
Render2DFront()

`floor
w=makecolor(200,200,70)
drawbox(0,200,1400,800,w,w,w,w,1)

`Animation -------------------------------------
run=run+1
if run<35 then b=b+2
if run>35 then b=b-2
if run>70 
  run=0
  b=0
  ang=0
endif
x#=cos(ang)*25
y#=sin(ang)*15
ang=ang+5
`-----------------------------------------------
`left hand
w=makecolor(160,140,90)
line(440-x#/3,190,480-b,290,18)  
     
`left leg
w=makecolor(0,100,0)
line(400,300,410+b,400,20)
line(430,300,410+b,400,20)        `making thigh thicker
line(410+b,400,390+b*1.3,500-y#,20)
w=makecolor(100,90,20)
line(390+b*1.3,500-y#,420+b*1.3,500-y#,23)

`right leg
w=makecolor(0,120,0)
line(400,300,460-b,400,20)
line(440,300,460-b,400,20)       `making thigh thicker
line(460-b,400,460-b*1.3,500+y#,20)
w=makecolor(120,100,30)
line(460-b*1.3,500+y#,490-b*1.3,500+y#,25)

w=makecolor(0,120,0)
drawellipse(415,300,40,40,w,w,1)

`body
w=makecolor(80,75,45)
line(420,280,430-x#/3,200,40)
w=makecolor(0,120,0)
drawbox(379,280,459,310,w,w,w,w,1)  `mask
drawbox(385,295,450,320,w,w,w,w,1)  `mask
w=makecolor(120,125,50)
line(382,290,452,290,8)              `belt
w=makecolor(0,120,0)
drawbox(420,280,430,320,w,w,w,w,1)

`head
w=makecolor(170,150,100)
drawellipse(450-x#/3,130,50,50,w,w,1)
w=makecolor(180,150,100)
drawellipse(501-x#/3,135,10,10,w,w,1)  `nose
w=makecolor(165,135,75)
drawellipse(450-x#/3,135,10,20,w,w,1)   `ear
w=makecolor(170,150,100)
drawellipse(455-x#/3,135,10,10,w,w,1)   `ear

w=makecolor(255,255,255)
drawellipse(490-x#/3,120,5,8,w,w,1)    `eye
line(490-x#/3,153,510-x#/3,165,2)       `cigar
w=makecolor(0,0,0)
line(490-x#/3,145,500-x#/3,150,5)       `moustache
drawellipse(491-x#/3,120,3,4,w,w,1)

`right hand
 w=makecolor(170,150,100)
 line(430-x#/3,200,410+b,300,20)
 w=makecolor(150,140,50)
 line(415+b,305,420+b*1.2,540,5)         `walking stick
  
 `hat
 w=makecolor(10,10,10)
 line(400-x#/3,100,500-x#/3,100,15)
 line(440-x#/3,80,460-x#/3,80,25)

sync()
loop

function line(x#,z#,x2#,z2#,s)
angle#= atanfull(x#-x2#, z#-z2#)+90

dx#=x#-x2#
dz#=z#-z2#
dist#=sqrt((dx#*dx#)+(dz#*dz#))

for i= 1 to dist#
    x#=x#+cos(angle#)
    z#=z#+sin(angle#)
    drawellipse(x#,z#,s,s,w,w,1)
next
endfunction

+ Code Snippet

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Line Animation" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 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 w
dim px[15]
dim py[15]

for i= 1 to 15
	px[i]=-73+i*73
	py[i]=100+random(0,80)
next
	for k= 1 to 70
	w=makecolor(190-k,170-k,0)	
	for i= 1 to 14
	   drawline(px[i],30+py[i]+k,px[i+1],30+py[i+1]+k,w,w)
	next
	next
getimage(1,0,0,1024,200)
createsprite(1,1)



b as float
do
`sky
w=makecolor(150,150,255)
drawbox(0,0,1024,200,w,w,w,w,1)	

`mountains
Render2DFront()	

`floor
w=makecolor(200,200,70)
drawbox(0,200,1400,800,w,w,w,w,1)

`Animation -------------------------------------
run=run+1
if run<35 then b=b+2
if run>35 then b=b-2
if run>70 
  run=0
  b=0
  ang=0
endif
x#=cos(ang)*25
y#=sin(ang)*15
ang=ang+5
`-----------------------------------------------
`left hand
w=makecolor(160,140,90)
line(440-x#/3,190,480-b,290,18)  
     
`left leg
w=makecolor(0,100,0)
line(400,300,410+b,400,20)
line(430,300,410+b,400,20)        `making thigh thicker
line(410+b,400,390+b*1.3,500-y#,20)
w=makecolor(100,90,20)
line(390+b*1.3,500-y#,420+b*1.3,500-y#,23)

`right leg
w=makecolor(0,120,0)
line(400,300,460-b,400,20)
line(440,300,460-b,400,20)       `making thigh thicker
line(460-b,400,460-b*1.3,500+y#,20)
w=makecolor(120,100,30)
line(460-b*1.3,500+y#,490-b*1.3,500+y#,25)

w=makecolor(0,120,0)
drawellipse(415,300,40,40,w,w,1)

`body
w=makecolor(80,75,45)
line(420,280,430-x#/3,200,40)
w=makecolor(0,120,0)
drawbox(379,280,459,310,w,w,w,w,1)  `mask
drawbox(385,295,450,320,w,w,w,w,1)  `mask
w=makecolor(120,125,50)
line(382,290,452,290,8)              `belt
w=makecolor(0,120,0)
drawbox(420,280,430,320,w,w,w,w,1)



`head
w=makecolor(170,150,100)
drawellipse(450-x#/3,130,50,50,w,w,1)
w=makecolor(180,150,100)
drawellipse(501-x#/3,135,10,10,w,w,1)  `nose
w=makecolor(165,135,75)
drawellipse(450-x#/3,135,10,20,w,w,1)   `ear
w=makecolor(170,150,100)
drawellipse(455-x#/3,135,10,10,w,w,1)   `ear


w=makecolor(255,255,255)
drawellipse(490-x#/3,120,5,8,w,w,1)    `eye
line(490-x#/3,153,510-x#/3,165,2)       `cigar
w=makecolor(0,0,0)
line(490-x#/3,145,500-x#/3,150,5)       `moustache
drawellipse(491-x#/3,120,3,4,w,w,1)

`right hand
 w=makecolor(170,150,100)
 line(430-x#/3,200,410+b,300,20)
 w=makecolor(150,140,50)
 line(415+b,305,420+b*1.2,540,5)         `walking stick
  
 `hat
 w=makecolor(10,10,10)
 line(400-x#/3,100,500-x#/3,100,15)
 line(440-x#/3,80,460-x#/3,80,25)

 
sync()
loop

function line(x#,z#,x2#,z2#,s)
angle#= atanfull(x#-x2#, z#-z2#)+90

dx#=x#-x2#
dz#=z#-z2#
dist#=sqrt((dx#*dx#)+(dz#*dz#))

for i= 1 to dist#
    x#=x#+cos(angle#)
    z#=z#+sin(angle#)
    drawellipse(x#,z#,s,s,w,w,1)
next
endfunction

I'm not a grumpy grandpa

Attachments

Login to view attachments

Back to top

Profile PM Email

GreekToMe

15

Years of Service

User Offline

Joined: 27th Oct 2009

Location: Colorado

Posted: 30th Mar 2020 13:58

Link

Good morning!
Just like most of us, Corona Quarantine

The "exes" work. The second animation with the black background doesn't work from within AppGameKit Studio in my machine. It loads up to a white background blank window which seems to be of the correct screen size, the "Line Animation" window title is there, thinks for a couple of seconds and then disappears.
Alienware 17 R3 windows 10.
I will do some research after breakfast and see what I come up with.
Well, now is just as good.
Added a sync() here:
for i= 1 to 15
px[i]=-73+i*73
py[i]=100+random(0,80)
sync()[u]
next
Works great now:
Cheers!

Back to top

Profile PM

GreekToMe

15

Years of Service

User Offline

Joined: 27th Oct 2009

Location: Colorado

Posted: 30th Mar 2020 14:01

Link

Oops!
Scratch my comment, in my previous post, about the "one with the black background".
Cheers!

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 30th Mar 2020 14:47

Link

@GreekToMe. I'm glad you solved. I don't know if appgamekit Studio can load clasic projects

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

GreekToMe

15

Years of Service

User Offline

Joined: 27th Oct 2009

Location: Colorado

Posted: 30th Mar 2020 15:15

Link

@chafari, you know this is the first time I have noticed a problem with compatibility. I can't say though for sure. I haven't tried to load/run unlimited number of programs from agk2. So, my experience is not the deciding telling factor.
I do like the animation a lot. I may use some of this technique in my stuff, if that's OK. The problem is that my stuff is very private. Most of it, I am the only one who ever sees it. My secondary audience, are my kids and grand kids

Cheers!

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 31st Mar 2020 06:42

Link

hi there chafari I thought seeing as were all indoors ide add a venetion blind effect
so now the venetion blind opens then you see the man walking

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)
white=MakeColor(255,255,255)
// set window properties
SetWindowTitle( "Line Animation" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

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

height=GetWindowHeight () 
width=GetWindowWidth ()
hh#=height/10
h#=hh#

global w
dim px[15]
dim py[15]

for i= 1 to 15
	px[i]=-73+i*73
	py[i]=100+random(0,80)
next
	for k= 1 to 70
	w=makecolor(190-k,170-k,0)	
	for i= 1 to 14
	   drawline(px[i],30+py[i]+k,px[i+1],30+py[i+1]+k,w,w)
	next
	next
getimage(1,0,0,1024,200)
createsprite(1,1)

b as float
do
`sky
w=makecolor(150,150,255)
drawbox(0,0,1024,200,w,w,w,w,1)

`mountains
Render2DFront()

`floor
w=makecolor(200,200,70)
drawbox(0,200,1400,800,w,w,w,w,1)

`Animation -------------------------------------
run=run+1
if run<35 then b=b+2
if run>35 then b=b-2
if run>70 
  run=0
  b=0
  ang=0
endif
x#=cos(ang)*25
y#=sin(ang)*15
ang=ang+5
`-----------------------------------------------
`left hand
w=makecolor(160,140,90)
line(440-x#/3,190,480-b,290,18)  
     
`left leg
w=makecolor(0,100,0)
line(400,300,410+b,400,20)
line(430,300,410+b,400,20)        `making thigh thicker
line(410+b,400,390+b*1.3,500-y#,20)
w=makecolor(100,90,20)
line(390+b*1.3,500-y#,420+b*1.3,500-y#,23)

`right leg
w=makecolor(0,120,0)
line(400,300,460-b,400,20)
line(440,300,460-b,400,20)       `making thigh thicker
line(460-b,400,460-b*1.3,500+y#,20)
w=makecolor(120,100,30)
line(460-b*1.3,500+y#,490-b*1.3,500+y#,25)

w=makecolor(0,120,0)
drawellipse(415,300,40,40,w,w,1)

`body
w=makecolor(80,75,45)
line(420,280,430-x#/3,200,40)
w=makecolor(0,120,0)
drawbox(379,280,459,310,w,w,w,w,1)  `mask
drawbox(385,295,450,320,w,w,w,w,1)  `mask
w=makecolor(120,125,50)
line(382,290,452,290,8)              `belt
w=makecolor(0,120,0)
drawbox(420,280,430,320,w,w,w,w,1)

`head
w=makecolor(170,150,100)
drawellipse(450-x#/3,130,50,50,w,w,1)
w=makecolor(180,150,100)
drawellipse(501-x#/3,135,10,10,w,w,1)  `nose
w=makecolor(165,135,75)
drawellipse(450-x#/3,135,10,20,w,w,1)   `ear
w=makecolor(170,150,100)
drawellipse(455-x#/3,135,10,10,w,w,1)   `ear

w=makecolor(255,255,255)
drawellipse(490-x#/3,120,5,8,w,w,1)    `eye
line(490-x#/3,153,510-x#/3,165,2)       `cigar
w=makecolor(0,0,0)
line(490-x#/3,145,500-x#/3,150,5)       `moustache
drawellipse(491-x#/3,120,3,4,w,w,1)

`right hand
 w=makecolor(170,150,100)
 line(430-x#/3,200,410+b,300,20)
 w=makecolor(150,140,50)
 line(415+b,305,420+b*1.2,540,5)         `walking stick
  
 `hat
 w=makecolor(10,10,10)
 line(400-x#/3,100,500-x#/3,100,15)
 line(440-x#/3,80,460-x#/3,80,25)

for t# = height to 0 step -hh#
		DrawBox(0,t#,width,t#+h#,white,white,white,white,1)
	next t#
	if h# > 0
		dec h#
	else
		//h#=hh#
	endif

sync()
loop

function line(x#,z#,x2#,z2#,s)
angle#= atanfull(x#-x2#, z#-z2#)+90

dx#=x#-x2#
dz#=z#-z2#
dist#=sqrt((dx#*dx#)+(dz#*dz#))

for i= 1 to dist#
    x#=x#+cos(angle#)
    z#=z#+sin(angle#)
    drawellipse(x#,z#,s,s,w,w,1)
next
endfunction

+ Code Snippet

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)
white=MakeColor(255,255,255)
// set window properties
SetWindowTitle( "Line Animation" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

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

height=GetWindowHeight () 
width=GetWindowWidth ()
hh#=height/10
h#=hh#

global w
dim px[15]
dim py[15]

for i= 1 to 15
	px[i]=-73+i*73
	py[i]=100+random(0,80)
next
	for k= 1 to 70
	w=makecolor(190-k,170-k,0)	
	for i= 1 to 14
	   drawline(px[i],30+py[i]+k,px[i+1],30+py[i+1]+k,w,w)
	next
	next
getimage(1,0,0,1024,200)
createsprite(1,1)



b as float
do
`sky
w=makecolor(150,150,255)
drawbox(0,0,1024,200,w,w,w,w,1)	

`mountains
Render2DFront()	

`floor
w=makecolor(200,200,70)
drawbox(0,200,1400,800,w,w,w,w,1)

`Animation -------------------------------------
run=run+1
if run<35 then b=b+2
if run>35 then b=b-2
if run>70 
  run=0
  b=0
  ang=0
endif
x#=cos(ang)*25
y#=sin(ang)*15
ang=ang+5
`-----------------------------------------------
`left hand
w=makecolor(160,140,90)
line(440-x#/3,190,480-b,290,18)  
     
`left leg
w=makecolor(0,100,0)
line(400,300,410+b,400,20)
line(430,300,410+b,400,20)        `making thigh thicker
line(410+b,400,390+b*1.3,500-y#,20)
w=makecolor(100,90,20)
line(390+b*1.3,500-y#,420+b*1.3,500-y#,23)

`right leg
w=makecolor(0,120,0)
line(400,300,460-b,400,20)
line(440,300,460-b,400,20)       `making thigh thicker
line(460-b,400,460-b*1.3,500+y#,20)
w=makecolor(120,100,30)
line(460-b*1.3,500+y#,490-b*1.3,500+y#,25)

w=makecolor(0,120,0)
drawellipse(415,300,40,40,w,w,1)

`body
w=makecolor(80,75,45)
line(420,280,430-x#/3,200,40)
w=makecolor(0,120,0)
drawbox(379,280,459,310,w,w,w,w,1)  `mask
drawbox(385,295,450,320,w,w,w,w,1)  `mask
w=makecolor(120,125,50)
line(382,290,452,290,8)              `belt
w=makecolor(0,120,0)
drawbox(420,280,430,320,w,w,w,w,1)



`head
w=makecolor(170,150,100)
drawellipse(450-x#/3,130,50,50,w,w,1)
w=makecolor(180,150,100)
drawellipse(501-x#/3,135,10,10,w,w,1)  `nose
w=makecolor(165,135,75)
drawellipse(450-x#/3,135,10,20,w,w,1)   `ear
w=makecolor(170,150,100)
drawellipse(455-x#/3,135,10,10,w,w,1)   `ear


w=makecolor(255,255,255)
drawellipse(490-x#/3,120,5,8,w,w,1)    `eye
line(490-x#/3,153,510-x#/3,165,2)       `cigar
w=makecolor(0,0,0)
line(490-x#/3,145,500-x#/3,150,5)       `moustache
drawellipse(491-x#/3,120,3,4,w,w,1)

`right hand
 w=makecolor(170,150,100)
 line(430-x#/3,200,410+b,300,20)
 w=makecolor(150,140,50)
 line(415+b,305,420+b*1.2,540,5)         `walking stick
  
 `hat
 w=makecolor(10,10,10)
 line(400-x#/3,100,500-x#/3,100,15)
 line(440-x#/3,80,460-x#/3,80,25)

	for t# = height to 0 step -hh#
		DrawBox(0,t#,width,t#+h#,white,white,white,white,1)
	next t#
	if h# > 0
		dec h#
	else
		//h#=hh#
	endif		

 
sync()
loop

function line(x#,z#,x2#,z2#,s)
angle#= atanfull(x#-x2#, z#-z2#)+90

dx#=x#-x2#
dz#=z#-z2#
dist#=sqrt((dx#*dx#)+(dz#*dz#))

for i= 1 to dist#
    x#=x#+cos(angle#)
    z#=z#+sin(angle#)
    drawellipse(x#,z#,s,s,w,w,1)
next
endfunction

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 31st Mar 2020 09:05

Link

@fubarpk That looks great !

... the venetion blind comes very handy to make transitions between scenes . Thanks for your contribution

Quote: "The problem is that my stuff is very private"

No problem GreekToMe . any way these images that I put in the forum are not the definitive ones either ....just to show the technique .

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 31st Mar 2020 10:47 Edited at: 31st Mar 2020 10:48

Link

Last update with fubarpk contribution .

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)
white=MakeColor(255,255,255)
// set window properties
SetWindowTitle( "Line Animation" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

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

height=GetWindowHeight () 
width=GetWindowWidth ()
hh#=height/10
h#=hh#

global w
dim px[15]
dim py[15]

for i= 1 to 15
	px[i]=-73+i*73
	py[i]=100+random(0,80)
next
	for k= 1 to 70
	w=makecolor(190-k,170-k,0)	
	for i= 1 to 14
	   drawline(px[i],30+py[i]+k,px[i+1],30+py[i+1]+k,w,w)
	next
	next
getimage(1,0,0,1024,200)
createsprite(1,1)
setspritevisible(1,0)

b as float
do
run=run+1                `background blue)))))))))))))))))))))))))))))))))))))))
if run>1
   w(100,100,255)
   box(0,0,800,600)
endif

if run>30                `background brown)))))))))))))))))))))))))))))))))))))))
   w(170,135,0)
   box(0,200,800,600)
endif

`head
if run>60
   w(130,100,0)
   circle(400,350,160,170)
   circle(400,300,150,210)
endif

`left ear
if run>90
   w(242,154,138)
   circle(240,240,30,40)
   w(170,135,0)
   circle(200,240,25,35)
endif

`right ear
if run>120
   w(242,154,138)
   circle(550,240,30,40)
   w(170,135,0)
   circle(590,240,25,35)
endif
 
`hat
if run>150
	w(0,0,0)
	circle(400,100,95,55)
	w(100,100,255)
	box(300,0,500,95)
	w(0,0,0)
	circle(400,95,70,50)
	w(130,100,0)
	box(315,130,488,275)
endif

`nose
if run>180
w(250,175,0)
	circle(400,300,30,30)	
	circle(380,300,20,20)
	circle(420,300,20,20)
	circle(400,280,20,20)
	circle(400,265,13,13)
endif

`eyes
if run>210
	w(0,0,0)
	circle(365,200,40,40)
    circle(435,200,40,40)
    w(130,100,0)
    circle(365,210,35,35)
    circle(435,210,35,35)
    box(316,194,488,228)
    w(255,255,255)
   	circle(365,210,40,40)
    circle(435,210,40,40)
    w(130,100,0)
    circle(365,190,33,21)
    circle(435,190,33,21)
    w(255,255,255)
    box(329,189,469,211)
    w(0,0,0)
    circle(360,212,10,10)
    circle(452,208,10,10)
endif

`mouth
if run>240
w(200,0,0)
circle(400,350,80,80)	
   w(130,100,0)
circle(410,330,80,80)

`nose again
w(250,175,0)
	circle(400,300,30,30)	
	circle(380,300,20,20)
	circle(420,300,20,20)
	circle(400,280,20,20)
	circle(400,265,13,13)
endif

`moustache
if run>270
   w(0,0,0)
endif
 `animation of moustache
if run=275 then circle(352,332,10,23)	
if run=280 then circle(364,335,10,20)
if run=285 then circle(378,343,10,20)
if run=290 then circle(390,350,10,20)	
if run=295 then circle(405,350,10,20)
if run=300 then circle(420,345,10,20)
if run=305 then circle(435,339,10,20)	
if run=310 then circle(450,335,10,23)

`moustache end
if run>320 
	 circle(352,332,10,23)	
	 circle(364,335,10,20)
	 circle(378,343,10,20)
	 circle(390,350,10,20)	
	 circle(405,350,10,20)
	 circle(420,345,10,20)
	 circle(435,339,10,20)	
	 circle(450,335,10,23)	
endif

`hands
if run>340
	w(200,200,200)
	circle(250,315,10,30)
	circle(551,315,10,30)
	box(130,295,250,335)
	box(551,295,670,335)
	box(130,240,165,295)
	box(650,295,690,400)
	circle(147,241,25,25)
	circle(135,230,10,35)
	circle(125,235,14,10)
	circle(670,400,25,25)
	circle(647,397,10,15)
endif

`foot
if run>355
	w(200,200,200)	
	circle(367,505,22,10)	
	circle(430,505,22,10)
	box(350,505,380,570)
	box(410,505,445,570)	
endif
 
 `shoes
if run>385
	w(0,166,200)
	circle(340,568,50,40)	 
	circle(446,568,50,40)
	w(0,150,190)
	circle(340,568,40,35)
	circle(446,568,40,35)
	w(0,166,200)
	circle(340,568,30,30)
	circle(446,568,30,30)
	w(0,166,200)
	box(298,549,382,600)
	box(404,549,486,600)
	w(170,135,0)
	box(279,580,510,600)
endif 
 
 `eye animation
 s#=s#+0.5
 if s#>8 then s#=-18
 if run>450
   w(255,255,255)
   circle(360,212,10,10)
   circle(452,208,10,10)
   w(0,0,0) 
   circle(360+s#,212+b,10,10)
   circle(452+s#,208+b,10,10) 
endif
 
 `final animation
if run>430
   w(130,100,0)
   box(304,370,491,436)	
   box(306,301,340,375)
endif	
 
 if run>430
	w(100,0,0)
	circle(396,392,18,11) 
	w(255,255,255)
	circle( 396,390,16,2 )
 endif
 
 
if run>450
	w(100,100,255)
	box(11,174,153,199)
	w(170,135,0)
	box(100,200,174,294)	 
	w(200,200,200)
	box(130,296,162,386)	 
	circle(143,398,25,25)	 
	circle(163,400,10,15)
endif	 
 
if run>550
	box(130,240,165,295)
	w(170,135,0)
	box(96,336,181,426)	 
	w(200,200,200)
	circle(147,241,25,25)
	circle(135,225,10,35)
	circle(125,235,14,10)
endif
		
if run>600	
	
`sky
w=makecolor(150,150,255)
drawbox(0,0,1024,200,w,w,w,w,1)

`mountains
Render2DFront()	
setspritevisible(1,1)
`floor
w=makecolor(200,200,70)
drawbox(0,200,1400,800,w,w,w,w,1)

`Animation -------------------------------------
r=r+1
if r<35 then b=b+2
if r>35 then b=b-2
if r>70 
  r=0
  b=0
  ang=0
endif
x#=cos(ang)*25
y#=sin(ang)*15
ang=ang+5
`-----------------------------------------------
`left hand
w=makecolor(160,140,90)
line(440-x#/3,190,480-b,290,18)  
     
`left leg
w=makecolor(0,100,0)
line(400,300,410+b,400,20)
line(430,300,410+b,400,20)        `making thigh thicker
line(410+b,400,390+b*1.3,500-y#,20)
w=makecolor(100,90,20)
line(390+b*1.3,500-y#,420+b*1.3,500-y#,23)

`right leg
w=makecolor(0,120,0)
line(400,300,460-b,400,20)
line(440,300,460-b,400,20)       `making thigh thicker
line(460-b,400,460-b*1.3,500+y#,20)
w=makecolor(120,100,30)
line(460-b*1.3,500+y#,490-b*1.3,500+y#,25)

w=makecolor(0,120,0)
drawellipse(415,300,40,40,w,w,1)

`body
w=makecolor(80,75,45)
line(420,280,430-x#/3,200,40)
w=makecolor(0,120,0)
drawbox(379,280,459,310,w,w,w,w,1)  `mask
drawbox(385,295,450,320,w,w,w,w,1)  `mask
w=makecolor(120,125,50)
line(382,290,452,290,8)              `belt
w=makecolor(0,120,0)
drawbox(420,280,430,320,w,w,w,w,1)

`head
w=makecolor(170,150,100)
drawellipse(450-x#/3,130,50,50,w,w,1)
w=makecolor(180,150,100)
drawellipse(501-x#/3,135,10,10,w,w,1)  `nose
w=makecolor(165,135,75)
drawellipse(450-x#/3,135,10,20,w,w,1)   `ear
w=makecolor(170,150,100)
drawellipse(455-x#/3,135,10,10,w,w,1)   `ear

w=makecolor(255,255,255)
drawellipse(490-x#/3,120,5,8,w,w,1)    `eye
line(490-x#/3,153,510-x#/3,165,2)       `cigar
w=makecolor(0,0,0)
line(490-x#/3,145,500-x#/3,150,5)       `moustache
drawellipse(491-x#/3,120,3,4,w,w,1)

`right hand
 w=makecolor(170,150,100)
 line(430-x#/3,200,410+b,300,20)
 w=makecolor(150,140,50)
 line(415+b,305,420+b*1.2,540,5)         `walking stick
  
 `hat
 w=makecolor(10,10,10)
 line(400-x#/3,100,500-x#/3,100,15)
 line(440-x#/3,80,460-x#/3,80,25)

`Venetian blind ((((((((((  ADDED BY FUBARPK   ))))))))))))))))))))) 
	for t# = height to 0 step -hh#
		DrawBox(0,t#,width,t#+h#,white,white,white,white,1)
	next t#
	if h# > 0
		dec h#
	else
		//h#=hh#
	endif

endif
`reseting Venetian blind ((((((((((  ADDED BY FUBARPK   ))))))))))))))))))))) 
if run=799
   hh#=height/10
   h#=hh#	 
endif
 if run>800

w=makecolor(100,100,255)
drawbox(0,0,1370,768,w,w,w,w,1)
	 
w=makecolor(0,180,0)
drawbox(0,200,1370,768,w,w,w,w,1)

w=makecolor(0,0,0)
circle(100,100,40,40)
circle(130,50,40,40)
circle(150,90,40,40)
circle(160,110,40,40)
circle(110,80,40,40)

line(130,120,130,250,10)	 
w(100,90,20)
line(130,120,130,250,8)
w(0,255,0)
circle(100,100,38,38)
circle(130,50,38,38)
circle(150,90,38,38)
circle(160,110,38,38)
circle(110,80,38,38)

`----
w=makecolor(0,0,0)
circle(500,100,40,40)
circle(530,50,40,40)
circle(550,90,40,40)
circle(560,110,40,40)
circle(510,80,40,40)

line(530,120,530,250,10)	 
w(100,90,20)
line(530,120,530,250,8)
w(0,255,0)
circle(500,100,38,38)
circle(530,50,38,38)
circle(550,90,38,38)
circle(560,110,38,38)
circle(510,80,38,38)

`reseting Venetian blind ((((((((((  ADDED BY FUBARPK   ))))))))))))))))))))) 
	for t# = height to 0 step -hh#
		DrawBox(0,t#,width,t#+h#,white,white,white,white,1)
	next t#
	if h# > 0
		dec h#
	else
		//h#=hh#
	endif
	
w(0,0,0)
circle(400,300,63,83)	
w(200,180,60)
circle(400,300,60,80)	
w(0,0,0)
circle(375,260,13,13)
circle(425,260,13,13)
w(255,255,255)
circle(375,260,11,11)
circle(425,260,11,11)
w(0,0,0)
circle(375,260,5,3)
circle(425,260,5,3)
circle(400,320,25,15)	
w(200,180,60)
circle(400,310,25,20)	
endif
 
sync()
loop

function line(x#,z#,x2#,z2#,s)
angle#= atanfull(x#-x2#, z#-z2#)+90

dx#=x#-x2#
dz#=z#-z2#
dist#=sqrt((dx#*dx#)+(dz#*dz#))

for i= 1 to dist#
    x#=x#+cos(angle#)
    z#=z#+sin(angle#)
    drawellipse(x#,z#,s,s,w,w,1)
next
endfunction 
function w(a,b,c)
	w=makecolor(a,b,c)
endfunction 
function box(a,b,c,d)
drawbox(a,b,c,d,w,w,w,w,1)	
endfunction
function circle(a,b,c,d)
	DrawEllipse(a,b,c,d,w,w,1)
endfunction

+ Code Snippet

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)
white=MakeColor(255,255,255)
// set window properties
SetWindowTitle( "Line Animation" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

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

height=GetWindowHeight () 
width=GetWindowWidth ()
hh#=height/10
h#=hh#

global w
dim px[15]
dim py[15]

for i= 1 to 15
	px[i]=-73+i*73
	py[i]=100+random(0,80)
next
	for k= 1 to 70
	w=makecolor(190-k,170-k,0)	
	for i= 1 to 14
	   drawline(px[i],30+py[i]+k,px[i+1],30+py[i+1]+k,w,w)
	next
	next
getimage(1,0,0,1024,200)
createsprite(1,1)
setspritevisible(1,0)


b as float
do
run=run+1                `background blue)))))))))))))))))))))))))))))))))))))))
if run>1
   w(100,100,255)
   box(0,0,800,600)
endif

if run>30                `background brown)))))))))))))))))))))))))))))))))))))))
   w(170,135,0)
   box(0,200,800,600)
endif

`head
if run>60
   w(130,100,0)
   circle(400,350,160,170)
   circle(400,300,150,210)
endif

`left ear
if run>90
   w(242,154,138)
   circle(240,240,30,40)
   w(170,135,0)
   circle(200,240,25,35)
endif

`right ear
if run>120
   w(242,154,138)
   circle(550,240,30,40)
   w(170,135,0)
   circle(590,240,25,35)
endif
 
`hat
if run>150
	w(0,0,0)
	circle(400,100,95,55)
	w(100,100,255)
	box(300,0,500,95)
	w(0,0,0)
	circle(400,95,70,50)
	w(130,100,0)
	box(315,130,488,275)
endif

`nose
if run>180
w(250,175,0)
	circle(400,300,30,30)	
	circle(380,300,20,20)
	circle(420,300,20,20)
	circle(400,280,20,20)
	circle(400,265,13,13)
endif	

`eyes
if run>210
	w(0,0,0)
	circle(365,200,40,40)
    circle(435,200,40,40)
    w(130,100,0)
    circle(365,210,35,35)
    circle(435,210,35,35)
    box(316,194,488,228)
    w(255,255,255)
   	circle(365,210,40,40)
    circle(435,210,40,40)
    w(130,100,0)
    circle(365,190,33,21)
    circle(435,190,33,21)
    w(255,255,255)
    box(329,189,469,211)
    w(0,0,0)
    circle(360,212,10,10)
    circle(452,208,10,10)
endif

`mouth
if run>240
w(200,0,0)
circle(400,350,80,80)	
   w(130,100,0)
circle(410,330,80,80)	

`nose again
w(250,175,0)
	circle(400,300,30,30)	
	circle(380,300,20,20)
	circle(420,300,20,20)
	circle(400,280,20,20)
	circle(400,265,13,13)
endif


`moustache
if run>270
   w(0,0,0)
endif
 `animation of moustache
if run=275 then circle(352,332,10,23)	
if run=280 then circle(364,335,10,20)
if run=285 then circle(378,343,10,20)
if run=290 then circle(390,350,10,20)	
if run=295 then circle(405,350,10,20)
if run=300 then circle(420,345,10,20)
if run=305 then circle(435,339,10,20)	
if run=310 then circle(450,335,10,23)

`moustache end
if run>320 
	 circle(352,332,10,23)	
	 circle(364,335,10,20)
	 circle(378,343,10,20)
	 circle(390,350,10,20)	
	 circle(405,350,10,20)
	 circle(420,345,10,20)
	 circle(435,339,10,20)	
	 circle(450,335,10,23)	
endif	

`hands
if run>340
	w(200,200,200)
	circle(250,315,10,30)
	circle(551,315,10,30)
	box(130,295,250,335)
	box(551,295,670,335)
	box(130,240,165,295)
	box(650,295,690,400)
	circle(147,241,25,25)
	circle(135,230,10,35)
	circle(125,235,14,10)
	circle(670,400,25,25)
	circle(647,397,10,15)
endif

`foot
if run>355
	w(200,200,200)	
	circle(367,505,22,10)	
	circle(430,505,22,10)
	box(350,505,380,570)
	box(410,505,445,570)	
endif
 
 `shoes
if run>385
	w(0,166,200)
	circle(340,568,50,40)	 
	circle(446,568,50,40)
	w(0,150,190)
	circle(340,568,40,35)
	circle(446,568,40,35)
	w(0,166,200)
	circle(340,568,30,30)
	circle(446,568,30,30)
	w(0,166,200)
	box(298,549,382,600)
	box(404,549,486,600)
	w(170,135,0)
	box(279,580,510,600)
endif 
 
 `eye animation
 s#=s#+0.5
 if s#>8 then s#=-18
 if run>450
   w(255,255,255)
   circle(360,212,10,10)
   circle(452,208,10,10)
   w(0,0,0) 
   circle(360+s#,212+b,10,10)
   circle(452+s#,208+b,10,10) 
endif
 
 `final animation
if run>430
   w(130,100,0)
   box(304,370,491,436)	
   box(306,301,340,375)
endif	
 
 if run>430
	w(100,0,0)
	circle(396,392,18,11) 
	w(255,255,255)
	circle( 396,390,16,2 )
 endif
 
 
if run>450
	w(100,100,255)
	box(11,174,153,199)
	w(170,135,0)
	box(100,200,174,294)	 
	w(200,200,200)
	box(130,296,162,386)	 
	circle(143,398,25,25)	 
	circle(163,400,10,15)
endif	 
 
if run>550
	box(130,240,165,295)
	w(170,135,0)
	box(96,336,181,426)	 
	w(200,200,200)
	circle(147,241,25,25)
	circle(135,225,10,35)
	circle(125,235,14,10)
endif
		
if run>600	
	
`sky
w=makecolor(150,150,255)
drawbox(0,0,1024,200,w,w,w,w,1)	

`mountains
Render2DFront()	
setspritevisible(1,1)
`floor
w=makecolor(200,200,70)
drawbox(0,200,1400,800,w,w,w,w,1)

`Animation -------------------------------------
r=r+1
if r<35 then b=b+2
if r>35 then b=b-2
if r>70 
  r=0
  b=0
  ang=0
endif
x#=cos(ang)*25
y#=sin(ang)*15
ang=ang+5
`-----------------------------------------------
`left hand
w=makecolor(160,140,90)
line(440-x#/3,190,480-b,290,18)  
     
`left leg
w=makecolor(0,100,0)
line(400,300,410+b,400,20)
line(430,300,410+b,400,20)        `making thigh thicker
line(410+b,400,390+b*1.3,500-y#,20)
w=makecolor(100,90,20)
line(390+b*1.3,500-y#,420+b*1.3,500-y#,23)

`right leg
w=makecolor(0,120,0)
line(400,300,460-b,400,20)
line(440,300,460-b,400,20)       `making thigh thicker
line(460-b,400,460-b*1.3,500+y#,20)
w=makecolor(120,100,30)
line(460-b*1.3,500+y#,490-b*1.3,500+y#,25)

w=makecolor(0,120,0)
drawellipse(415,300,40,40,w,w,1)

`body
w=makecolor(80,75,45)
line(420,280,430-x#/3,200,40)
w=makecolor(0,120,0)
drawbox(379,280,459,310,w,w,w,w,1)  `mask
drawbox(385,295,450,320,w,w,w,w,1)  `mask
w=makecolor(120,125,50)
line(382,290,452,290,8)              `belt
w=makecolor(0,120,0)
drawbox(420,280,430,320,w,w,w,w,1)



`head
w=makecolor(170,150,100)
drawellipse(450-x#/3,130,50,50,w,w,1)
w=makecolor(180,150,100)
drawellipse(501-x#/3,135,10,10,w,w,1)  `nose
w=makecolor(165,135,75)
drawellipse(450-x#/3,135,10,20,w,w,1)   `ear
w=makecolor(170,150,100)
drawellipse(455-x#/3,135,10,10,w,w,1)   `ear


w=makecolor(255,255,255)
drawellipse(490-x#/3,120,5,8,w,w,1)    `eye
line(490-x#/3,153,510-x#/3,165,2)       `cigar
w=makecolor(0,0,0)
line(490-x#/3,145,500-x#/3,150,5)       `moustache
drawellipse(491-x#/3,120,3,4,w,w,1)

`right hand
 w=makecolor(170,150,100)
 line(430-x#/3,200,410+b,300,20)
 w=makecolor(150,140,50)
 line(415+b,305,420+b*1.2,540,5)         `walking stick
  
 `hat
 w=makecolor(10,10,10)
 line(400-x#/3,100,500-x#/3,100,15)
 line(440-x#/3,80,460-x#/3,80,25)


`Venetian blind ((((((((((  ADDED BY FUBARPK   ))))))))))))))))))))) 
	for t# = height to 0 step -hh#
		DrawBox(0,t#,width,t#+h#,white,white,white,white,1)
	next t#
	if h# > 0
		dec h#
	else
		//h#=hh#
	endif		

 endif
`reseting Venetian blind ((((((((((  ADDED BY FUBARPK   ))))))))))))))))))))) 
if run=799
   hh#=height/10
   h#=hh#	 
endif
 if run>800 

w=makecolor(100,100,255)
drawbox(0,0,1370,768,w,w,w,w,1)
	 
w=makecolor(0,180,0)
drawbox(0,200,1370,768,w,w,w,w,1)

w=makecolor(0,0,0)
circle(100,100,40,40)
circle(130,50,40,40)
circle(150,90,40,40)
circle(160,110,40,40)
circle(110,80,40,40)

line(130,120,130,250,10)	 
w(100,90,20)
line(130,120,130,250,8)
w(0,255,0)
circle(100,100,38,38)
circle(130,50,38,38)
circle(150,90,38,38)
circle(160,110,38,38)
circle(110,80,38,38)

`----
w=makecolor(0,0,0)
circle(500,100,40,40)
circle(530,50,40,40)
circle(550,90,40,40)
circle(560,110,40,40)
circle(510,80,40,40)

line(530,120,530,250,10)	 
w(100,90,20)
line(530,120,530,250,8)
w(0,255,0)
circle(500,100,38,38)
circle(530,50,38,38)
circle(550,90,38,38)
circle(560,110,38,38)
circle(510,80,38,38)

`reseting Venetian blind ((((((((((  ADDED BY FUBARPK   ))))))))))))))))))))) 
	for t# = height to 0 step -hh#
		DrawBox(0,t#,width,t#+h#,white,white,white,white,1)
	next t#
	if h# > 0
		dec h#
	else
		//h#=hh#
	endif
	
w(0,0,0)
circle(400,300,63,83)	
w(200,180,60)
circle(400,300,60,80)	
w(0,0,0)
circle(375,260,13,13)
circle(425,260,13,13)
w(255,255,255)
circle(375,260,11,11)
circle(425,260,11,11)
w(0,0,0)
circle(375,260,5,3)
circle(425,260,5,3)
circle(400,320,25,15)	
w(200,180,60)
circle(400,310,25,20)	
endif
 
sync()
loop

function line(x#,z#,x2#,z2#,s)
angle#= atanfull(x#-x2#, z#-z2#)+90

dx#=x#-x2#
dz#=z#-z2#
dist#=sqrt((dx#*dx#)+(dz#*dz#))

for i= 1 to dist#
    x#=x#+cos(angle#)
    z#=z#+sin(angle#)
    drawellipse(x#,z#,s,s,w,w,1)
next
endfunction 
function w(a,b,c)
	w=makecolor(a,b,c)
endfunction 
function box(a,b,c,d)
drawbox(a,b,c,d,w,w,w,w,1)	
endfunction
function circle(a,b,c,d)
	DrawEllipse(a,b,c,d,w,w,1)
endfunction

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 31st Mar 2020 12:18 Edited at: 31st Mar 2020 14:05

Link

looks good chafari

easy enough to have two states and make the venetion work both ways for the transition effect

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)
white=MakeColor(255,255,255)
// set window properties
SetWindowTitle( "transition" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

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

state=0
height=GetWindowHeight () 
width=GetWindowWidth ()
hh#=height/10
h#=hh#
do

if state=1
				for t# = 0 to height step hh#
			DrawBox(0,t#,width,t#+h#,white,white,white,white,1)
		next t#
		if h# < hh#
			inc h#
		else
		state=2	
		//h#=hh#
		endif
	else
		for t# = height to 0 step -hh#
			DrawBox(0,t#,width,t#+h#,white,white,white,white,1)
		next t#
		if h# > 0
			dec h#
		else
		state=1	
		//h#=hh#
		endif
	endif

sync()
loop

+ Code Snippet

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)
white=MakeColor(255,255,255)
// set window properties
SetWindowTitle( "transition" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

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

state=0
height=GetWindowHeight () 
width=GetWindowWidth ()
hh#=height/10
h#=hh#
do

	if state=1
				for t# = 0 to height step hh#
			DrawBox(0,t#,width,t#+h#,white,white,white,white,1)
		next t#
		if h# < hh#
			inc h#
		else
		state=2	
		//h#=hh#
		endif
	else
		for t# = height to 0 step -hh#
			DrawBox(0,t#,width,t#+h#,white,white,white,white,1)
		next t#
		if h# > 0
			dec h#
		else
		state=1	
		//h#=hh#
		endif
	endif				

 
sync()
loop

That might work better for fading out a scene and fading in a new one and still sticks with the line drawing methods

I did a curtain effect similar to the below for a game jam I entered it was a simple effect and people liked it

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)
white=MakeColor(255,255,255)
// set window properties
SetWindowTitle( "curtain" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

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

state=0
height=GetWindowHeight () 
width=GetWindowWidth ()
ww#=width/2
w#=ww#
do

if state=1
		DrawBox(0,0,w#,height,white,white,white,white,1)
		DrawBox(width,0,width-w#,height,white,white,white,white,1)
		if w# < ww#
			inc w#
		else
			state=2	
		endif
	else
		DrawBox(0,0,w#,height,white,white,white,white,1)
		DrawBox(width,0,width-w#,height,white,white,white,white,1)
		if w# > 0
			dec w#
		else
			state=1	
		endif
	endif				
 
sync()
loop

+ Code Snippet

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)
white=MakeColor(255,255,255)
// set window properties
SetWindowTitle( "curtain" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

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

state=0
height=GetWindowHeight () 
width=GetWindowWidth ()
ww#=width/2
w#=ww#
do

	if state=1
		DrawBox(0,0,w#,height,white,white,white,white,1)
		DrawBox(width,0,width-w#,height,white,white,white,white,1)
		if w# < ww#
			inc w#
		else
			state=2	
		endif
	else
		DrawBox(0,0,w#,height,white,white,white,white,1)
		DrawBox(width,0,width-w#,height,white,white,white,white,1)
		if w# > 0
			dec w#
		else
			state=1	
		endif
	endif				
 
sync()
loop

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 31st Mar 2020 14:25

Link

@fubarpk . Those examples looks nice ...we can even make curtains diagonally . I have done in black color courtains from left to right ....up to down and come verty handy for some kind of games . We can even do fades from differentes colors using sprite alpha .

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 31st Mar 2020 16:54

Link

You can use sprites to draw thicker lines and it'd probably run faster.

Tiled TMX Importer V.2
XML Parser V.2
Base64 Encoder/Decoder
Purple Token - Free online hi-score database
Legend of Zelda

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 31st Mar 2020 17:11

Link

@Phaelax. Probably it'l run faster , but when I start this test was to use with other basic lenguages that has no sprite commands like Qb64 Qbasic Freebasic etc etc....it was aswell a challenge of not using commands like load image, get image etc.

I'm not a grumpy grandpa

Back to top

Profile PM Email

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 31st Mar 2020 20:19

Link

Quote: " I have done in black color courtains from left to right ....up to down and come verty handy for some kind of games .
We can even do fades from differentes colors using sprite alpha . "

My original example used a created sprite, I originally tried allsorts to make it look pretty and have the desired effect
but what I found worked best in the end was just a single white line for each curtain with trailing black box. That
worked well for my game and looked best as it had a black background and the game was vector drawing based.
(simplicity is often the best)

Just a question, ive seen many of your beginnings to projects but rarely seen the completed ones. Would love to see
some of your finished projects in showcase.

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 31st Mar 2020 21:13

Link

Quote: "simplicity is often the best"

Yeah you are right!

Quote: "Just a question, ive seen many of your beginnings to projects but rarely seen the completed ones. Would love to see
some of your finished projects in showcase."

In my case, I do little games just for fun...who knows...perhaps one day

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 4th Apr 2020 10:19 Edited at: 4th Apr 2020 10:20

Link

Hi there . New update to the line animation snippet

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Line Animation" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 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 w
dim px[15]
dim py[15]

for i= 1 to 15
	px[i]=-73+i*73
	py[i]=100+random(0,80)
next
	for k= 1 to 70
	w=makecolor(190-k,170-k,0)	
	for i= 1 to 14
	   drawline(px[i],30+py[i]+k,px[i+1],30+py[i+1]+k,w,w)
	next
	next
getimage(1,0,0,1024,200)
createsprite(1,1)

b as float
do
`sky
w=makecolor(150,150,255)
drawbox(0,0,1024,200,w,w,w,w,1)

`mountains
Render2DFront()

`floor
w=makecolor(200,200,70)
drawbox(0,200,1400,800,w,w,w,w,1)

`Animation -------------------------------------
run=run+1
if run<35 then b=b+2
if run>35 then b=b-2
if run>70 
  run=0
  b=0
  ang=0
endif
x#=cos(ang)*25
y#=sin(ang)*15
ang=ang+5
`-----------------------------------------------
`left hand
w=makecolor(160,140,90)
line(440-x#/3,190,480-b,290,18)  
     
`left leg
w=makecolor(0,100,0)
line(400,300,410+b,400,20)
line(430,300,410+b,400,20)        `making thigh thicker
line(410+b,400,390+b*1.3,500-y#,20)
w=makecolor(100,90,20)
line(390+b*1.3,500-y#,420+b*1.3,500-y#,23)

`right leg
w=makecolor(0,120,0)
line(400,300,460-b,400,20)
line(440,300,460-b,400,20)       `making thigh thicker
line(460-b,400,460-b*1.3,500+y#,20)
w=makecolor(120,100,30)
line(460-b*1.3,500+y#,490-b*1.3,500+y#,25)

w=makecolor(0,120,0)
drawellipse(415,300,40,40,w,w,1) `bottom

`body
w=makecolor(80,75,45)
line(420,280,430-x#/3,200,40)
drawellipse(436-x#/4,240,35,55,w,w,1) `belly

w=makecolor(0,120,0)
drawbox(379,280,459,310,w,w,w,w,1)  `mask
drawbox(385,295,450,320,w,w,w,w,1)  `mask
w=makecolor(120,125,50)
line(382,290,452,290,8)              `belt
w=makecolor(0,120,0)
drawbox(420,280,430,320,w,w,w,w,1)

`head
w=makecolor(170,150,100)
drawellipse(450-x#/3,130,50,50,w,w,1)
w=makecolor(180,150,100)
drawellipse(501-x#/3,135,10,10,w,w,1)  `nose
w=makecolor(165,135,75)
drawellipse(450-x#/3,135,10,20,w,w,1)   `ear
w=makecolor(170,150,100)
drawellipse(455-x#/3,135,10,10,w,w,1)   `ear

w=makecolor(255,255,255)
drawellipse(490-x#/3,120,5,8,w,w,1)    `eye
line(490-x#/3,153,510-x#/3,165,2)       `cigar
w=makecolor(0,0,0)
line(490-x#/3,145,500-x#/3,150,5)       `moustache
drawellipse(491-x#/3,120,3,4,w,w,1)

`right hand
 w=makecolor(170,150,100)
 line(430-x#/3,200,410+b,300,20)
 w=makecolor(150,140,50)
 line(415+b,305,420+b*1.2,540,5)         `walking stick
  
 `hat
 w=makecolor(10,10,10)
 line(400-x#/3,100,500-x#/3,100,15)
 line(440-x#/3,80,460-x#/3,80,25)

`fence

ja=490
mv#=mv#-2
if mv#=-70 then mv#=70
for i= 1 to 15
	w=makecolor(110,105,30)
	drawbox(-140+i*70+mv#,ja-100,-140+i*70+50+mv#,ja+100,w,w,w,w,1)
	w=makecolor(105,100,20)
    drawbox(-140+i*70+mv#-10,ja-80,-140+i*70+50+mv#+10,ja-60,w,w,w,w,1)
next
	
 
sync()
loop

function line(x#,z#,x2#,z2#,s)
angle#= atanfull(x#-x2#, z#-z2#)+90

dx#=x#-x2#
dz#=z#-z2#
dist#=sqrt((dx#*dx#)+(dz#*dz#))

for i= 1 to dist#
    x#=x#+cos(angle#)
    z#=z#+sin(angle#)
    drawellipse(x#,z#,s,s,w,w,1)
next
endfunction

+ Code Snippet

// Project: Line Animation 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Line Animation" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 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 w
dim px[15]
dim py[15]

for i= 1 to 15
	px[i]=-73+i*73
	py[i]=100+random(0,80)
next
	for k= 1 to 70
	w=makecolor(190-k,170-k,0)	
	for i= 1 to 14
	   drawline(px[i],30+py[i]+k,px[i+1],30+py[i+1]+k,w,w)
	next
	next
getimage(1,0,0,1024,200)
createsprite(1,1)



b as float
do
`sky
w=makecolor(150,150,255)
drawbox(0,0,1024,200,w,w,w,w,1)	

`mountains
Render2DFront()	

`floor
w=makecolor(200,200,70)
drawbox(0,200,1400,800,w,w,w,w,1)

`Animation -------------------------------------
run=run+1
if run<35 then b=b+2
if run>35 then b=b-2
if run>70 
  run=0
  b=0
  ang=0
endif
x#=cos(ang)*25
y#=sin(ang)*15
ang=ang+5
`-----------------------------------------------
`left hand
w=makecolor(160,140,90)
line(440-x#/3,190,480-b,290,18)  
     
`left leg
w=makecolor(0,100,0)
line(400,300,410+b,400,20)
line(430,300,410+b,400,20)        `making thigh thicker
line(410+b,400,390+b*1.3,500-y#,20)
w=makecolor(100,90,20)
line(390+b*1.3,500-y#,420+b*1.3,500-y#,23)

`right leg
w=makecolor(0,120,0)
line(400,300,460-b,400,20)
line(440,300,460-b,400,20)       `making thigh thicker
line(460-b,400,460-b*1.3,500+y#,20)
w=makecolor(120,100,30)
line(460-b*1.3,500+y#,490-b*1.3,500+y#,25)

w=makecolor(0,120,0)
drawellipse(415,300,40,40,w,w,1) `bottom

`body
w=makecolor(80,75,45)
line(420,280,430-x#/3,200,40)
drawellipse(436-x#/4,240,35,55,w,w,1) `belly

w=makecolor(0,120,0)
drawbox(379,280,459,310,w,w,w,w,1)  `mask
drawbox(385,295,450,320,w,w,w,w,1)  `mask
w=makecolor(120,125,50)
line(382,290,452,290,8)              `belt
w=makecolor(0,120,0)
drawbox(420,280,430,320,w,w,w,w,1)



`head
w=makecolor(170,150,100)
drawellipse(450-x#/3,130,50,50,w,w,1)
w=makecolor(180,150,100)
drawellipse(501-x#/3,135,10,10,w,w,1)  `nose
w=makecolor(165,135,75)
drawellipse(450-x#/3,135,10,20,w,w,1)   `ear
w=makecolor(170,150,100)
drawellipse(455-x#/3,135,10,10,w,w,1)   `ear


w=makecolor(255,255,255)
drawellipse(490-x#/3,120,5,8,w,w,1)    `eye
line(490-x#/3,153,510-x#/3,165,2)       `cigar
w=makecolor(0,0,0)
line(490-x#/3,145,500-x#/3,150,5)       `moustache
drawellipse(491-x#/3,120,3,4,w,w,1)

`right hand
 w=makecolor(170,150,100)
 line(430-x#/3,200,410+b,300,20)
 w=makecolor(150,140,50)
 line(415+b,305,420+b*1.2,540,5)         `walking stick
  
 `hat
 w=makecolor(10,10,10)
 line(400-x#/3,100,500-x#/3,100,15)
 line(440-x#/3,80,460-x#/3,80,25)


`fence

ja=490
mv#=mv#-2
if mv#=-70 then mv#=70
for i= 1 to 15
	w=makecolor(110,105,30)
	drawbox(-140+i*70+mv#,ja-100,-140+i*70+50+mv#,ja+100,w,w,w,w,1)
	w=makecolor(105,100,20)
    drawbox(-140+i*70+mv#-10,ja-80,-140+i*70+50+mv#+10,ja-60,w,w,w,w,1)
next
	
 
sync()
loop

function line(x#,z#,x2#,z2#,s)
angle#= atanfull(x#-x2#, z#-z2#)+90

dx#=x#-x2#
dz#=z#-z2#
dist#=sqrt((dx#*dx#)+(dz#*dz#))

for i= 1 to dist#
    x#=x#+cos(angle#)
    z#=z#+sin(angle#)
    drawellipse(x#,z#,s,s,w,w,1)
next
endfunction

I'm not a grumpy grandpa

Attachments

Login to view attachments

Back to top

Profile PM Email

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 4th Apr 2020 14:33

Link

NICE

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Classic Chat / Line Animation

Attachments

Attachments

Attachments

Attachments