/tags/ttn-post-libtool-1-4-3-upgrade/SWIG/Examples/GIFPlot/Ocaml/simple/runme.ml

# · OCaml · 34 lines · 16 code · 11 blank · 7 comment · 0 complexity · df3a43b3f7914b10afcae56c49e65e9f MD5 · raw file 

    

  1. (* Draw some simple shapes *)
    2. 

  2. 

  3. (* Use the wrapped GIFPlot library *)
    4. 

  4. open Simple
    5. 

  5. open Int32
    6. 

  6. 

  7. let _ = print_endline "Drawing some basic shapes"
    8. 

  8. 

  9. let cmap = _new_ColorMap (C_string "cmap")
    10. 

  10. let f = _new_FrameBuffer (C_list [ C_int 400 ; C_int 400 ])
    11. 

  11. 

  12. (* Clear the picture *)
    13. 

  13. let _ = _FrameBuffer_clear (C_list [ f ; _BLACK ])
    14. 

  14. 

  15. (* Make a red box *)
    16. 

  16. let _ = _FrameBuffer_box 
    17. 

  17. 	  (C_list [ f ; C_int 40 ; C_int 40 ; C_int 200 ; C_int 200 ; _RED ])
    18. 

  18. 

  19. (* Make a blue circle *)
    20. 

  20. let _ = _FrameBuffer_circle 
    21. 

  21. 	  (C_list [ f ; C_int 200 ; C_int 200 ; C_int 40 ; _BLUE ])
    22. 

  22. 

  23. (* Make green line *)
    24. 

  24. let _ = _FrameBuffer_line 
    25. 

  25. 	  (C_list [ f ; C_int 10 ; C_int 390 ; C_int 390 ; C_int 200 ; _GREEN ])
    26. 

  26. 

  27. (* Write an image out to disk *)
    28. 

  28. 

  29. let _ = _FrameBuffer_writeGIF (C_list [ f ; cmap ; C_string "image.gif" ])
    30. 

  30. let _ = print_endline "Wrote image.gif"
    31. 

  31. 

  32. let _ = _delete_FrameBuffer f
    33. 

  33. let _ = _delete_ColorMap cmap
    34.