open Graphics open Picture let () = open_graph " 300x150"; set_window_title "TD 1" let stop = union (rectangle 48 0 52 100) (union (circle 50 120 20) (rectangle 35 115 65 125)) let () = Format.printf "stop dim = %d,%d@." (width stop) (height stop) let car = union (rectangle 0 0 200 40) (union (circle 40 0 20) (union (circle 160 0 20) (rectangle 60 40 160 60))) let () = Format.printf "car dim = %d,%d@." (width car) (height car) let p = union stop (move 90 20 car) let () = draw p; ignore (read_key ()); close_graph ()