Script d’origine en BASIC pour Apple
Adaptation pour la Numworks avec une compression type RLE (Run-Length Encoding)
from kandinsky import fill_rect as fr fr(0,0,320,222,(0,)*3) dt='`RAEIQAIIOAKIMAMIKANIJAPIHARIFATIDAVICAVICAWIBAXIAAXIAAYH`AZH_AZH_A[H^A\\H]A\\H^A\\H]A\\H^A\\H]A\\H^A\\H]A\\H^A\\H]A\\H^A[H^A[H_AZH`AYH`AYIAAXIBAWICAVICAVIDATIFASIGAQIIAPIJANILALINAJIQAFQLADB_ADGQANBVALGGAXBLAWF^A^BCBBFWBCA]BHFQBHAXBMFMBMARBRFIBRALBVFGBUAGB[FDDWFBDYE`D[E^D]E\\D_EZEAEXECEVEEETEGESEFETECE[D\\E`DXFFDRFKDMFODJFSDFFVDBFZC_F\\C]F_CZGACYGCCVGDCVGECTGFCSGHCRGHCRGHCQGICQGICQGEABACCRGDACACCRGDCVGDCVGDCVGECUGECUGECUGECUGECUGECUGECUGECVGECUGECRABADGECRABADGECRABADGECRABACGFCRABACGFCRABABGGCRGHCRGHCQGHCRGGCRGECUGECTGGCSGGCRGHCRGGCRGGCSGFCTGECVGCC]F]C^F]C]F]C^F[DBFXDBFWDCFWDCFXDCFXDCFWDCFWDCFVDDFVDEFTDFFTDGFRDIEWABAZDKAJADEGAIATDXEGAKAQDXEIAKANDZEJAQADD\\EKEOEKEOELEMEMEMENEKEOEKEPEIEQEIEREGESEGETEEEUEEEVECEWECEXEAEYEAEZD_E[D_E\\D]E]D]E^D[E`DYFBDWFDDUFFDSFHDQFJDOFLDMFNDKFPDIFRDGFTDEFVDCFXDAFZC_F\\C]F^C[F`CYGBBFAMBEGEA`AWA_GGA\\A^AZGIAXBDAVGKATBIASGMAQBMAPGQAJBTAJ' def d(a,b):return ord(a)*32+ord(b)-2145 x,y,c=0,0,0 for i in range(0,860,2): n=d(dt[i],dt[i+1]) if c:fr(20+x,10+y,n,1,(30,245,60)) x+=n y+=x//280 x%=280 c=1-c