So I worked on this project about a week ago and we are supposed to alter a face to make it look different to show we know how to plot things using graphics. Well, after about a week it won't graph at all! Not even the original copy our instructor sent to us which worked fine last week. Can someone at least try to see if it works on their system
I have
circFace =
Graphics[Circle[{Subscript[x, c], Subscript[y, c]}, Subscript[r,
c]]];
triangNose =
Graphics[Polygon[{{Subscript[x, c],
Subscript[y, N] + Sqrt[3]/2 Subscript[\[ScriptL], N]},
{Subscript[x, c] - 1/2 Subscript[\[ScriptL], N],
Subscript[y, N] -
1/(2 Sqrt[3]) Subscript[\[ScriptL], N]}, {Subscript[x, c] +
1/2 Subscript[\[ScriptL], N],
Subscript[y, N] - 1/(2 Sqrt[3]) Subscript[\[ScriptL], N]}}]];
leftEye =
Graphics[Circle[{Subscript[x, L], Subscript[y, E]}, Subscript[r,
E]]];
rightEye =
Graphics[Circle[{Subscript[x, R], Subscript[y, E]}, Subscript[r,
E]]];
leftIris =
Graphics[{Red,
Disk[{Subscript[p, L], Subscript[y, P]}, Subscript[r, I]]}];
rightIris =
Graphics[{Red,
Disk[{Subscript[p, R], Subscript[y, P]}, Subscript[r, I]]}];
leftPupil =
Graphics[Disk[{Subscript[p, L], Subscript[y, P]}, Subscript[r, P]]];
rightPupil =
Graphics[Disk[{Subscript[p, R], Subscript[y, P]}, Subscript[r, P]]];
leftwhiteOutside =
Graphics[{Thickness[2 thickparm], Blue,
Circle[{Subscript[x, L], Subscript[y, E]},
Subscript[r, E] + 4 thickparm]}];
rightwhiteOutside =
Graphics[{Thickness[2 thickparm], Blue,
Circle[{Subscript[x, R], Subscript[y, E]},
Subscript[r, E] + 4 thickparm]}];
circMouth =
Graphics[Circle[{Subscript[x, m], Subscript[y, m]}, {Subscript[m,
a], Subscript[m, b]}, {Subscript[\[Theta], 1],
Subscript[\[Theta], 2]}]];
Show[circFace, triangNose, leftIris, rightIris, leftPupil, \
rightPupil, leftEye, rightEye, leftwhiteOutside , rightwhiteOutside , \
circMouth, AspectRatio -> 1, Prolog -> Thickness[thickparm],
ImageSize -> 200]
Show::gcomb: "Could not combine the graphics objects in Show[circFace,triangNose,leftIris,rightIris,leftPupil,rightPupil,leftEye,rightEye,leftwhiteOutside,rightwhiteOutside,circMouth,AspectRatio->1,Prolog->Thickness[thickparm],ImageSize->200]."
I get this as an error message. Thank you
