variation KMQ

startshape skyscraper
 
background{h 56.93 sat 0.4701 }
 
size{s 4 y 1}
 
rule skyscraper{
    building{}
    SQUARE{s 10 1 y .5 z 1}
    SQUARE{s .5 10 z 1 r 78 x 1.3}
    SQUARE{s .5 10 z 1 r -78 x -1.3}
    moon{z 2 s .3 x 1.5 y .5}
}
 
rule building{
    grid{}
    building{s .84  b .05}
}
 
rule grid{
    10*{r 10 }line{}
    10*{r -10 }line{}
    10*{y -1}hline{}
}
 
path line{
    LINETO{x 0 y -11}
    STROKE{}
}
 
path hline{
    MOVETO{x -10 y 0}
    LINETO{x 10 y 0}
    STROKE{}
}
 
rule moon{
    CIRCLE{}
    moon{s .98 b .05}
}