generate platform_ops.h from platform_ops.proto, and reduce dependencies
[proto.git] / lib / core / polar-to-rect.proto
blobbe025427af3ab756fa614fadd1c69052b64a2058
1 (def polar-to-rect (p)
2   (let ((r (1st p)) (a (2nd p)))
3   (tup (* r (cos a)) (* r (sin a)))))