# Sierpinski carpet
# for version 1.1.3

import appuifw, e32, sysinfo 

im = appuifw.Canvas()
appuifw.app.screen='full'
appuifw.app.body=im

color=(255,0,0)
#size=sysinfo.displaypixels()[0]
size=176
mod=9

list_old=[1]
for k in range (1,size+1):
    list_old.append(1)

list_new=[1]

for a in range (1,size+1):
    for b in range (1,size+1): 
        z=(list_old[b-1]%mod+list_old[b]%mod+list_new[b-1]%mod)%mod
        list_new.append(z)
        if z==0:
            im.point((a,b),color)
    list_old=list_new
    list_new=[1]

e32.ao_sleep(10)