menu Module

Contents

Variables

buf y0 L W H Nstates ic

Functions

makeLetter

Subroutines

title dissolve

Variables

Type	Visibility	Attributes		Name		Initial
character(len=14),	public		::	buf
integer(kind=c_int),	public,	parameter	::	y0	=	5
integer(kind=c_int),	public,	parameter	::	L	=	10
integer(kind=c_int),	public,	parameter	::	W	=	80
integer(kind=c_int),	public,	parameter	::	H	=	60
integer,	public		::	Nstates
integer(kind=c_int),	public		::	ic

Functions

public function makeLetter(F, y0, x0, letter) result(S)

Arguments

Type	Intent	Optional	Attributes		Name
type(Field),	intent(in)			::	F
integer(kind=c_int),	intent(in)			::	y0
integer(kind=c_int),	intent(in)			::	x0
character,	intent(in)			::	letter

Return Value type(Piece)

Subroutines

public subroutine title(Fld)

Arguments

Type	Intent	Optional	Attributes		Name
class(Field),	intent(in),	optional		::	Fld

public recursive subroutine dissolve(P)

updates random character for each pixel of this piece

Arguments

Type	Intent	Optional	Attributes		Name
class(Piece),	intent(inout)			::	P