Custom Query (25 matches)

With this program:

import Graphics.Gloss
main    
= animate (InWindow "Foo" (800,800) (0,0)) black 
$ \t -> pictures 
       [ color white $ ThickArc (5 * t+ 0.01) (10 * t+ 0.1) 200 100
       , color red   $ ThickArc (5 * t+ 0.01) (10 * t+ 0.1) 250 10
       , color red   $ ThickArc (5 * t+ 0.01) (10 * t+ 0.1) 150 10 ]

The arc ends aren't at the right angle, depending on the value for the total arc length. I expect this is an interaction between the number of draw steps and the total length.

This program leaks 25k/sec

module Main (
    main
)
where

import Graphics.Gloss
import Graphics.Gloss.Interface.IO.Game

main = 
    playIO (InWindow "glossmem" (500, 500) (0,0)) white 10 0
    (\world -> return (translate (-250) 0 (text $ show world)))
    (\event -> (\world -> return world))
    (\timePassed -> (\world -> return $ world + timePassed))

This crashes with but GLUT and GLFW with and without -fno-ghci-sandbox.