%!PS-Adobe-2.0 EPSF-3.0 %%BoundingBox: 72 72 792 432 %%Title: (UnionJack.eps) %%Creator: Julian D. A. Wiseman, contact details at jdawiseman.com %%CreationDate: (30th November 1999) %%EndComments 6 dict begin % PostScript code to draw, accurately, a Union Jack. % This code is Copyright Julian D. A. Wiseman 1999. % Detailed copyright and disclaimer notices can be found at www.jdawiseman.com % Copying and distribution of this code is permitted, provided that this notice, % and the five procedures (Path-StGeorge, Path-StAndrew, Path-StPatrick, % Path-UnionJackWhiteSpace and Paint-UnionJack) are retained unaltered. % Use without distribution and without non-local copying is permitted, with % or without alteration of the code. % Draws the bounding path of the red cross of St George /Path-StGeorge { -30 -15 30 15 setbbox 30 3 moveto 3 3 lineto 3 15 lineto -3 15 lineto -3 3 lineto -30 3 lineto -30 -3 lineto -3 -3 lineto -3 -15 lineto 3 -15 lineto 3 -3 lineto 30 -3 lineto closepath } def % Draws the bounding path of the eight pieces of the blue cross of St Andrew /Path-StAndrew { -30 -15 30 15 setbbox 5 15 moveto 5 5.854101966249684544613761 lineto 23.29179606750063091077248 15 lineto closepath -5 15 moveto -5 5.854101966249684544613761 lineto -23.29179606750063091077248 15 lineto closepath 5 -15 moveto 5 -5.854101966249684544613761 lineto 23.29179606750063091077248 -15 lineto closepath -5 -15 moveto -5 -5.854101966249684544613761 lineto -23.29179606750063091077248 -15 lineto closepath 30 5 moveto 30 11.64589803375031545538624 lineto 16.70820393249936908922752 5 lineto closepath -30 5 moveto -30 11.64589803375031545538624 lineto -16.70820393249936908922752 5 lineto closepath 30 -5 moveto 30 -11.64589803375031545538624 lineto 16.70820393249936908922752 -5 lineto closepath -30 -5 moveto -30 -11.64589803375031545538624 lineto -16.70820393249936908922752 -5 lineto closepath } def % Draws the bounding path of the four pieces of the red cross of St Patrick /Path-StPatrick { -30 -15 30 15 setbbox 10 5 moveto 5.527864045000420607181653 5 lineto 25.52786404500042060718165 15 lineto 30 15 lineto closepath -10 -5 moveto -5.527864045000420607181653 -5 lineto -25.52786404500042060718165 -15 lineto -30 -15 lineto closepath -10 5 moveto -14.47213595499957939281835 5 lineto -30 12.76393202250021030359083 lineto -30 15 lineto closepath 10 -5 moveto 14.47213595499957939281835 -5 lineto 30 -12.76393202250021030359083 lineto 30 -15 lineto closepath } def % Draws the bounding path of the four white regions of the Union Jack. % Generally not used. It is recommended that the flag be drawn as a % white rectangle below the three colour crosses. % This is provided for use (expected to be rare) as a clipping region. /Path-UnionJackWhiteSpace { -30 -15 30 15 setbbox 30 3 moveto 30 5 lineto 16.70820393249936908922752 5 lineto 30 11.64589803375031545538624 lineto 30 15 lineto 10 5 lineto 5.527864045000420607181653 5 lineto 25.52786404500042060718165 15 lineto 23.29179606750063091077248 15 lineto 5 5.854101966249684544613761 lineto 5 15 lineto 3 15 lineto 3 3 lineto closepath -30 -3 moveto -30 -5 lineto -16.70820393249936908922752 -5 lineto -30 -11.64589803375031545538624 lineto -30 -15 lineto -10 -5 lineto -5.527864045000420607181653 -5 lineto -25.52786404500042060718165 -15 lineto -23.29179606750063091077248 -15 lineto -5 -5.854101966249684544613761 lineto -5 -15 lineto -3 -15 lineto -3 -3 lineto closepath 30 -3 moveto 30 -5 lineto 16.70820393249936908922752 -5 lineto 30 -11.64589803375031545538624 lineto 30 -12.76393202250021030359083 lineto 14.47213595499957939281835 -5 lineto 10 -5 lineto 30 -15 lineto 23.29179606750063091077248 -15 lineto 5 -5.854101966249684544613761 lineto 5 -15 lineto 3 -15 lineto 3 -3 lineto closepath -30 3 moveto -30 5 lineto -16.70820393249936908922752 5 lineto -30 11.64589803375031545538624 lineto -30 12.76393202250021030359083 lineto -14.47213595499957939281835 5 lineto -10 5 lineto -30 15 lineto -23.29179606750063091077248 15 lineto -5 5.854101966249684544613761 lineto -5 15 lineto -3 15 lineto -3 3 lineto closepath } def % Accurately draws a Union Jack in the bounding box from Llx -30, Lly -15, Urx +30, Ury +15 /Paint-UnionJack { gsave newpath 1 setgray -30 -15 60 30 rectfill 0.8 0 0 setrgbcolor % Should be Pantone 186 Path-StGeorge fill Path-StPatrick fill 0 0 0.4 setrgbcolor % Should be Pantone 280 Path-StAndrew fill grestore } def /ScalingFactor 12 def gsave ScalingFactor 30 mul 72 add ScalingFactor 15 mul 72 add translate ScalingFactor dup scale Paint-UnionJack grestore end showpage