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]

}