SetDirectory[$HomeDirectory<>"/Documents/handouts/math467/GeneralIVP"]

Graphics[{Black,Thick,Line[{{0,1},{2,1}}],EdgeForm[],HatchFilling[],Rectangle[{0,1},{2,2}],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
StyleBox["G", "TI"], "(", 
RowBox[{
StyleBox["t", "TI"], ";", "τ"}], ")"}], TraditionalForm], "errors" -> {}, "input" -> "G(t; \\tau)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)=0",{1,3/2},Background->White],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
StyleBox["G", "TI"], "(", 
RowBox[{
StyleBox["t", "TI"], ";", "τ"}], ")"}], TraditionalForm], "errors" -> {}, "input" -> "G(t; \\tau)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{1,1/2}]},BaseStyle->FontSize->12,Axes->Automatic,AxesLabel->{"\!\(\*TemplateBox[<|"boxes" -> FormBox[
StyleBox["t", "TI"], TraditionalForm], "errors" -> {}, "input" -> "t", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)","\!\(\*TemplateBox[<|"boxes" -> FormBox["τ", TraditionalForm], "errors" -> {}, "input" -> "\\tau", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)"},AspectRatio->1/2,PlotRange->{0,2},Ticks->{None,{{1,"\!\(\*TemplateBox[<|"boxes" -> FormBox[
StyleBox["t", "TI"], TraditionalForm], "errors" -> {}, "input" -> "t", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)"}}}]

Export["causality.pdf",%,"PDF"]

Export["causality.eps",%%,"EPS"]