Something

alias F9 /window -apk0 @paint | set %size 10
menu @paint {
  sclick:{
    echo clicked $mouse.x $mouse.y
    set %leftclick $mouse.x $mouse.y 
  }
  dclick:/echo double click at $mouse.x $mouse.y
  uclick:{
    echo let go $mouse.x $mouse.y
    if (%texton) { drawtext -r @paint %color %leftclick $?="What text?" | unset %texton | halt }
    if (%squareon) {
      drawrect -rf @paint %color %size %leftclick $calc($gettok(%leftclick,1,32) - $mouse.x) $calc($gettok(%leftclick,y,32) - $mouse.y)
      unset %squareon
      halt 
    }
    if (%leftclick == $mouse.x $mouse.y) {
      drawdot -r @paint %color %size %leftclick
    }
    else { drawline -r @paint %color %size %leftclick $mouse.x $mouse.y | unset %leftclick }
  }
  .Picture Window Usage Options
  .colors
  ..red:/set %color $rgb(255,0,0)
  ..pink:/set %color $rgb(255,105,180)
  ..Deep Pink:/set %color $rgb(255,20,147)
  ..Purple:/set %color $rgb(160,32,240)
  ..Dark Blue:/set %color $rgb(25,25,112)
  ..Sky Blue:/set %color $rgb(0,191,255)
  ..Black:/set %color $rgb(0,0,0)
  ..Gray:/set %color $rgb(190,190,190)
  ..Light Green:/set %color $rgb(124,252,0)
  ..Brown:/set %color $rgb(139,69,19)
  ..Gold:/set %color $rgb(255,215,0)
  ..Yellow:/set %color $rgb(255,255,0)
  ..Erase(White):/set %color $rgb(255,255,255)
  ..Orange:/set %color $rgb(255,140,0)
  ..Green:/set %color $rgb(0,255,0)
  ..Blue:/set %color $rgb(0,0,255)
  .tools
  ..New:{
    window -c @paint
    window -apk0 @paint
  }
  .Dot Size
  ..20:/set %size 20
  ..15:/set %size 15
  ..10:/set %size 10
  ..5:/set %size 5
  ..Custom Size:{
    var %hmm $?="What size dot?"
    if (%hmm) { set %size %hmm }
    else { set %size 10 }
  }
  .Options
  ..Square:/set %squareon on
  ..text:/set %texton on
}