# =========================================================================== # # === school_script.cfdg # # See: www.contextfreeart.org/gallery/view.php?id=446 # # That .cfdg was originally created on 28.10.2006 # =========================================================================== # startshape draw_the_horizontal_bars
# This rule will make the horizontal black bars. rule draw_the_horizontal_bars {
SQUARE {x 7 s 21 .025 hue 240 sat 1 b .75 y -4.5} SQUARE {x 7 s 21 .05 hue 240 sat 1 b .75 y -3.5} SQUARE {x 7 s 21 .025 hue 240 sat 1 b .75 y -2.5} SQUARE {x 7 s 21 .025 hue 240 sat 1 b .75 y -1.5} SQUARE {x 7 s 21 .05 hue 240 sat 1 b .75 y -.5} SQUARE {x 7 s 21 .025 hue 240 sat 1 b .75 y .5} SQUARE {x 7 s 21 .025 hue 240 sat 1 b .75 y 1.5} SQUARE {x 7 s 21 .025 hue 240 sat 1 b .75 y 2.5} PENabc {skew 30 0}
}
rule PENabc{
PENa {hue 0 sat 1 b 1} //width 1.75 PENb {x 1.75} //width 1.5 PENc {x 3.25 hue 0 sat 1 b 1} //width 1 PENd {x 4.25} //width 1.75 PENe {x 6 hue 0 sat 1 b 1} //width 1 PENf {x 7} //width 0.75 PENg {x 7.75 hue 0 sat 1 b 1} //width 1.5 PENh {x 9.25} //width 1.75 PENi {x 11 hue 0 sat 1 b 1} //width 1 PENj {x 12} //width 0.5 PENk {x 12.5 hue 0 sat 1 b 1} //width 1 PENl {x 13.5} //width 1 PENm {x 14.5 hue 0 sat 1 b 1} //width 1.75 PENn {y -3} //width 1.75 PENo {y -3 x 1.75 hue 0 sat 1 b 1} //width 1.5 PENp {y -3 x 3.25} //width 1.75 PENq {y -3 x 5 hue 0 sat 1 b 1} //width 1.5 PENr {y -3 x 6.5} //width 1.5 PENs {y -3 x 8 hue 0 sat 1 b 1} //width 0.75 PENt {y -3 x 8.75} //width 0.75 PENu {y -3 x 9.5 hue 0 sat 1 b 1} //width 1.75 PENv {y -3 x 11.25} //width 1.75 PENw {y -3 x 13 hue 0 sat 1 b 1} //width 1.75 PENx {y -3 x 14.75} //width 1.5 PENy {y -3 x 16.25 hue 0 sat 1 b 1} //width 1.5 PENz {y -3 x 17.75} //width 1.5
}
rule PENELEM {
SQUARE {s .1 .07822} CIRCLE {y .03911 s .1} CIRCLE {y -.03911 s .1}
}
rule PENQARC{
10*[x -.5 r 9 x .5]PENELEM{}
}
rule PENQARC1{
PENQARC{x .5}
}
rule PENQARC2{
PENQARC1{r 90}
}
rule PENQARC3{
PENQARC1{r 180}
}
rule PENQARC4{
PENQARC1{r 270}
}
rule PENCIRCLE{
PENQARC1{} PENQARC2{} PENQARC3{} PENQARC4{}
}
rule PENHOOKDN{
PENQARC3{} PENQARC4{}
}
rule PENSMALLQARC{
5*[x -.25 r 18 x .25]PENELEM{}
}
rule PENSMALLQARC1{
PENSMALLQARC{y -.25}
}
rule PENSMALLQARC2{
PENSMALLQARC{x -.25 r 90}
}
rule PENSMALLQARC3{
PENSMALLQARC{x -.5 y -.25 r 180}
}
rule PENSMALLQARC4{
PENSMALLQARC{x -.25 y -.5 r 270}
}
rule PENSMALLHOOKDN{
PENSMALLQARC3{} PENSMALLQARC4{}
}
rule PENSMALLHOOKUP{
PENSMALLQARC1{} PENSMALLQARC2{}
}
rule PENMIDHOOKDN{
PENSMALLQARC3{} PENQARC4{x -.25}
}
rule PENXHT{
SQUARE{s .1 1} CIRCLE{y .5 s .1} CIRCLE{y -.5 s .1}
}
rule PENHALFXHT{
SQUARE{s .1 .5 y -.25} CIRCLE{s .1} CIRCLE{y -.5 s .1}
}
rule PENQXHT{
SQUARE{s .1 .25 y -.375} CIRCLE{y -.25 s .1} CIRCLE{y -.5 s .1}
}
rule PEN3QXHT{
PENQXHT{} PENHALFXHT{y .25}
}
rule PENEXTUP{
PENQARC4{y 1 x -.5 r 9} PENQXHT{y 1.5} PENSMALLHOOKUP{y 1.5} PEN3QXHT{x -.5 y 1}
}
rule PENEXTDN{
PENEXTUP{r 180}
}
rule PENa{
PENCIRCLE{} PEN3QXHT{y .25 x .5} PENMIDHOOKDN{x 1}
}
rule PENb{
PENEXTUP{} PENHALFXHT{x -.5 y .5} PENMIDHOOKDN{} PENHALFXHT{x .25 y .5} PENMIDHOOKDN{x .5 y .25 flip 90}
}
rule PENc{
PENSMALLQARC1{y .5 x .25} PENQARC2{} PENHOOKDN{}
}
rule PENd{
PENCIRCLE{} PENXHT{x .5 y 1} PEN3QXHT{x .5 y .25} PENMIDHOOKDN{x 1}
}
rule PENe{
PENHALFXHT{x -.5 r 90} PENSMALLQARC4{y .5 x .25} PENSMALLQARC1{y .5 x .25} PENQARC2{} PENHOOKDN{}
}
rule PENf{
PENEXTUP{} PENXHT{x -.5} PENXHT{x -.5 y -1} PENQARC{y 1 flip 0} PENMIDHOOKDN{}
}
rule PENg{
PENCIRCLE{} PENXHT{x .5} PENEXTDN{} PENQARC4{x .5}
}
rule PENh{
PENEXTUP{} PENXHT{x -.5} PENQARC2{} PENQARC1{} PENQXHT{x .5 y .25} PENMIDHOOKDN{x 1}
}
rule PENi{
PENHALFXHT{x -.5 y .5} PENHOOKDN{} PENELEM{x -.5 y 1}
}
rule PENj{
PENXHT{x -.5} PENEXTDN{x -1} PENQARC4{x -.5} PENELEM{x -.5 y 1}
}
rule PENk{
PENEXTUP{} PENXHT{x -.5} PENHALFXHT{x -.5 r 90} PENSMALLQARC4{y .5 x .25} PENSMALLQARC1{y .5 x .25} PENQARC2{} PENSMALLQARC1{x -.25} PENMIDHOOKDN{x .25}
}
rule PENl{
PENEXTUP{} PENHALFXHT{x -.5 y .5} PENHOOKDN{}
}
rule PENm{
PENXHT{x -.5} PENSMALLHOOKUP{y .5} PEN3QXHT{} PENSMALLHOOKUP{x .5 y .5} PENHALFXHT{x .5 y .25} PENMIDHOOKDN{x 1}
}
rule PENn{
PENXHT{x -.5} PENQARC2{} PENQARC1{} PENQXHT{x .5 y .25} PENMIDHOOKDN{x 1}
}
rule PENo{
PENCIRCLE{} PENMIDHOOKDN{x .5 y .25 flip 90}
}
rule PENp{
PENXHT{x -.5} PENXHT{x -.5 y -1} PENQARC2{} PENQARC1{} PENQXHT{x .5 y .25} PENMIDHOOKDN{x 1}
}
rule PENq{
PENCIRCLE{} PENXHT{x .5} PENXHT{x .5 y -1} PENSMALLQARC2{y -.25 x 1} PENSMALLQARC4{y .25 x 1}
}
rule PENr{
PENQARC2{} PENSMALLQARC1{x .25 y .5} PENXHT{x .25} PENMIDHOOKDN{x .5 y .25 flip 90}
}
rule PENs{
PENHALFXHT{x -.5 y .5} PENSMALLQARC3{y .75} PENQARC1{x -.25 y -.25} PENSMALLQARC3{x .25} PENSMALLQARC4{x .25}
}
rule PENt{
PEN3QXHT{x -.5 y 1} PEN3QXHT{x -.5 y .25} PENMIDHOOKDN{} PEN3QXHT{r 90 x -.5 y .5}
}
rule PENu{
PENHALFXHT{x -.5 y .5} PENHOOKDN{} PEN3QXHT{x .5 y .25} PENMIDHOOKDN{x 1}
}
rule PENv{
PENHALFXHT{x -.5 y .5} PENHOOKDN{} PENHALFXHT{x .5 y .5} PENMIDHOOKDN{x .75 y .25 flip 90}
}
rule PENw{
PEN3QXHT{x -.5 y .25} PENSMALLHOOKDN{} PEN3QXHT{y .25} PENSMALLHOOKDN{x .5} PEN3QXHT{x .5 y .25} PENMIDHOOKDN{x .75 y .25 flip 90}
}
rule PENx{
PENQARC2{} PENSMALLQARC1{x .25 y .5} PENHALFXHT{x .25 y .25} PENMIDHOOKDN{x .75} PENSMALLHOOKUP{x .75 y .5} PENSMALLHOOKDN{x .25}
}
rule PENy{
PENHALFXHT{x -.5 y .5} PENHOOKDN{} PENXHT{x .5} PENEXTDN{} PENQARC4{x .5}
}
rule PENz{
PENQARC2{} PEN3QXHT{r 90 x .25 y .5} PENQARC4{x .25 y .5} PENQARC2{x .25 y -.5} PEN3QXHT{r 90 y -.5} PENQARC4{x .5}
}