Although I've set up some actions for when z=-1 and when z=1, Only the actions that correspond with z=1 perform. Where am I going wrong?
eighthnote[x_, y_, z_] :=
Module[{},
If[
z == -1,
{
Disk[{x, y}, {1, 0.8}],
Line[{{x - 1, y}, {x - 1, y - 5}}],
Line[{{x - 2, y - .7}, {x + 2, y - .7}}],
FilledCurve[
{BezierCurve[{{x - 1, y - 4}, {x - .4, y - 4.7}, {x + 2.3,
y + .7}, {x - .15, y - 1.1}}],
BezierCurve[{{x + 1.5, y + .14}, {x + .85, y - 2.5}, {x - .95,
y - 5.2}, {x - 1.05, y - 5.27}}]
}
] (* Filled Curve *)
}
] (*If Statement *);
If[
z == 1,
{
Disk[{x, y}, {1, 0.8}],
Line[{{x - 1, y}, {x - 1, y - 5}}],
Line[{{x - 2, y - .7}, {x + 2, y - .7}}],
FilledCurve[
{BezierCurve[{{x - 1, y - 4}, {x - .4, y - 4.7}, {x + 2.3,
y + .7}, {x - .15, y - 1.1}}],
BezierCurve[{{x + 1.5, y + .14}, {x + .85, y - 2.5}, {x - .95,
y - 5.2}, {x - 1.05, y - 5.27}}]
}
] (* Filled Curve *)
}
] (*If Statement *)
]
Graphics[{staff, eighthnote[4, 11, 1]}]
Graphics[{staff, eighthnote[4, 11, -1]}]