From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/115880 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Henning Hraban Ramm via ntg-context Newsgroups: gmane.comp.tex.context Subject: update old MP code Date: Thu, 1 Sep 2022 09:29:55 +0200 Message-ID: <48e6855a-0888-d823-43a3-5d3a4757bf86@fiee.net> Reply-To: mailing list for ConTeXt users Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------1ryfYefeE9YKumfu4PminZbz" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="13403"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.14; rv:102.0) Gecko/20100101 Thunderbird/102.2.0 Cc: Henning Hraban Ramm To: mailing list for ConTeXt users Original-X-From: ntg-context-bounces@ntg.nl Thu Sep 01 09:30:42 2022 Return-path: Envelope-to: gctc-ntg-context-518@m.gmane-mx.org Original-Received: from zapf.boekplan.nl ([5.39.185.232] helo=zapf.ntg.nl) by ciao.gmane.io with esmtps (TLS1.3:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1oTeew-0003Md-67 for gctc-ntg-context-518@m.gmane-mx.org; Thu, 01 Sep 2022 09:30:42 +0200 Original-Received: from localhost (localhost [127.0.0.1]) by zapf.ntg.nl (Postfix) with ESMTP id CA2CF2A408A; Thu, 1 Sep 2022 09:30:07 +0200 (CEST) X-Virus-Scanned: Debian amavisd-new at zapf.boekplan.nl Original-Received: from zapf.ntg.nl ([127.0.0.1]) by localhost (zapf.ntg.nl [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id g1qKmwGnqXrI; Thu, 1 Sep 2022 09:30:06 +0200 (CEST) Original-Received: from zapf.ntg.nl (localhost [127.0.0.1]) by zapf.ntg.nl (Postfix) with ESMTP id BA0AE2A3E9F; Thu, 1 Sep 2022 09:30:06 +0200 (CEST) Original-Received: from localhost (localhost [127.0.0.1]) by zapf.ntg.nl (Postfix) with ESMTP id C002B2A3E94 for ; Thu, 1 Sep 2022 09:30:04 +0200 (CEST) X-Virus-Scanned: Debian amavisd-new at zapf.boekplan.nl Original-Received: from zapf.ntg.nl ([127.0.0.1]) by localhost (zapf.ntg.nl [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id GVkBYz2-YGnD for ; Thu, 1 Sep 2022 09:30:02 +0200 (CEST) Received-SPF: Pass (mailfrom) identity=mailfrom; client-ip=188.68.63.101; helo=relay.yourmailgateway.de; envelope-from=texml@fiee.net; receiver= Original-Received: from relay.yourmailgateway.de (relay.yourmailgateway.de [188.68.63.101]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) (No client certificate requested) by zapf.ntg.nl (Postfix) with ESMTPS id BE2C72A3E8C for ; Thu, 1 Sep 2022 09:30:02 +0200 (CEST) Original-Received: from mors-relay-2502.netcup.net (localhost [127.0.0.1]) by mors-relay-2502.netcup.net (Postfix) with ESMTPS id 4MJCP56Z4Wz51cR for ; Thu, 1 Sep 2022 09:30:01 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=fiee.net; s=key2; t=1662017401; bh=KRTl7g/Pelv7eOoyHwWWCpz2dTnawUXd19K7HwGuz00=; h=Date:To:From:Subject:From; b=RV7TYjUFcwk9gNSzPn6OKThxOOrnVqjrXiDUVC8kZnlUqHPCNvVv0CPLGMSSPI8Cx zWL7q49AZwgx3Ni3OmF/3sc4RQ0THudDhLLsnCbHH2fnJMqHs2LFbznFSNzCYP7LRW DLxgV7MU81cyJWCD3w30VN6rbcuyQqPRzMeE0sRxTlFKxwQyOg/QDGZv9dOzYffDgd 9AVHoe/pdgWMZYjUSYfc6h4jxpH9tvRCQm60UKVZYmiUDXi3GF/a+fWHL8j/5Vj6hr uO8ukdghxdAilGRykVVmraRedA/72HbjFdgx1x8nyVWhbqy+kjBv8CVwcT1qZLaTNt LsXOgl0s0o/9Q== Original-Received: from policy02-mors.netcup.net (unknown [46.38.225.53]) by mors-relay-2502.netcup.net (Postfix) with ESMTPS id 4MJCP5665Cz4xPZ for ; Thu, 1 Sep 2022 09:30:01 +0200 (CEST) X-Virus-Scanned: Debian amavisd-new at policy02-mors.netcup.net Original-Received: from mxf9ac.netcup.net (unknown [10.243.12.53]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by policy02-mors.netcup.net (Postfix) with ESMTPS id 4MJCP52Fwbz8sb3 for ; Thu, 1 Sep 2022 09:30:01 +0200 (CEST) Original-Received: from [192.168.178.23] (ipservice-092-219-034-186.092.219.pools.vodafone-ip.de [92.219.34.186]) by mxf9ac.netcup.net (Postfix) with ESMTPSA id A5102120027 for ; Thu, 1 Sep 2022 09:30:00 +0200 (CEST) Authentication-Results: mxf9ac; spf=pass (sender IP is 92.219.34.186) smtp.mailfrom=texml@fiee.net smtp.helo=[192.168.178.23] Received-SPF: pass (mxf9ac: connection is authenticated) Content-Language: de-DE X-PPP-Message-ID: <166201740092.6333.9194044155449930115@mxf9ac.netcup.net> X-PPP-Vhost: fiee.net X-Rspamd-Queue-Id: A5102120027 X-Spamd-Result: default: False [0.00 / 15.00]; MIME_UNKNOWN(0.10)[application/x-tex]; MIME_GOOD(-0.10)[multipart/mixed,text/plain]; MIME_TRACE(0.00)[0:+,1:+,2:~]; ASN(0.00)[asn:3209, ipnet:92.216.0.0/14, country:DE]; FROM_EQ_ENVFROM(0.00)[]; RCVD_COUNT_ZERO(0.00)[0]; NEURAL_HAM(-0.00)[-0.996]; TO_DN_ALL(0.00)[]; RCPT_COUNT_ONE(0.00)[1]; FROM_HAS_DN(0.00)[]; MID_RHS_MATCH_FROM(0.00)[]; TO_MATCH_ENVRCPT_ALL(0.00)[]; HAS_ATTACHMENT(0.00)[]; ARC_NA(0.00)[] X-Rspamd-Server: rspamd-worker-8404 X-NC-CID: vyOXtIt4OK1CDBUMlFeFlwa0UQF1snTCxVb/W8wh X-BeenThere: ntg-context@ntg.nl X-Mailman-Version: 2.1.26 Precedence: list List-Id: mailing list for ConTeXt users List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: ntg-context-bounces@ntg.nl Original-Sender: "ntg-context" Xref: news.gmane.io gmane.comp.tex.context:115880 Archived-At: This is a multi-part message in MIME format. --------------1ryfYefeE9YKumfu4PminZbz Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 8bit Hi, here’s a snippet of old Metapost code that I’d like to use in ConTeXt. I didn’t manage to update it to MetaFun – can you help me? Hraban ----- \setupbodyfont[plex,ss,8bp] \startreusableMPgraphic{moiree} % 1994 by Bogusław Jackowski (GUST) defaultfont := "\truefontname{Sans}"; pickup pencircle scaled 0.3bp; defaultscale := .8; linecap := butt; labeloffset := 1.5bp; defaultthickness:=.3bp; % 5 pixels at 1200 dpi % tertiarydef p ulshiftedto s = p shifted (s-ulcorner(p)) enddef; def Moire(expr size)(text densities)= save dn,a,b,k,labit,n,p,q,s,xs; n := 32; dn := 0; for i := densities: d[incr dn] := abs(i); if i>1: labit[dn]:=1; fi endfor a := min(d[1],d[dn]); b := max(d[1],d[dn]); image( for i=-n upto n: draw (0,i*in/a)--(size,i*in/b); %withpen pencircle scaled 3/5defaultthickness; endfor for i=1 upto dn: k:=(a/d[i]-1)/(a/b-1); if known labit[i]: string s; s:=decimal(d[i]); xs:=0; picture p,q; q := p := depthless(s); if i=dn: q := depthless(s & " lpi"); xs := width(q)-width(p); fi label.top(q, (k*size+1/2xs, n*in/a+1.5mm)); fi draw (k*size, n*in/a+1.5mm)--(k*size, k[n*in/a,n*in/b]+.5mm); draw (k*size, -n*in/a-1.5mm)--(k*size, -k[n*in/a,n*in/b]-.5mm); endfor ) enddef; draw Moire(57.5mm)(200, 175, 150, 125, 100, 75); % ulshiftedto (142mm, 38.5mm); \stopreusableMPgraphic \starttext \reuseMPgraphic{moiree} \stoptext ----- --------------1ryfYefeE9YKumfu4PminZbz Content-Type: application/x-tex; name="moireetest.tex" Content-Disposition: attachment; filename="moireetest.tex" Content-Transfer-Encoding: 8bit \setupbodyfont[plex,ss,8bp] \startreusableMPgraphic{moiree} % 1994 by Bogusław Jackowski (GUST) defaultfont := "\truefontname{Sans}"; pickup pencircle scaled 0.3bp; defaultscale := .8; linecap := butt; labeloffset := 1.5bp; defaultthickness:=.3bp; % 5 pixels at 1200 dpi % tertiarydef p ulshiftedto s = p shifted (s-ulcorner(p)) enddef; def Moire(expr size)(text densities)= %save dn,a,b,k,labit,n,p,q,s,xs; n := 32; dn := 0; for i := densities: d[incr dn] := abs(i); if i>1: labit[dn]:=1; fi endfor a := min(d[1],d[dn]); b := max(d[1],d[dn]); image( for i=-n upto n: draw (0,i*in/a)--(size,i*in/b); %withpen pencircle scaled 3/5defaultthickness; endfor for i=1 upto dn: k:=(a/d[i]-1)/(a/b-1); if known labit[i]: string s; s:=decimal(d[i]); xs:=0; picture p,q; q := p := depthless(s); if i=dn: q := depthless(s & " lpi"); xs := width(q)-width(p); fi label.top(q, (k*size+1/2xs, n*in/a+1.5mm)); fi draw (k*size, n*in/a+1.5mm)--(k*size, k[n*in/a,n*in/b]+.5mm); draw (k*size, -n*in/a-1.5mm)--(k*size, -k[n*in/a,n*in/b]-.5mm); endfor ) enddef; draw Moire(57.5mm)(200, 175, 150, 125, 100, 75); % ulshiftedto (142mm, 38.5mm); \stopreusableMPgraphic \starttext \reuseMPgraphic{moiree} \stoptext --------------1ryfYefeE9YKumfu4PminZbz Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: base64 Content-Disposition: inline X19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19f X19fX19fX19fX19fX19fX19fX19fX19fX18KSWYgeW91ciBxdWVzdGlvbiBpcyBvZiBpbnRlcmVz dCB0byBvdGhlcnMgYXMgd2VsbCwgcGxlYXNlIGFkZCBhbiBlbnRyeSB0byB0aGUgV2lraSEKCm1h aWxsaXN0IDogbnRnLWNvbnRleHRAbnRnLm5sIC8gaHR0cHM6Ly93d3cubnRnLm5sL21haWxtYW4v bGlzdGluZm8vbnRnLWNvbnRleHQKd2VicGFnZSAgOiBodHRwczovL3d3dy5wcmFnbWEtYWRlLm5s IC8gaHR0cDovL2NvbnRleHQuYWFuaGV0Lm5ldAphcmNoaXZlICA6IGh0dHBzOi8vYml0YnVja2V0 Lm9yZy9waGcvY29udGV4dC1taXJyb3IvY29tbWl0cy8Kd2lraSAgICAgOiBodHRwczovL2NvbnRl eHRnYXJkZW4ubmV0Cl9fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19f X19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fCg== --------------1ryfYefeE9YKumfu4PminZbz--