Source PostScript (tronqueangle.pps)

%% syntaxe : real tronqueangle -> r, avec -90 < r =< 90 et r-real = 0 mod 180
/tronqueangle {
2 dict begin
   /r exch def
   r -90 lt {
      r 180 add tronqueangle
   } {
      r 90 ge {
         r 180 sub tronqueangle
      } {
         r
      } ifelse
   } ifelse
end
} def