startshape A
rule A
{
superior {}
inferior {}
}
rule superior
{
codigoBarras { }
superior{ s .99 r .30 b .001 }
}
rule inferior
{
codigoBarras { }
inferior { s .99 r -.20 b .001 }
}
rule codigoBarras .99
{
line { r 90 }
codigoBarras { x 1 }
}
rule codigoBarras .01
{
}
rule line .9
{
SQUARE { s .2 }
line { x .7 }
}
rule line .1
{
}
This is one of those shapes where the fixed rule for when to stop expanding shape rules is wrong. It would look better if Context Free stopped sooner. We will probably add some sort of ability to control that in a future version.