Thanks for testing mates
Little update .
// Project: Drawing
// Created: 2020-03-26
SetWindowTitle( "Drawing" )
SetWindowSize( 800, 600, 0 )
SetVirtualResolution( 800, 600 )
global w
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>580
b=20
w(100,100,255)
box(121,176,155,199)
endif
if run>590
w(200,200,200)
circle(135,225,10,35)
endif
if run>600 then run=570
Sync()
loop
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
