not-gloss 0.4.1 → 0.4.2
raw patch · 2 files changed
+3/−2 lines, 2 files
Files
- Vis/VisObject.hs +2/−1
- not-gloss.cabal +1/−1
Vis/VisObject.hs view
@@ -84,7 +84,7 @@ -- quad drawObject (VisQuad (Xyz x0 y0 z0) (Xyz x1 y1 z1) (Xyz x2 y2 z2) (Xyz x3 y3 z3) col) = preservingMatrix $ do- setMaterialDiffuse col+ lighting $= Disabled setColor col glBegin gl_QUADS glVertex3d x0 y0 z0@@ -92,6 +92,7 @@ glVertex3d x2 y2 z2 glVertex3d x3 y3 z3 glEnd+ lighting $= Enabled -- cylinder drawObject (VisCylinder (height,radius) (Xyz x y z) (Quat q0 q1 q2 q3) col) =
not-gloss.cabal view
@@ -1,5 +1,5 @@ name: not-gloss-version: 0.4.1+version: 0.4.2 stability: Experimental synopsis: Painless 3D graphics, no affiliation with gloss description:{