fill_horizontal_line Subroutine

public subroutine fill_horizontal_line(image_data, img_w, img_h, x1, x2, y, r, g, b)

Fill horizontal line segment

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=1),	intent(inout)			::	image_data(*)
integer,	intent(in)			::	img_w
integer,	intent(in)			::	img_h
integer,	intent(in)			::	x1
integer,	intent(in)			::	x2
integer,	intent(in)			::	y
integer(kind=1),	intent(in)			::	r
integer(kind=1),	intent(in)			::	g
integer(kind=1),	intent(in)			::	b