# =========================================================================== # # === terraforming.cfdg # # Das macht eine Welt. leider bisserl klein # Inspired by the satellite grids. View from space. # =========================================================================== #

startshape world

rule world {

   globe       {x 0 y 0 s 315 
       hue 220 b .7 sat .8 
       alpha .8 }
   spiral      { x 40 y -40 }
   land        { x 0 y 0 s 3
}

}

rule globe {

CIRCLE      {  }
globe               {s .99 b 0.005}

}

rule spiral {

land { s 1 }
spiral [ x 1 y 1 r 2  s .999   ]

}

// leave gaps rule land 33 {}

rule land {

blip { x 0 y 0 }
blip { x 1 y 1 }
blip { x -1 y 1 }
blip { x 1 y -1 }
blip { x -1 y -1 }

}

rule blip {

rounded_square { b 0.5 hue 20 sat .5 alpha 0.3}
blip [ s 0.999 x -1.5 y 1.5 ]

}

rule blip {

rounded_square { b 0.5  hue 60 sat .5 alpha 0.4 }
blip [ s 0.999 x 1.5 y -1.5 ]

}

rule blip {

rounded_square { b 0.5 hue 110 sat .5 alpha 0.5 }
blip [ s 0.999 x 1.5 y 1.5 ]

}

rule blip {

rounded_square { b 0.5 hue 100 sat .5 alpha 0.5 }
blip [ s 0.999 x -1.5 y -1.5 ]

}

rule blip 0.01 {

blip [ s 1 x -20 y 20 ]

}

rule blip 0.01 {

blip [ s 1 x 20 y -20 ]

}

rule blip 0.01 {

blip [ s 1 x 20 y 20 ]

}

rule blip 0.01 {

blip [ s 1 x -20 y -20 ]

}

rule rounded_square {

SQUARE      { s 2 x -0.5 }
SQUARE      { s 2 y -0.5 }
SQUARE      { s 2 x 0.5 }
SQUARE      { s 2 y 0.5 }
CIRCLE      { s 1 x 1 y 1 }
CIRCLE      { s 1 x -1 y 1 }
CIRCLE      { s 1 x 1 y -1 }
CIRCLE      { s 1 x -1 y -1 }

}