MorpionNormal/camera2d2.ml at master · kyoDralliam/MorpionNormal · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
open OcsfmlSystem
open OcsfmlWindow
open OcsfmlGraphics

let rect_from_center_size (x,y) (w,h) = {  left = x -. (w/.2.) ; top = y -. (h/.2.) ; width = w ; height = h }

let camera2D (app : #render_target) ?(pos0=0.,0.) ?(dim0=500.) w h =
object (self)
  val clock = new clock
  val mutable vertical_mvt = 0
  val mutable horizontal_mvt = 0
  val view = new view
    (`Rect {top = 0. ; left = 0. ; width = w ; height = h })
  (* val mutable zoom_factor = (fst self#get_size)/. w*)
  val mutable zoom_modified = false
  val mutable extern_zoom = 1.
  val mutable delta = (0.,0.)

  method private get_zoom = (fst view#get_size)/. w

  method private activate b1 b2 = function
    | (1 | -1) as i -> i
    | 0 ->
	begin match b1, b2 with
	| true, true -> assert false
	| true, false -> -1
	| false, true -> 1
	| false, false -> 0
	end
    | _ -> assert false

  method activate_horizontal i =
    horizontal_mvt <- self#activate
      (Keyboard.is_key_pressed KeyCode.Left)
      (Keyboard.is_key_pressed KeyCode.Right) i

  method activate_vertical i =
    vertical_mvt <- self#activate
      (Keyboard.is_key_pressed KeyCode.Down)
      (Keyboard.is_key_pressed KeyCode.Up) i

  method update =
    let t = (Time.as_seconds clock#restart) *. 300. *. self#get_zoom (*/. extern_zoom*) in
    let b1 = Keyboard.is_key_pressed KeyCode.Left || Keyboard.is_key_pressed KeyCode.Right in
    if b1 then view#move ((float horizontal_mvt)*.t) 0. ;
    let b2 = Keyboard.is_key_pressed KeyCode.Up || Keyboard.is_key_pressed KeyCode.Down in
    if b2 then view#move 0. ((float vertical_mvt)*.t) ;
    app#set_view view ;
    let z0 = zoom_modified in
    zoom_modified <- false ;
    b1 || b2 || z0

  method private real_scroll zoom (x, y) =
    let (cx, cy) = view#get_center in
    let goal_x = (1.-.zoom)*.(x -.cx) and goal_y = (1.-.zoom)*.(y -.cy) in
    zoom_modified <- true ;
    view#zoom zoom ;
    view#move goal_x goal_y

  method private check_zoom =
    let z0 = self#get_zoom in
    if z0 < 0.5
    then
      let (cx, cy) = view#get_center in
      extern_zoom <- extern_zoom *. 2. ;
      zoom_modified <- true ;
      view#zoom 2. ;
      view#set_center (cx*.2.) (cy*.2.)
      (*self#real_scroll 2. view#get_center*)
    else if z0 > 2.
    then
      let (cx, cy) = view#get_center in
      extern_zoom <- extern_zoom *. 0.5 ;
      zoom_modified <- true ;
      view#zoom 0.5 ;
      view#set_center (cx*.0.5) (cy*.0.5)
  (*extern_zoom <- extern_zoom *. 0.5 ; self#real_scroll 0.5 view#get_center *)

  method scroll k x y =
    let pos = app#convert_coords (x,y) in
    let z = exp ((float k)/.10.) in
    self#real_scroll z pos ;
    self#check_zoom


  method recenter (position, dimension) =
    let open Morpion in
    view#set_size (dimension *. w /. h) dimension ;
    view#set_center (fst position +. (dimension/.2.)) (snd position +. (dimension/.2.)) ;
    self#real_scroll 1.15 view#get_center ;
    self#check_zoom ;
    app#set_view view

  method enable = app#set_view view

  method disable = app#set_view app#get_default_view

  method apply_extern_zoom (x,y) dim =
    let (xc,yc) = view#get_center in
    view#set_center 0. 0. ;
    delta <- (fst delta +. (xc/.extern_zoom), snd delta +. (yc/.extern_zoom)) ;
    app#set_view view ;
    (((x -. fst delta)*.extern_zoom , (y-. snd delta)*.extern_zoom), dim *. extern_zoom)

  method get_visual_rect = rect_from_center_size view#get_center view#get_size
end