\ fsin needs fcos : fsin ( F: rad -- sin ) 1.5707963e f- fcos ;