Miscellany

alias animate {
  window -pfd @a 1 1 200 200
  anim
}
alias anim {
  var %c 0,%y 0,%s 2,%o $iif($1,$1,0),%i $iif($2,$2,2),%1 drawtext @a 0 verdana,%2 drawrect
  if !$2 {
    window -pfda @a 0 0 320 320
    %1 40 50 120 PAINT LITE!
  }
  while (%y < 320) {
    if !$2 {
      %2 -f @a %c 1 0 %y 20 20
      %2 @a 0 1 0 %y 20 20
    }
    if (%s <= 10) {
      drawdot @a %o %s 311 $calc(%y +12)
      if (!$2) %2 @a 0 0 299 %y 21 21
    }
    inc %s
    inc %c
    inc %y 20
  }

  %2 @a 0 1 275 300 45 20
  %1 10 285 303 Save
  %2 @a 0 1 230 300 45 20
  %1 10 238 303 Open
  %2 @a 0 1 185 300 45 20
  %1 10 193 303 Clear

  if ($mouse.key & 1) {
    %x = $mouse.x
    %y = $mouse.y

    if (%x < 35) %o = $int($calc(%y /20))
    elseif (%x > 298) && (%y < 181) %i = $int($calc(%y /20)) + 2
    elseif ($inrect(%x,%y,274,300,45,20)) && $sfile($mircdir/*.jpg,Save,Save) {
      window -fhp @b 0 279 300
      drawcopy @a 20 0 279 300 @b 0 0
      drawsave @b $v1
      window -c @b

    }
    elseif ($inrect(%x,%y,230,300,45,20)) && ($sfile($mircdir/*.jpg)) drawpic @a 20 0 0 0 279 300 $qt($v1)
    elseif ($inrect(%x,%y,193,300,45,20)) %2 -f @a $color(b) 1 20 0 279 300
    elseif ($inrect(%x,%y,20,0,270,290)) drawdot @a %o %i %x %y
  }

  .timeranim -h 1 10 anim %o %i
}
on *:CLOSE:@a: {
  .timeranim off
}

on *:CLOSE:@a: {
  .timeranim off
}


/*
alias animate {
  window -pfd @a 1 1 200 200
  anim
}
alias anim {
  var %c 0,%y 0,%s 2,%o $iif($1,$1,0),%i $iif($2,$2,2),%1 drawtext @a 0 verdana,%2 drawrect
  if !$2 {
    window -pfda @a 0 0 320 320
    %1 40 50 120 PAINT LITE!
  }
  while (%y < 320) {
    if !$2 {
      %2 -f @a %c 1 0 %y 20 20
      %2 @a 0 1 0 %y 20 20
    }
    if (%s <= 10) {
      drawdot @a %o %s 311 $calc(%y +12)
      if (!$2) %2 @a 0 0 299 %y 21 21
    }
    inc %s
    inc %c
    inc %y 20
  }

  %2 @a 0 1 275 300 45 20
  %1 10 285 303 Save
  %2 @a 0 1 230 300 45 20
  %1 10 238 303 Open
  %2 @a 0 1 185 300 45 20
  %1 10 193 303 Clear

  if ($mouse.key & 1) {
    %x = $mouse.x
    %y = $mouse.y

    if (%x < 35) %o = $int($calc(%y /20))
    elseif (%x > 298) && (%y < 181) %i = $int($calc(%y /20)) + 2
    elseif ($inrect(%x,%y,274,300,45,20)) && $sfile($mircdir/*.jpg,Save,Save) {
      window -fhp @b 0 279 300
      drawcopy @a 20 0 279 300 @b 0 0
      drawsave @b $v1
      window -c @b

    }
    elseif ($inrect(%x,%y,230,300,45,20)) && ($sfile($mircdir/*.jpg,Open,Open)) drawpic @a 20 0 0 0 279 300 $qt($v1)
    elseif ($inrect(%x,%y,193,300,45,20)) %2 -f @a $color(b) 1 20 0 279 300
    elseif ($inrect(%x,%y,20,0,270,290)) drawdot @a %o %i %x %y
  }

  .timeranim -h 1 10 anim %o %i
}
on *:CLOSE:@a: {
  .timeranim off
}