AMOS ProEd.v Ž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$|ÿô€afill„x\yŒRv˜6€afill„x\yŒR4Stack Required. This is usually plenty large enough @ @stakt>è|,pÿ¢N Ltx\y|TJ( colour of the pixel at coordinates(x,y)fuÿ¢ÿÊ>Tfdÿ¢ÿÊ> $spÿ¢>~€RMove left until colour changeshBVtxÿÊ>\y|ÿ¢p Nxt*dxÿ¢xT0dyÿ¢yfuÿ¢ÿÊ>Tfdÿ¢ÿÊ>PÌ ¾½fuÿXN Ltx\yÿÊ>|ÿ¢p  @stakt$sp|ÿ¢xTD$sp  @stakt$sp|ÿ¢yÿÊ>TD$sp fuÿ¢>9 %¤‰fuÿ¢>ÿXN Ltx\yÿÊ>|ÿfpÿXVtx\yÿÊ>|ÿf> fuÿ¢ÿÊ> %¤½fdÿXN Ltx\yÿÀ>|ÿ¢p  @stakt$sp|ÿ¢xTD$sp  @stakt$sp|ÿ¢yÿÀ>TD$sp fdÿ¢>9 %¤Šfdÿ¢>ÿXN Ltx\yÿÀ>|ÿfpÿXVtx\yÿÀ>|ÿf> fdÿ¢ÿÊ> Ú Dx\N Ltx\y|ÿfpRDraw horizontal line. N Ì*dx\0dy”xÿÊ>\y ¾x$spÿ¶> N$spTyÿ¢ @stakt$sp| N$spTxÿ¢ @stakt$sp|Ð ž Ú†�AmBs