# ================================================== # # rconfreegui $CFDG/blood.cfdg # ================================================== #

background { b -0.95 } startshape START

rule START {

BLOOD  {x -20 r 90}
BLOOD  {x 20 flip 0 r 90}
CIRCLE {size 50}
CIRCLE {sat 1 size 48 b 1}

}

rule BLOOD 2000 {

VESSEL{}
BLOOD{y 0.9 s 0.997 r 3 hue -0.2}

}

rule BLOOD 75 {

BLOOD{s 0.997 hue -0.2 flip 90}

}

rule BLOOD 5 {

BRANCH{}
BLOOD{y 0.9 s 0.997 r 3 hue -0.2}
BLOOD{y 0.9 s 0.997 r -3 hue -0.2}

}

rule BRANCH {

VESSEL{}
BLOOD{y 1 s 1}
BLOOD{y 1 s 1}

}

rule VESSEL {

SQUARE{x -3}
SQUARE{x 3}

SQUARE{x -2 hue 1 sat 1 b 1}
SQUARE{x -1 hue 1 sat 1 b 1}
SQUARE{hue 1 sat 1 b 1}
SQUARE{x 1 hue 1 sat 1 b 1}
SQUARE{x 2 hue 1 sat 1 b 1}

}