//pixilang 2007. Graphics editor by Goglus -  http://goglus.com 

h = get_hours
m = get_minutes
s = get_seconds
video_export_gif("$h.$m.$s.gif",-50,-50,100,100)
pause_video_export

o= SNEG
maska="
....
o..o
o..o
oooo
"
make_pixi(maska)
clear(SNEG )

simm=1
k=47
zm=1
co=-41
color=BLACK

start:
zoom()
ff=0
//pole
box(-52,-52,103,103,BLACK)

fbox(-52,-77,42,10,BLACK)
print("save",-51,-76, SNEG)

handle_keys({drawe zom clean save
if gpr(20,-75,8,8){kn}
if gpr(29,-75,8,8){kn}},{drawe 
},{ pause_video_export })

fbox(20,-75,8,8,BLACK)
print("+",21,-75, SNEG)

fbox(29,-75,8,8,BLACK)
print("-",29,-75, SNEG)

// size brush
fbox(40,-76,1,1,BLACK)

pixi(maska,0,-1,53)

//color bottom
fbox(-77,co,3,9,color)
box(-77,co,3,9,BLACK)

//color
box(-72,-52,9,9,BLACK)
fbox(-72,-41,10,10,BLACK)
fbox(-72,-30,10,10,RED)
fbox(-72,-19,10,10,GREEN)
fbox(-72,-8,10,10,SUN)
fbox(-72,3,10,10,BLU)
fbox(-72,14,10,10,#chchch)

//symmetry brush bottom
fbox(-73,k,11,11,RED)
box(-73,36,11,11,BLACK)
print("2",-71,38, BLACK)
box(-73,47,11,11,BLACK)
print("1",-71,49, BLACK)

fbox(-52,66,42,10,BLACK)
print("clear",-51,66, SNEG)

frame(ff)
pause_video_export
go start

drawe:
if gpr(-72,-52,9,9){color= SNEG co=-52}
if gpr(-72,-41,10,10){color=BLACK co=-41}
if gpr(-72,-30,10,10){color=RED co=-30}
if gpr(-72,-19,10,10){color=GREEN co=-19}
if gpr(-72,-8,10,10){color=SUN co=-8}
if gpr(-72,3,10,10){color=BLU co=3}
if gpr(-72,14,10,10){color=#chchch co=14}

if gpr(-73,36,11,11)
{simm=-1 k=36}
if gpr(-73,47,11,11)
{simm=1 k=47}
// brush
if gpr(-52,-52,103,103){
fbox(get_pen_x,get_pen_y,zm,zm, color)
//symmetry brush
if gpr(-52,-52,103,103){
fbox(simm*get_pen_x,get_pen_y,zm,zm, color)}}
ret

zom:
if gpr(20,-75,8,8){zm+1}
if gpr(29,-75,8,8){zm-1}
if zm<1 {zm=1}
if zm>20 {zm=20}
ret

clean:
if gpr(-52,66,42,10){
fbox(-51,-51,103,103, SNEG)}
ret

kn:
fbox(40,-76,20,20, SNEG)
fbox(40,-76,zm,zm,BLACK)
ret

save:
if gpr(-52,-77,42,10){
print("save",-51,-76, RED)
//velocity frame
ff=270
resume_video_export}
ret