%%BeginFeature: Supercell Creator
% (c) 1999-2001 Stanislav Brabec, UTX
% please note that it works only for "good" frequencies
/screendict 1 dict def
currentscreen
3 2 roll 2 div 3 -2 roll
screendict begin /oldspot exch def end
{
    dup floor sub 2 mul 1 sub
    exch
    dup floor sub 2 mul 1 sub
    exch
    screendict begin oldspot end
}
setscreen
%%EndFeature