Hi Mikael,
Great job !
Thanks
Fabrice

Le dim. 2 oct. 2022 à 15:37, Mikael Sundqvist via ntg-context <
ntg-context@ntg.nl> a écrit :

> Hi,
>
> On Sun, Oct 2, 2022 at 3:26 PM Hans Hagen via ntg-context
> <ntg-context@ntg.nl> wrote:
> >
> > On 10/2/2022 3:13 PM, Fabrice Couvreur via ntg-context wrote:
> > > Ok, it works very well. Without wanting to insist, how to have the same
> > > hatching with two different figures ?
> > see upcoming mail from Mikael
>
> Oh, OK, here it goes. Hans will probably rename things if he adds this.
>
> \startMPpage[offset=1dk]
>
> vardef Stripe(expr p, a, d) =
> save thestripe ; picture thestripe ; thestripe := nullpicture ;
> save diag ; numeric diag ; diag := 0.55*( abs((urcorner boundingbox p)
> - (llcorner boundingbox p)) ) ;
> thestripe := image (
> draw (-diag,0) -- (diag, 0) &&
> for i = d step d until diag:
> (-diag, i) -- (diag, i) &&
> (-diag,-i) -- (diag,-i) &&
> endfor nocycle
> withpen currentpen ;
> ) ;
> thestripe := thestripe shifted center boundingbox p ;
> thestripe := thestripe rotatedaround(center boundingbox p, a) ;
> clip thestripe to p ;
> thestripe
> enddef ;
>
>
> path p ; p := fullcircle scaled 3cm && (unitsquare scaled 2cm shifted
> (4cm,4cm)) && cycle ;
> fill p withcolor darkred ;
> draw Stripe(p,30,.2cm) withcolor darkgreen ;
>
> path q ; q := fullsquare randomized 0.3 scaled 3cm yshifted 5cm ;
> fill q withcolor yellow ;
> draw Stripe(q,70,.3cm) withcolor red ;
>
> draw Stripe(p && q && cycle, -20, .5cm) withcolor "orange" ;
>
> draw p ;
> draw q ;
>
> \stopMPpage
>
> /Mikael
>
> ___________________________________________________________________________________
> If your question is of interest to others as well, please add an entry to
> the Wiki!
>
> maillist : ntg-context@ntg.nl /
> https://www.ntg.nl/mailman/listinfo/ntg-context
> webpage  : https://www.pragma-ade.nl / http://context.aanhet.net
> archive  : https://bitbucket.org/phg/context-mirror/commits/
> wiki     : https://contextgarden.net
>
> ___________________________________________________________________________________
>
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the 
Wiki!

maillist : ntg-context@ntg.nl / https://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : https://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : https://contextgarden.net
___________________________________________________________________________________

Reply via email to