
cursor_test.ml,443
let c2i c = match c with c2i13,333
let i2c i = match i withi2c39,1098
let cursors = [|cursors66,1926
let name = [|name92,2552
let win = ref (-1);;win118,2945
let futureSetCursor ~value = Glut.setCursor(Glut.CURSOR_HELP) ;;futureSetCursor120,2967
let willret = ref true ;;willret122,3033
let menu ~value = menu124,3060
let display () = display153,3817
let keyboard ~key ~x ~y = keyboard158,3881
let main () = main161,3945

joy_test.ml,220
let joystick ~buttonMask ~x ~y ~z = joystick13,346
let joyPoll () = joyPoll17,449
let menu ~value = menu22,537
let display () = display39,917
let keyboard ~key ~x ~y = keyboard44,981
let main() = main48,1044

keyup_test.ml,259
let keyboard ~key ~x ~y = keyboard13,352
let keyup ~key ~x ~y = keyup17,453
let special ~key ~x ~y = special21,553
let specialup ~key ~x ~y = specialup25,669
let menu ~value = menu29,787
let display () = display45,1341
let main () = main50,1405

menu_test.ml,572
let win = ref(-1)win13,346
let subwin = ref(-1)subwin14,364
let mainmenu = ref(-1)mainmenu15,385
let submenu = ref(-1)submenu16,408
let item = ref 666item17,430
let fail where = failwith ("menu_test failed in "^where)fail19,450
let display () = display21,508
let gokey ~key ~x ~y = gokey26,572
let keyboard ~key ~x ~y = keyboard107,2739
let keyboard2 ~key ~x ~y = keyboard2112,2815
let menu ~value = printf "menu: entry = %d\n" value ;;menu117,2891
let menu2 ~value = printf "menu2: entry = %d\n" value ;;menu2119,2947
let main () = main121,3005

shape_test.ml,387
let w = ref 0 and h = ref 0w13,346
let light_diffuse = (1.0, 1.0, 1.0, 1.0)light_diffuse15,375
let light_position = (1.0, 1.0, 1.0, 1.0)light_position16,416
let qobj = ref Noneqobj18,459
let workaround w' h' = workaround23,682
let reshape ~w ~h = workaround w h;;reshape28,731
let render shape = render30,769
let display () = display147,3498
let main () = main159,3780

test1.ml,24
let main = main14,357

test10.ml,342
let ch = ref (-2);;ch26,725
let fonts = [|fonts28,746
let names = [|names41,1023
let num_fonts = (Array.length fonts);;num_fonts54,1253
let font = ref 0;;font55,1292
let limit = ref 270;; limit57,1312
let tick () = tick58,1335
let output ~x ~y ~msg = output76,1657
let display () =display83,1836
let main() = main108,2741

test11.ml,27
let main () = main13,331

test12.ml,27
let main () = main15,364

test13.ml,613
let window1 = ref (-1);;window115,364
let window2 = ref (-1);;window216,389
let win1reshaped = ref false;;win1reshaped17,414
let win2reshaped = ref false;;win2reshaped18,445
let win1displayed = ref false;;win1displayed19,476
let win2displayed = ref false;;win2displayed20,508
let checkifdone () =checkifdone22,541
let window1reshape ~w ~h =window1reshape31,733
let window1display () =window1display37,898
let window2reshape ~w ~h = window2reshape46,1115
let window2display () =window2display52,1281
let timefunc ~value = failwith(" test13\n") ;;timefunc61,1498
let main () = main63,1546

test14.ml,177
let displayFunc () = displayFunc15,392
let menuFunc ~value = printf "choice = %d\n" value ;;menuFunc20,460
let timefunc ~value = timefunc22,515
let main () = main28,627

test15.ml,287
let light_position = [|1.0, 1.0, 1.0, 0.0|];;light_position20,701
let qobj = GluQuadric.create ();;qobj21,747
let tesselation = ref 3;;tesselation23,782
let displayFunc () = displayFunc25,809
let timefunc ~value = failwith "test15";;timefunc41,1224
let main () = main43,1267

test16.ml,161
let shape = ref 1;;shape16,400
let displayFunc () = displayFunc17,420
let timefunc ~value = failwith "test16";;timefunc49,1362
let main () = main51,1405

test18.ml,769
let transP = ref 0 and opaqueP = ref 0transP14,395
let main_win = ref 0 and  sub_win = ref 0main_win15,434
let overlaySupported = ref falseoverlaySupported16,476
let subHidden = ref false and overlayHidden = ref falsesubHidden17,509
let warnIfNormalDisplay = ref falsewarnIfNormalDisplay18,565
let firstTime = ref truefirstTime19,601
let fail18() = failwith "test18"fail1821,627
let time5_cb ~value = time5_cb23,661
let time4_cb ~value = time4_cb29,759
let time3_cb ~value = time3_cb39,1025
let time2_cb ~value = time2_cb48,1229
let time_cb ~value = time_cb61,1513
let display () =display69,1678
let subDisplay () = subDisplay84,2094
let overDisplay () = overDisplay94,2340
let subVis ~state = subVis104,2589
let main () =main116,2970

test19.ml,253
let width = ref (-1);;width14,353
let height = ref (-1);;height15,376
let displayCount = ref 0;;displayCount16,400
let onDone ~value = onDone18,428
let reshape ~w ~h = reshape24,574
let display () = display30,681
let main () = main44,1079

test2.ml,490
let count = ref 0;;count17,329
let save_count = ref 0;;save_count19,350
let head = ref 0;;head20,375
let tail = ref 0;;tail21,394
let diff = ref 0;;diff22,413
let timer2 ~value = timer224,433
let timer ~value = timer31,649
let menuSelect ~value = () ;; (* do nothing *)menuSelect50,1377
let never_void () =never_void52,1425
let never_value ~state = never_value58,1603
let the_win = ref (-1);;the_win64,1785
let display () = display66,1811
let main () =main72,1902

test20.ml,95
let wrangleExtensionName ~extension = wrangleExtensionName15,376
let main () = main46,1464

test22.ml,711
let win = ref(-1)win15,402
let subwin = ref(-1)subwin16,420
let cover = ref(-1)cover17,441
let fail x = failwith ("test22 " ^ x)fail19,462
let display () = display21,501
let time_end ~value = time_end26,581
let time5 ~value = time531,647
let time4 ~value = time436,728
let time3 ~value = time341,801
let sub_state = ref 0sub_state46,874
let cover_state = ref 0cover_state47,896
let super_state = ref 0super_state48,920
let coverstat ~state = coverstat50,945
let time2 ~value = time263,1329
let substat ~state = substat70,1501
let time1 ~value = time197,2290
let winstat ~state = winstat107,2611
let visbad ~state = fail "visbad" ;;visbad121,3055
let main () = main123,3093

test23.ml,164
let modes = [|modes16,448
let strings = [|strings23,587
let ostrings = [| ostrings34,839
let verbose = ref false;;verbose43,993
let main () = main45,1020

test24.ml,140
let display () = display17,536
let timer ~value = timer22,602
let menuSelect ~value = ();;menuSelect28,722
let main () = main30,752

test25.ml,644
let abc = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"abc15,392
let null = ""null17,458
let space = "      "space18,472
let bitmap_fonts = [|bitmap_fonts20,494
let bitmap_names = [| bitmap_names29,715
let bitmap_lens = [|bitmap_lens38,867
let bitmap_abc_lens = [|bitmap_abc_lens47,953
let stroke_fonts = [|stroke_fonts56,1036
let stroke_names = [|stroke_names60,1109
let stroke_lens = [| stroke_lens64,1168
let stroke_abc_lens = [|stroke_abc_lens68,1210
let array_do a f = for i = 0 to ((Array.length a)-1) do f i donearray_do74,1362
let (+=) x y = x := !x + y;; (* :) *)x76,1428
let main () = main78,1467

test26.ml,815
let window1 = ref(-1);;window116,454
let window2 = ref(-1);;window217,478
let win1displayed = ref 0;;win1displayed18,502
let win2displayed = ref 0;;win2displayed19,530
let win1vis = ref Glut.NOT_VISIBLE;;win1vis20,558
let win2vis = ref Glut.NOT_VISIBLE;;win2vis21,595
let overlaySupported = ref false;;overlaySupported26,690
let over1displayed = ref 0;;over1displayed27,725
let checkifdone () = checkifdone29,755
let window1display () = window1display37,960
let overDisplay () =overDisplay46,1177
let window2display () = window2display54,1324
let timefunc ~value = failwith(" test26\n") ;;timefunc63,1547
let count = ref 0;;count65,1595
let idle () = idle66,1615
let window1vis ~state = window1vis78,1943
let window2status ~state = window2status85,2174
let main () = main93,2442

test27.ml,468
let parent = ref 0;;parent17,509
let child = ref 0;;child18,530
let parentDrawn = ref false;;parentDrawn20,551
let childDrawn = ref false;;childDrawn21,581
let failTest ~value = failwith(" test27\n") ;;failTest23,611
let passTest ~value = passTest25,659
let installFinish () = installFinish30,730
let output ~x ~y ~str = output35,839
let displayParent () = displayParent43,1041
let displayChild () = displayChild50,1153
let main () = main61,1399

test28.ml,201
let fake_argv = [| "program" ; "-iconic"; |];;fake_argv13,331
let displayed = ref false;;displayed15,379
let display () = display17,408
let timer ~value = timer24,540
let main () =main31,691

test3.ml,402
let n = 6;;n16,331
let m = 6;;m17,343
let exposed = Array.create (m*n) false;;exposed19,356
let ecount = ref 0;;ecount20,397
let viewable = Array.create (m*n) false;;viewable22,419
let vcount = ref 0;;vcount23,461
let display () = display25,483
let view ~state = view39,781
let timer ~value = if (value <> 23) then failwith "bad timer value";;timer51,1044
let main () = main53,1115

test4.ml,196
let ch = ref(-2);;ch16,331
let font = ref Glut.STROKE_ROMAN;;font18,351
let tick () = tick20,387
let mytick () = ();;mytick33,639
let display () =display35,661
let main() = main44,829

test6.ml,1070
let mouseButtons = ref(-1);;mouseButtons17,501
let display () =display19,531
let time7 ~value = time724,594
let int_of_menu_state s = int_of_menu_state30,716
let mstatus ~status = printf "state : %d\n" (int_of_menu_state status);;mstatus33,811
let mstatus2 ~status ~x ~y = mstatus235,885
let menu2 ~value = menu238,986
let time6 ~value = time646,1227
let estate = ref 0;;estate58,1623
let entry ~state =entry60,1645
let time5 ~value = time572,2007
let motion ~x ~y = motion78,2174
let time4 ~value = time484,2308
let passive ~x ~y =passive90,2491
let time3 ~value = time396,2630
let mode = ref 0;;mode102,2827
let mouse ~button ~state ~x ~y =mouse104,2847
let menu ~value = failwith(" menu callback should never be called\n") ;;menu209,6811
let time2 ~value = time2211,6885
let smode = ref 0;;smode242,8029
let special ~key ~x ~y = special248,8215
let time1 ~value = time1284,9407
let kmode = ref 0;;kmode296,9820
let keyboard ~key ~x ~y = keyboard298,9841
let time0 ~value = time0334,11049
let main() = main341,11256

test7.ml,447
let w1 = ref 0;;w113,331
let w2 = ref 0;;w214,348
let display () = GlClear.clear [`color] ;;display16,366
let time9 ~value = time918,410
let time8 ~value = time824,533
let time7 ~value = time736,889
let time6 ~value = time651,1400
let time5 ~value = time561,1671
let time4 ~value = time489,2775
let time3 ~value = time3101,3110
let time2 ~value = time2111,3353
let time1 ~value = time1121,3597
let main () = main131,3883

test8.ml,352
let main_w = ref(-1)main_w13,352
let w = [| 0; 0; 0; 0 |]w14,373
let win = ref(-1)win15,398
let num = ref(-1)num16,416
let fail_childnum () = fail_childnum18,435
let fail_bad_parent () = fail_bad_parent21,529
let time2 ~value =time224,619
let time1 ~value = time129,680
let display () = ();;display45,1143
let main () = main47,1166

test9.ml,472
let main_w = ref 0;;main_w13,358
let w1 = ref 0;;w114,379
let w2 = ref 0;;w215,396
let w3 = ref 0;;w316,413
let w4 = ref 0;;w417,430
let display () = display19,448
let time8 ~value = time824,520
let time7 ~value = time729,587
let time6 ~value = time634,675
let time5 ~value = time554,1351
let time4 ~value =time468,1806
let time3 ~value = time373,1888
let time2 ~value = time278,1971
let time1 ~value = time183,2054
let main () = main88,2137

timer_test.ml,184
let display () = display24,852
let rec timer ~value = timer29,916
let num_times = ref 0;;num_times34,1024
let keyboard ~key ~x ~y = keyboard36,1049
let main () = main45,1290
