#This template will export your mesh layer (quadrilateral and triangular) to EPS format #Please note the comment on the 7th line below this one Redirect output to: $BaseNameNoExt$.eps Start a new line Export expression: "%!PS-Adobe-2.0 EPSF-1.2\n%%Title: MeshMaker Export\n%%Creator: Argus Numerical Environments - MeshMaker Modules\n%%For: ANE - MeshMaker users\n%%BoundingBox: 0 0 300 400\n%%Copyright ©1993-96 Argus Holdings, Ltd. - All Rights Reserved Worldwide\n%%EndComments" End line Start a new line Export expression: "% ---- General Defintion For all elements\n1 setlinecap\n1 setlinejoin\n0.5 setgray" # Change your GlobalScaleFactor (set here to 15) to reflect changes in your scale and units dialog Export expression: "/GlobalScaleFactor 15 def" Export expression: "/Scale {/factor exch def factor mul exch factor mul exch} def" Export expression: "/TriElem {GlobalScaleFactor Scale moveto GlobalScaleFactor Scale lineto GlobalScaleFactor Scale lineto closepath 0.0 setgray stroke 0.7 setgray fill } def" Export expression: "/QuadElem {GlobalScaleFactor Scale moveto GlobalScaleFactor Scale lineto GlobalScaleFactor Scale lineto GlobalScaleFactor Scale lineto closepath 0.0 setgray stroke 0.7 setgray fill } def" End line Loop for: Elements Start a new line Export expression: NthNodeX(1); [F8.2] Export expression: NthNodeY(1); [F8.2] End line Start a new line Export expression: NthNodeX(2); [F8.2] Export expression: NthNodeY(2); [F8.2] End line Start a new line Export expression: NthNodeX(3); [F8.2] Export expression: NthNodeY(3); [F8.2] End line If: NthNodeNum(1) != NthNodeNum(4) Start a new line Export expression: NthNodeX(4); [F8.2] Export expression: NthNodeY(4); [F8.2] End line End if If: NthNodeNum(1) != NthNodeNum(4) Start a new line Export expression: "QuadElem" End line End if If: NthNodeNum(1) = NthNodeNum(4) Start a new line Export expression: "TriElem" End line End if End loop Start a new line Export expression: "showpage" End line End file