;----- Fill Pattern Demo by Libra / The ValidatoR ------------------------

;-------------------------------------------------------------------------
		include	'df1:s/initlibra'
;-------------------------------------------------------------------------
	ScreenOpen	1,#320,#256,#5,#Sc,Rs
	AllocBufor	1,320,256,Bufor,tr
	Pen		1,#3
	draw		1,#100,#100
	draw		1,#0,#200
	draw		1,#0,#0
	SetOpen		1,#0
	Pen		1,#6
	Flood		1,#1,#20,#100
	AInit		1,Bufor_ai,60,ai
	SLmb
	Gosub		Figura
	SRmb
	SetPattern	1,#wzorek,#2
	Gosub		Figura
	SLmB
	BndryOff	1
	FreeBufor	Bufor,#320,#256
End	Edit


Figura:	AMove		1,#140,#100
	ADraw		1,#200,#140
	ADraw		1,#210,#180
	ADraw		1,#150,#150
	AEnd		1		
	Pop
;----------------------------------------------------------------------------
wzorek:		dc.w	$cccc,$cccc,$0000,$0000

	section	rr,Code_C
	inclink	'ram:Libra.library'
Rs:	inciffp	'ram:validator_2.iff'

Sc:		AB	10240*5
bufor:		L	0
tr:		AB	40
ai:		AB	30	;area Info str.
bufor_ai:	AW	150