Ticket #447: bug.2.hs

File bug.2.hs, 3.2 KB (added by nobody, 9 years ago)
Line 
1main = emission `seq` return ()
2    where emission = emit 501
3
4data Vector3D    = Vector3D (Double, Double, Double) deriving (Eq)
5data VectorSpher = VectorSpher (Double, Double, Double) deriving (Eq)
6
7data Snapshot          = Snapshot (Double, Vector3D, VectorSpher) deriving (Eq)
8data Entity            = Entity Snapshot deriving (Eq)
9
10emit :: Int -> Entity
11emit n       
12      = case n of
13         501  -> Entity $ Snapshot (9.50, Vector3D (   5.0,    0.0,   50.0), VectorSpher (0.0, 0.0, 0.0))
14         502  -> Entity $ Snapshot (9.10, Vector3D (  10.0,    0.0,   42.0), VectorSpher (0.0, 0.0, 0.0))
15         503  -> Entity $ Snapshot (9.40, Vector3D (  35.0,    0.0,   85.0), VectorSpher (0.0, 0.0, 0.0))
16         504  -> Entity $ Snapshot (9.80, Vector3D (  25.0,    0.0,   25.0), VectorSpher (0.0, 0.0, 0.0))
17         505  -> Entity $ Snapshot (9.30, Vector3D (  45.0,    0.0,   10.0), VectorSpher (0.0, 0.0, 0.0))
18         506  -> Entity $ Snapshot (9.20, Vector3D (  75.0,    0.0,   85.0), VectorSpher (0.0, 0.0, 0.0))
19         507  -> Entity $ Snapshot (9.20, Vector3D (  50.0,    0.0,   10.0), VectorSpher (0.0, 0.0, 0.0))
20         508  -> Entity $ Snapshot (9.20, Vector3D (  55.0,    0.0,   10.0), VectorSpher (0.0, 0.0, 0.0))
21         509  -> Entity $ Snapshot (9.20, Vector3D (  60.0,    0.0,   10.0), VectorSpher (0.0, 0.0, 0.0))
22         510  -> Entity $ Snapshot (9.20, Vector3D (  80.0,    0.0,   85.0), VectorSpher (0.0, 0.0, 0.0))
23         511  -> Entity $ Snapshot (9.20, Vector3D (  85.0,    0.0,   85.0), VectorSpher (0.0, 0.0, 0.0))
24         512  -> Entity $ Snapshot (9.20, Vector3D (  90.0,    0.0,   85.0), VectorSpher (0.0, 0.0, 0.0))
25         513  -> Entity $ Snapshot (9.20, Vector3D (  20.0,    0.0,   50.0), VectorSpher (0.0, 0.0, 0.0))
26         514  -> Entity $ Snapshot (9.20, Vector3D (  25.0,    0.0,   50.0), VectorSpher (0.0, 0.0, 0.0))
27         515  -> Entity $ Snapshot (9.20, Vector3D (  30.0,    0.0,   50.0), VectorSpher (0.0, 0.0, 0.0))
28         516  -> Entity $ Snapshot (9.20, Vector3D (  35.0,    0.0,   50.0), VectorSpher (0.0, 0.0, 0.0))
29
30         5091 -> Entity $ Snapshot ( 9.20, Vector3D (  60.0,    0.0,   10.0), VectorSpher (0.0, 0.0, 0.0))
31         5092 -> Entity $ Snapshot (14.20, Vector3D (  60.0,    0.0,   10.0), VectorSpher (0.0, 0.0, 0.0))
32         5093 -> Entity $ Snapshot (19.20, Vector3D (  60.0,    0.0,   10.0), VectorSpher (0.0, 0.0, 0.0))
33         5094 -> Entity $ Snapshot (24.20, Vector3D (  60.0,    0.0,   10.0), VectorSpher (0.0, 0.0, 0.0))
34         5095 -> Entity $ Snapshot (29.20, Vector3D (  60.0,    0.0,   10.0), VectorSpher (0.0, 0.0, 0.0))
35
36         5161 -> Entity $ Snapshot ( 9.20, Vector3D (  35.0,    0.0,   50.0), VectorSpher (0.0, 0.0, 0.0))
37         5162 -> Entity $ Snapshot (14.20, Vector3D (  35.0,    0.0,   50.0), VectorSpher (0.0, 0.0, 0.0))
38         5163 -> Entity $ Snapshot (19.20, Vector3D (  35.0,    0.0,   50.0), VectorSpher (0.0, 0.0, 0.0))
39         5164 -> Entity $ Snapshot (24.20, Vector3D (  35.0,    0.0,   50.0), VectorSpher (0.0, 0.0, 0.0))
40
41         601  -> Entity $ Snapshot (9.50, Vector3D (  18.0,    0.0,  135.0), VectorSpher (0.0, 0.0, 0.0))
42         602  -> Entity $ Snapshot (9.10, Vector3D (  27.0,    0.0,  114.0), VectorSpher (0.0, 0.0, 0.0))