#!/usr/bin/perl -wl
use strict;
                    #|\    /|
use Tk 8;           #| \  / |
use vars qw/ %OQ /; # \_oO_/
                    # |  > |
                    #  `--'


$OQ{MW} = new Tk::MainWindow(-background=>'black',
                             -width=>300,
                             -height=>300,
                           ,);#:D->pack();
$OQ{MW}->title("OeufMayo draw ++ ~ image altered and used without permission");
$OQ{MW}->resizable(0,0);

use vars qw/ $DEFTARGET/; # why this not in %OQ, I don't know

$DEFTARGET = q{
R0lGODlhhQDEAPcAAAAAAAAAQAAAgAAA/wAgAAAgQAAggAAg/wBAAABAQABAgABA/wBgAABgQABg
gABg/wCAAACAQACAgACA/wCgAACgQACggACg/wDAAADAQADAgADA/wD/AAD/QAD/gAD//yAAACAA
QCAAgCAA/yAgACAgQCAggCAg/yBAACBAQCBAgCBA/yBgACBgQCBggCBg/yCAACCAQCCAgCCA/yCg
ACCgQCCggCCg/yDAACDAQCDAgCDA/yD/ACD/QCD/gCD//0AAAEAAQEAAgEAA/0AgAEAgQEAggEAg
/0BAAEBAQEBAgEBA/0BgAEBgQEBggEBg/0CAAECAQECAgECA/0CgAECgQECggECg/0DAAEDAQEDA
gEDA/0D/AED/QED/gED//2AAAGAAQGAAgGAA/2AgAGAgQGAggGAg/2BAAGBAQGBAgGBA/2BgAGBg
QGBggGBg/2CAAGCAQGCAgGCA/2CgAGCgQGCggGCg/2DAAGDAQGDAgGDA/2D/AGD/QGD/gGD//4AA
AIAAQIAAgIAA/4AgAIAgQIAggIAg/4BAAIBAQIBAgIBA/4BgAIBgQIBggIBg/4CAAICAQICAgICA
/4CgAICgQICggICg/4DAAIDAQIDAgIDA/4D/AID/QID/gID//6AAAKAAQKAAgKAA/6AgAKAgQKAg
gKAg/6BAAKBAQKBAgKBA/6BgAKBgQKBggKBg/6CAAKCAQKCAgKCA/6CgAKCgQKCggKCg/6DAAKDA
QKDAgKDA/6D/AKD/QKD/gKD//8AAAMAAQMAAgMAA/8AgAMAgQMAggMAg/8BAAMBAQMBAgMBA/8Bg
AMBgQMBggMBg/8CAAMCAQMCAgMCA/8CgAMCgQMCggMCg/8DAAMDAQMDAgMDA/8D/AMD/QMD/gMD/
//8AAP8AQP8AgP8A//8gAP8gQP8ggP8g//9AAP9AQP9AgP9A//9gAP9gQP9ggP9g//+AAP+AQP+A
gP+A//+gAP+gQP+ggP+g///AAP/AQP/AgP/A////AP//QP//gP///yH5BAEAAOAALAAAAACFAMQA
AAj/AMEJHEiwoMGDCBMqXMiwocOHECNKnEixosWLGDNq3Mixo8ePIEOKHEmypMmTKFOqXMmypcuX
HpPIhEkzpkyZJHKSaFOzJ8WcSeQIHZqEBACePpMyvNlmqFOhOZEqnUqwjdWnWIUWlUS169WsYHN2
nRoUrNk2AJKM9SnTrFuja3uWdWs2bVyYc+mCBQDgrsu2es0mses3ZRvAgcGi7Vv45M3EbgczbkwS
ceI2JLJKpjzyMWQ5fPliXcw5pOXERkOP5lv64+nAi0Nndpq6dUeZTT+D5rtTNG3WtjUy1Z0agFDf
Q0MHF/4VcuyyyI8DX24xSW7doY3XnU594uvEst0q/+9O0bpurarFAyBB3rv589mvY5XdPuL3wMWj
O40ttX7DvNhll9Zq4/n3n3wBCjibHLFxZ6BC98EmW1EC8lbggxAi+JlkAEiC22Hv7TYZhghFiB9f
XGGm4W5qkViiiXrx1SI4ki0ooosJWbciZHz1R+NgOYU2I44FhXgegw4KdJNMhBFZkIc7JjYYVwlZ
5WSJUYLH3pUSwagXWltyCZGRRxo1pJhLSXLkU0mimeGaTrXpJpZwCoXWmXO+WCdUHea5VJbgjegn
nXvKOaiSAB5J2qGE1jkYnowqCeiJPkb6457SWWqQl18aOuhhk3YqqKVFhUpXbZoimuiRF0YKJabo
Qb46KKdSrpcqjaYGBmSqtNY66qy5Svhrnr1CBlekuMH61LGMkqnso806C+tmsxb72aJ+eqbsfp46
mey2y3brorbgDoXqnD2W+xS1bt6p7lPYolnqu+HOSS69crDL5aP47sfsvkf1+5ubRQnMLZX7roqv
uPV9a3CmCT/827AGviqxuRT75/DF/46rsMDxYjhYsOBSiGPBF2N1roEbp6xVxw1/rJfMzgX54L08
aocphRm31vJlAz47GMvS6kUCzeeF/0ydtXbupK4kPVOmY5lIK8qwXz/jR7KxURfGNIM2lqu0z1Wr
HDa4HnZ9V9F0BU2vvmRbXfaah6nt1by68dsvWsExyRvbWOGNL9Rkcyib0zOf/e7VbN3Em1U8Iy6Y
znvbXdOHK2LG21uU98s4TTpmqfnH+uHLt9eHwaaexGNTNXXS15WO79BYz82mzrLT27pSlhUF42K5
5X6tqbSvPdffR5uVWvCdo1ah25Nb/ldZhq+n8PLS5Vr9euEZ/XlLqecbpE7Jqyxj9idml4Qk2/yz
zeaJS88SZkHpaJ0tkqQGoJDSfay5+v8IoAD/gT26oKVSU/EQkyRhlfYFkD/JOZ8cUv+jGQulxRYD
zGBxOoVApeQvJ1DLSQa3wSHrdK+A6PmbJDLIQgKmp20dTIotjMIe7rWQhM+zE/LWszwHtlCDLxSP
rKZyFHDY8Ie2qF4EFUQCH/5wgNsoDqDuxBkePjGA24jNErOzwiuyMH+S6VSYCpMWEmDQixSUjoC8
2MKcQAZalEliWthIP6IIKAlsHOF6cjbErngoJ05kIQlDVLfQdDGPD4Re25rkF6tgZidXTCIh/QaA
MyIyiorbTgzJAhSgXFGB8mkD1FCEyADqTUtSs16QnhhFRTZlMXjMY/72+BlbNQZEIAJAIAU4SgA1
ZZYkYGMrhacYRhovdJW8IZCy0hT/IO1SgLZ4ZPk2VMRGmsmR+WtDC2epsEJaMoOjXM/WJjjGuGDP
KnIMZNqa5xQKxTKDHJIcccq5lscxaH1AGqAc5akyd+pTfXX6nkt0ch1RLqaLs1Sk2fRnCxzaM6AC
XUlR+CmJXhZSoVkJ0vNsV8yIqqSO8GIgzyRoNI3KZpzzsWVcBDcUUa6TpPgpzjQx5VGVfDBzI2Xn
lzIJUazNFF5g42jl5LeS0bmMpjVFCQqPajWV3o2fTIWPU6cCIqFGNVybpAlQruqopJZkmVyFE9yU
stWwrmmsPqGhWcXqVZEACaVrPQw9a7IYnq41cXOlSRDvmrejkSVdfD1SqTwIv8Ce/2ewPkmoYc86
k54odrFr8mtNEmpVyJJTLjC17GfEApN1wtWyjXWJZwPLQKgS5yWFtKvL7vePJFqiTpxdSUJNe1QG
fjOaXVVIg9pKkBpVVmxt2GVzklZNgjyPN3n1TmajKsofeugSdHNqhdZV3Is88rPPOiQUo/lTX1Uo
NYo7jHCIKbEObZeBjiyrd0+Kmj4+RDLYxVQTBZjFm1TUFjOcW3wim9yH8I+rRwngB48miYa6zyjC
wijXMPLfq47skev7Zgi9R8tCEbUq4jQrDXfyzX+MMjCAxdTpLEJejsmIfdvYRjQVvC7V6gYzDO7Q
XXdrSPz8VjH9dYh6Z+xIU4WvZJjubcgjNWs6wIk3Izsm8p62l52ovDZfQdZxWuJL5Pwc92/NjLKU
b0xkJl8ZvBdOiE64vNjjLqQ4HkmtknMmILzgZLlrnlirXoKbh8a5ndnpit9oC9n/hTklhqNyv9Dc
mPx0966GC04CCEAAwB2VQ+QhQGgEvaeVkScBAGA0nw2G1vpI2s4P09yVEoBpAqTA0SKG2ZUEROl2
xj92UOobLt2MkoBbNRnVYJFJE25lkOykQNaKkUkKas1rhGTn0zIyXE4IQOpi+/fKc3a2tKdN7Wpb
+9rYzrZBAgIAOw==};

    $OQ{MW}->bind( 'Tk::Canvas',
                   '<ButtonPress>' =>
                  [ sub { print sprintf " TARG:|@_| R:%s G:%s B:%s",
                         $DEFTARGET->get(@_[2,3]);
                       },
                    Ev('b'),
                    Ev('x'),
                    Ev('y'),
                  ,]
                ,);

$OQ{C} = $OQ{MW}->Canvas(-width => 500,
                            -height =>460,
                            -background => 'pink',
                           ,)->pack();


$DEFTARGET = $OQ{C}->Photo(-data => $DEFTARGET);


$OQ{HEAD} = $OQ{C}->create('image',
                    $DEFTARGET->width()/2,  #x
                    $DEFTARGET->height()/2, #y
                    -image => $DEFTARGET,
                   ,); # debugging purposes


&MainLoop();