val line_dots : (int * int) -> (int * int) -> (int * int) listval stroke :
Bitmap.t ->
brush:(int * int) list ->
Pattern.t ->
(int * int) ->
(int * int) ->
unitval pencil : (int * int) listval round : int -> (int * int) listval square : int -> (int * int) list