/polpoint { % syntaxe r alpha polpoint rd 2 copy % r, alpha, r, alpha cos mul % r, alpha, r cos (alpha) 3 copy pop % r, alpha, r cos (alpha), r, alpha sin mul point pop pop } def