/polcar { % transforme des coordonnees polaires en cartesiennes (degres)
2 copy % r, alpha, r, alpha
cos mul % r, alpha, r cos (alpha)
3 1 roll % r cos (alpha), r, alpha
sin mul % r cos (alpha), r sin (alpha)
} def
/Polcar { % transforme des coordonnees polaires en cartesiennes (rd)
rd
polcar
} def
|