diff options
Diffstat (limited to 'graphics/bclogo/metapost/bc-nucleaire.mp')
-rw-r--r-- | graphics/bclogo/metapost/bc-nucleaire.mp | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/graphics/bclogo/metapost/bc-nucleaire.mp b/graphics/bclogo/metapost/bc-nucleaire.mp new file mode 100644 index 0000000000..e323ebb48a --- /dev/null +++ b/graphics/bclogo/metapost/bc-nucleaire.mp @@ -0,0 +1,29 @@ +prologues:=1; +outputtemplate:="%j.mps"; +beginfig(1); +path p[]; +filldraw fullcircle scaled(600); +filldraw fullcircle scaled(550) withcolor(241/256,205/256,67/256); +filldraw fullcircle scaled(100); +p1:=fullcircle scaled(500); +p2:=p1 cutafter (point(4/3) of(p1)); +p3:=fullcircle scaled(150); +p4:=p3 cutafter (point(4/3) of(p3)); +p10:=(75,0)--(250,0)..p2--reverse(p4)..cycle; +filldraw p10; +filldraw (p10 rotated(120)); +filldraw (p10 rotated(240)); + +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; |