AMOS Basic v134 RRComplex Shape filler routineRRichard Wheeldon 1996 RR2Fills any shape of one colour with another colour R.Involves no recursion and a limited stack sizeRR Written in AMOS Basic for Amiga RShould be easy to convert RR(Simply draw a shape with the mouse, thenRclick within it to fill R RVariable buffer >PRR*Draw a shape on the screen with the mouse P T\2 x t| y 8t$| <x\yhT2 x t| y 8t$|t\x\ytP T\2 x t| y 8t$|afillx\yRv6afillx\yR4Stack Required. This is usually plenty large enough @ @stakt>|,pN Ltx\y|TJ( colour of the pixel at coordinates(x,y)fu>Tfd> $sp>~RMove left until colour changeshBVtx>\y|p Nxt*dxxT0dyyfu>Tfd>P fuXN Ltx\y>|p  @stakt$sp|xTD$sp  @stakt$sp|y>TD$sp fu>9 %fu>XN Ltx\y>|fpXVtx\y>|f> fu> %fdXN Ltx\y>|p  @stakt$sp|xTD$sp  @stakt$sp|y>TD$sp fd>9 %fd>XN Ltx\y>|fpXVtx\y>|f> fd>  Dx\N Ltx\y|fpRDraw horizontal line. N *dx\0dyx>\y x$sp> N$spTy @stakt$sp| N$spTx @stakt$sp|  AmBs