-曼蛇雷華- (Mandarage)
5-level color drawing using bitmask & trifill(limited).
color-0x00: 0b0
color-0x03: 0b1, 0b010, 0b100, 0b1000
color-0xfb: 0b11, 0b101, 0b110, 0b1001, 0b1010, 0b1100
color-0xfa: 0b111, 0b1110, 0b1101, 0b1011
color-0xf7: 0b1111
(299 chars)
::★::cls()a,y={},0for i=1,64 do
p=sin(t()/64*i)add(a,p*48+64)y=add(a,y)+32end?'\^!5f11³³ャ³ャャッ³ャャッャッッワ'
for o=1,62 do
l,u,c,m,r,d=unpack(a,o*2-1)s,e,y,j=l,l,u,(r-l)/(d-u)o=1<<>o%4poke(0x5f5e,o|0xf0)while m do
v=y%140rect(s,v,e,v,o)s+=(c-l)/(m-u)e+=j
y+=1if(y==m)l,c,u,m,d=c,r,m,d
end
end
flip()goto ★
|
5
[Please log in to post a comment]
