Commit ea0de670 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com

Comments only

parent e289f1b4
......@@ -16,6 +16,9 @@ vec_sub :: Vec -> Vec -> Vec
-- represent the nummerator and denominator of a rational number which
-- is used to scale the given vector.
scale_vec2 :: Vec -> Int -> Int -> Vec
-- Inlining scale_vec2 makes a big difference (at least until we
-- have nested CPR! To see, try the effect of this inline pragma
{- # INLINE scale_vec2 # -}
scale_vec2 (x,y) a b = ((x*a) `div` b, (y*a) `div` b)
p_tile :: [(Int,Int,Int,Int)]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment