X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=bclogo.git;a=blobdiff_plain;f=dev%2Flatex%2Fsources_MetaPost%2Fbc-nucleaire.mp;fp=dev%2Flatex%2Fsources_MetaPost%2Fbc-nucleaire.mp;h=e323ebb48a6e3a31994a4c4cdaabb04b89b60899;hp=82a348049d5285246c3a9dbea1c3227d717f8e39;hb=c1f1ac00f2c0cc73bc3be6baa3dbd3482a36d189;hpb=f5b81d9a9dd19118b5bc05f9fc898a50165e2b49 diff --git a/dev/latex/sources_MetaPost/bc-nucleaire.mp b/dev/latex/sources_MetaPost/bc-nucleaire.mp index 82a3480..e323ebb 100644 --- a/dev/latex/sources_MetaPost/bc-nucleaire.mp +++ b/dev/latex/sources_MetaPost/bc-nucleaire.mp @@ -1,29 +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; +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;