ocaml - Issue with filling a rectangle with color in OcamlSDL -


i trying display colored square in center of window in ocamlsdl. creating surface , rectangle square , blitting on screen @ right position works without issue, when try color rectangle, part of gets colored (as seen in screenshot ).

here code :

open sdlevent open sdlkey open sdlvideo  let image_src = "background.jpg" let win_x = 1200 let win_y = 800 let side = 10 let sq_size = 40 let seps = 10 let board_side = side * sq_size + seps * side let o_x = (win_x - board_side) / 2 let o_y = (win_y - board_side) / 2 let f_x = o_x + board_side let f_y = o_y + board_side  let rec event_handler () = match wait_event ()     | keydown {keysym=key_escape} -> ()     | event -> event_handler ()  let main () =     sdl.init [`video];     at_exit sdl.quit;     let screen = sdlvideo.set_video_mode win_x win_y [] in     let bg = sdlloader.load_image image_src in     let pos_bg = sdlvideo.rect 0 0 win_x win_y in     sdlvideo.blit_surface ~dst_rect:pos_bg ~src:bg ~dst:screen ();     printf.printf "board side = %d, o_x = %d, o_y = %d, f_x = %d, f_y = %d\n" board_side o_x o_y f_x f_y ;     let board = sdlvideo.create_rgb_surface [`hwsurface] board_side board_side 32 (int32.of_int 0) (int32.of_int 0) (int32.of_int 0) (int32.of_int 0) in     let pos_board = sdlvideo.rect o_x o_y f_x f_y in     sdlvideo.fill_rect ~rect:pos_board board (int32.of_int 4294967295) ;     sdlvideo.blit_surface ~dst_rect:pos_board ~src:board ~dst:screen () ;     sdlvideo.flip screen;     event_handler ()  let _ = main ()

i've looked around , haven't found cases similar mine, , ocamlsdl's documentation of no help. feel missing obvious, have no idea what. suggestions ? on ubuntu 14.04 64 bit.


Comments

Post a Comment

Popular posts from this blog

php - failed to open stream: HTTP request failed! HTTP/1.0 400 Bad Request -

this code i'm using find latitude , longitude of place: function coords($address){ echo $url="http://maps.googleapis.com/maps/api/geocode/json?address=".$address; $json = file_get_contents(urlencode($url)); $data = json_decode($json, true); print_r($data['results'][0]['geometry']['location']['lat']); print_r($data['results'][0]['geometry']['location']['lng']); } however returns warning: failed open stream: http request failed! http/1.0 400 bad request if use above code in simple procedure works fine not in function. note: have tried curl_init()... method produced same result? instead of encoding whole url encode address part. following code work fine $add='jamshoro phase 2'; $url="http://maps.googleapis.com/maps/api/geocode/json?address=".urlencode($add); $json = file_get_contents($url); $data = json_decode($json, true); print_r($data['r
Read more

java - How to filter a backspace keyboard input -

i have code gives message when key number pressed: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochararray().length - 1]; if (!(ch >= '0' && ch <= '9')) { system.out.println("the char entered not number"); t.consume(); } } }); now if press on wrong button , press backspace remove it, error message. how can add backspace input if statement? i have found answer: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochar
Read more

java - Show Soft Keyboard when EditText Appears -

i have code in android app, alert dialog , keyboard, , when dialog shown want keyboard appear. not , not sure why? here code: final alertdialog.builder alert = new alertdialog.builder(this); alert.settitle("title"); alert.setmessage("message"); final edittext input = new edittext(this); input.setinputtype(inputtype.type_class_number); alert.setview(input); input.setonfocuschangelistener(new view.onfocuschangelistener() { @override public void onfocuschange(view v, boolean hasfocus) { if (hasfocus) { log.i(tag, "in focus"); inputmethodmanager inputmethodmanager = (inputmethodmanager) getsystemservice(context.input_method_service); inputmethodmanager.showsoftinput(input, inputmethodmanager.show_implicit); } } }); but keyboard not appear though edit text in focus, , tell appear why, doesn't come up? thanks in advance.
Read more