S1=5/6 S2=(1-S1)/2 D =(1+S1)/4 CF::Size = [x 0.5 0.5 s 1.4] CF::Tile = [] CF::MinimumSize = 0.3
startshape Carp
shape Carp { SQUARE [s (1/D) h 50]
loop 4 [r 90] { Carp [x D s S2 S1 h 1 sat 1 b 1] Carp [x D D s S2 h 1 sat 1 b 1] } Carp [ s S1 h -2 sat -1 b -1]
}