Beleidigung /currenthsbcolor ld/SetGry/setgray ld/GetGry/currentgray ld/cmyk2rgb@3fdup 5 roll add 1 exch sub dup 0 lt@pop Olif exchlrepeat poplbd/rgb2cmyk13f1 exch su 3 1 rolllrepeat 3 copy @MN @MN 3idup 5 -1 roll sub neg exchlrepeatlbd/rgb2hsb SetRgb GetHsblbd/hsb2rgbf3 -1 roll dup floor sub 3 1 roll SetHsb GetRgblbd /rgb2gf2 index .299 mul 2 index .587 mul add 1 index .114 mul add 4 1 roll 3 }bd/WaldoColor wherelpopl@/setcmykcolor wherefpop/SetCmyk/setcmykcolor ldll /SetCmykfcmyk2rgb SetRgblbdlifelse/currentcmykcolor whereipop/GetCmyk /currentcmykcolor ldli/GetCmykiGetRgb rgb2cmyklbdlifelse/setoverprint where fpopli/setoverprintf/$op xdlbdlifelse/currentoverprint where@pop}l /currentoverprintf$oplbdlifelse/@tc15 -1 roll dup 1 gelpopl@4fdup 6 -1 roll m exchlrepeat poplifelselbd/@trpfexch pop 5 1 roll @tclbd/setprocesscolor@ SepMode 0 eqlSetCmyk1f0 4 $ink sub index exch pop 5 1 roll 4 rp SepsColor tru eqf$ink 3 gtil sub neg SetGryl@O 0 0 4 $ink roll SetCmyklifelselfl sub neg SetGrylifelselifelselbd/findcmykcustomcolor where@popli/findcmykcustomcolor15 array astore}bdlifelse/setcustomcolor wherefpopli/setcustomcolorfexch aload p SepMode 0 eqlpop @tc setprocesscolor1fCurrentInkName eq14 index110lifelse 6 1 roll 5 rp 1 sub neg SetGrylifelselbdlifelse/@sccfl eq setoverprint dup _ eqi pop setprocessc-olor poplifindcmykcustomcolor exch setcustomcolor}ifelse SepMo 0 eqftruelfGetGry 1 eq currentoverprint and notlifelselbd/colorimage wherefpo /ColorImage/colorimage ldll/ColorImagef/ncolors exch def pop/dataaq exch deff ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜ .......................
rechte Seite und so undechiffrierbar
˜˜˜˜˜˜˜˜ ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜