nek0/hw
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

no big planets and less small things

Browse source
This commit is contained in:
nek0 2020-01-05 15:22:41 +01:00
parent b4e2e5060f
commit f4e4457df7
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
examples/example02/Init.hs
View file

@ -94,14 +94,14 @@ load = do
y <- randomRIO (-50, 50) y <- randomRIO (-50, 50)
z <- randomRIO (-50, 50) z <- randomRIO (-50, 50)
return (V3 x y z) return (V3 x y z)
) [0..2222] ) [0..1999]
poss2 <- mapM (\_ -> do poss2 <- mapM (\_ -> do
x <- randomRIO (-100, 100) x <- randomRIO (-100, 100)
y <- randomRIO (-100, 100) y <- randomRIO (-100, 100)
z <- randomRIO (-100, 100) z <- randomRIO (-100, 100)
return (V3 x y z) return (V3 x y z)
) [0..9] ) [] -- [0..9]
let shipList = zipWith (Ship shipBO stl) let shipList = zipWith (Ship shipBO stl)
poss poss