rowan.a.tl/propeller
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added float_div instruction

Browse Source
This commit is contained in:
Tom Helmuth 2023-11-07 20:43:24 -05:00
parent 739e975111
commit e00e34402c
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/propeller/push/instructions/numeric.cljc
View File

@ -183,6 +183,14 @@ Otherwise, acts as a NOOP"
;; FLOAT Instructions only ;; FLOAT Instructions only
;; ============================================================================= ;; =============================================================================
;; Divides the top two items on the float stack
;; If denominator is 0, returns 1.0
(def-instruction
:float_div
^{:stacks #{:float}}
(fn [state]
(make-instruction state #(float (if (zero? %2) 1 (/ %1 %2))) [:float :float] :float)))
;; Pushes the cosine of the top FLOAT ;; Pushes the cosine of the top FLOAT
(def-instruction (def-instruction
:float_cos :float_cos