From 9ef2c44b41c76e9d4d9abae54f2caac6877a6911 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 1 Aug 2011 23:12:16 +0000 Subject: bclogo (1aug11) git-svn-id: svn://tug.org/texlive/trunk@23305 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/metapost/bclogo/bc-peaceandlove.mp | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 Master/texmf-dist/metapost/bclogo/bc-peaceandlove.mp (limited to 'Master/texmf-dist/metapost/bclogo/bc-peaceandlove.mp') diff --git a/Master/texmf-dist/metapost/bclogo/bc-peaceandlove.mp b/Master/texmf-dist/metapost/bclogo/bc-peaceandlove.mp new file mode 100644 index 00000000000..30d2fe97ad2 --- /dev/null +++ b/Master/texmf-dist/metapost/bclogo/bc-peaceandlove.mp @@ -0,0 +1,21 @@ +prologues:=1; +outputtemplate:="%j.mps"; +beginfig(1); +pickup pencircle scaled(3bp); +draw fullcircle scaled(38); +draw (0,-19)--(0,19); +draw (0,0)--((0,-19) rotated(45)); +draw (0,0)--((0,-19) rotated(-45)); +r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture))); +picture pic; +pic:=currentpicture; +currentpicture:=nullpicture; +drawoptions(); +draw pic scaled(r); +z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture); +z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture); +draw (z0+(10.5,2)); +draw (z1-(10.5,2)); +clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle); +endfig; +end; -- cgit v1.2.3