Building a game loop (sort of)

["C. Fr" <newsgroups.fr@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 923 bytes --]

Hello everyone,

 

I’m building a small fractal visualisation app in ocaml, but I encounter
many problems with the graphics package.

 

First, plot (size_x / 2) (size_y / 2) doesn’t actually plot in the middle of
the screen… Any idea why?

 

Then, using the following code

 

if key_pressed () then

        begin

            match read_key () with

            | 'q' -> raise Exit

            | 'o' -> scale := !scale *. 2.

            | 'i' -> scale := !scale /. 2.

            | 'l' -> mid_x := !mid_x + 100

            | 'r' -> mid_x := !mid_x - 100

            | 'u' -> mid_y := !mid_y + 100

            | 'd' -> mid_y := !mid_y - 100

            | _ -> ()

        end

    done;

in a while true loop behaves randomly, ignoring some key presses, and
repeating some… Is there something that I did wrong?

 

Thanks a lot,

Andrea.

 

 

 

 


[-- Attachment #2: Type: text/html, Size: 6454 bytes --]