BEGIN { } { will use overlapping shapes, 1 5 ISET so set priorityImportant to TRUE 2/1000 SCALE CONCATT use 2 millimeter units 3/5 SETGRAY darker gray side of cone 70 75 MOVETO 50 25 LINETO 55 75 LINETO a triangular trajectory 1 MAKEOUTLINE MASKFILL fill the darker triangle 3/10 SETGRAY light side of cone is similar 55 75 MOVETO 50 25 LINETO 30 75 LINETO 1 MAKEOUTLINE MASKFILL 2 16 ISET round ends on the stroke 0 23 ISET miter to get a sharp point 2 15 ISET stroke will be 2 units wide 1 SETGRAY set current color to black 70 75 MOVETO 50 25 LINETO 30 75 LINETO MASKSTROKE line around cone bottom 30 75 MOVETO 50 25 70 75 1/10 CONICTO elliptical piece at bottom 80 80 80 90 72 87 CURVETO parametric cubic at right 50 122 28 87 ARCTO circular arc at the top 15 90 30 75 1/2 CONICTO parabolic piece at left DUP make a copy of trajectory 1/5 SETGRAY light gray for ice cream 1 MAKEOUTLINE MASKFILL fill in the area 2 23 ISET use rounded joints for outline 1 SETGRAY set current color to black MASKSTROKECLOSED draw stroke outlining area } END Interpress Master Comments (for reference only) Subhana Menis, February 9, 1987 11:19:44 am PST The Cone The Ice Cream [Artwork node; type 'ArtworkInterpress on' to command tool] ce "docgraphicslucida" styleheadero(os