Source PostScript (divc.pps)

%% division de 2 complexes
%% syntaxe : a b a' b' divc --> z / z'
/divc {
4 dict begin
   /b' exch def
   /a' exch def
   /b exch def
   /a exch def
   a b a' b' neg mulc
   1
   a' dup mul b' dup mul add 
   div
   0 mulc
end
} def