From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/115891 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Henning Hraban Ramm via ntg-context Newsgroups: gmane.comp.tex.context Subject: Re: update old MP code Date: Thu, 1 Sep 2022 18:28:52 +0200 Message-ID: References: <48e6855a-0888-d823-43a3-5d3a4757bf86@fiee.net> <43EF1253-41CC-418F-A6F9-40764B7D05C3@bittext.nl> Reply-To: mailing list for ConTeXt users Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------cXegbJLPcmTxx6Wyp92qY9xQ" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="9777"; 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 18:29:39 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 1oTn4V-0002Ot-IE for gctc-ntg-context-518@m.gmane-mx.org; Thu, 01 Sep 2022 18:29:39 +0200 Original-Received: from localhost (localhost [127.0.0.1]) by zapf.ntg.nl (Postfix) with ESMTP id 9B4802A41D9; Thu, 1 Sep 2022 18:28:58 +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 41IxtK10dZiF; Thu, 1 Sep 2022 18:28:57 +0200 (CEST) Original-Received: from zapf.ntg.nl (localhost [127.0.0.1]) by zapf.ntg.nl (Postfix) with ESMTP id A741E2A41C7; Thu, 1 Sep 2022 18:28:57 +0200 (CEST) Original-Received: from localhost (localhost [127.0.0.1]) by zapf.ntg.nl (Postfix) with ESMTP id A5D162A41C7 for ; Thu, 1 Sep 2022 18:28:55 +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 JvndEDUM5Qyt for ; Thu, 1 Sep 2022 18:28:54 +0200 (CEST) Received-SPF: Pass (mailfrom) identity=mailfrom; client-ip=188.68.63.161; helo=relay.yourmailgateway.de; envelope-from=texml@fiee.net; receiver= Original-Received: from relay.yourmailgateway.de (relay.yourmailgateway.de [188.68.63.161]) (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 8B5402A418F for ; Thu, 1 Sep 2022 18:28:54 +0200 (CEST) Original-Received: from mors-relay-8201.netcup.net (localhost [127.0.0.1]) by mors-relay-8201.netcup.net (Postfix) with ESMTPS id 4MJRLt0tkBz3tHZ for ; Thu, 1 Sep 2022 18:28:54 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=fiee.net; s=key2; t=1662049734; bh=dxRmweb3PeoMB5S+iOKgvKmJpr0PgSjExbzKp0IcF14=; h=Date:Subject:To:References:From:In-Reply-To:From; b=bQkoXpVquAfSr3CXwTRn4DZPIAFcUNQmWRyOeWMnj6Z/AMNak7ReWBkhkeID1WWYf 6/RLqymvrE7tm42C04NDpFvi2CDjqUaTEEBgXqp5JArwU20YoyeHJtASITuiKrZXje ZCXmwSG0KpspzkjEjNejxFo2251kAz9N2HKsLBKJxP7gUiZBhJHJX44d5TbfOB2m2c HqZ3y7cpYK6T6qqTrYD7VcWknQahQEIWrsxXMO+cYzkhQtJV4PJXmJ/uzAIqPflA6N xTEETe2LFAEsT8GXsLFEm0N/XTRWCFXun40O6e5OFwus2PNpR2GYP+18ZsbPYQWOha Rhg1AUjXvZK1g== Original-Received: from policy02-mors.netcup.net (unknown [46.38.225.53]) by mors-relay-8201.netcup.net (Postfix) with ESMTPS id 4MJRLt0TsSz3tHT for ; Thu, 1 Sep 2022 18:28:54 +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 4MJRLs3tXNz8sb3 for ; Thu, 1 Sep 2022 18:28:53 +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 DF11A120028 for ; Thu, 1 Sep 2022 18:28:52 +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 In-Reply-To: <43EF1253-41CC-418F-A6F9-40764B7D05C3@bittext.nl> X-PPP-Message-ID: <166204973314.27132.17311461242802459697@mxf9ac.netcup.net> X-PPP-Vhost: fiee.net X-Rspamd-Queue-Id: DF11A120028 X-Spamd-Result: default: False [-3.00 / 15.00]; BAYES_HAM(-3.00)[100.00%]; MIME_GOOD(-0.10)[multipart/mixed,text/plain]; MIME_UNKNOWN(0.10)[application/x-tex]; FROM_EQ_ENVFROM(0.00)[]; MID_RHS_MATCH_FROM(0.00)[]; MIME_TRACE(0.00)[0:+,1:+,2:~]; RCVD_COUNT_ZERO(0.00)[0]; ASN(0.00)[asn:3209, ipnet:92.216.0.0/14, country:DE]; NEURAL_HAM(-0.00)[-0.957]; RCPT_COUNT_ONE(0.00)[1]; FROM_HAS_DN(0.00)[]; TO_DN_ALL(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: V3RiLigvzmet/Lp/TR6ulqzT1QiKpvnNEt+QveYW 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:115891 Archived-At: This is a multi-part message in MIME format. --------------cXegbJLPcmTxx6Wyp92qY9xQ Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 8bit Am 01.09.22 um 15:40 schrieb Taco Hoekwater: > Adding grouping makes sense: >> >> def Moire(expr size)(text densities)= > > begingroup > endgroup > > As that at least makes it an expression instead of a statement list. > > But also depthless() is never defined? Oops, I forgot to copy that part (confusing source...) It still doesn’t compile: --- \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; vardef depthless(expr p) = save p_; picture p_; p_:=p if string p: infont defaultfont scaled defaultscale fi; setbounds p_ to (xpart(llcorner p_),0)--(xpart(lrcorner p_),0)-- urcorner(p_)--ulcorner(p_)--cycle; p_ enddef; def Moire(expr size)(text densities)= begingroup 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 ) endgroup; enddef; draw Moire(57.5mm)(200, 175, 150, 125, 100, 75); % ulshiftedto (142mm, 38.5mm); \stopreusableMPgraphic \starttext \reuseMPgraphic{moiree} \stoptext --------------cXegbJLPcmTxx6Wyp92qY9xQ 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; vardef depthless(expr p) = save p_; picture p_; p_:=p if string p: infont defaultfont scaled defaultscale fi; setbounds p_ to (xpart(llcorner p_),0)--(xpart(lrcorner p_),0)-- urcorner(p_)--ulcorner(p_)--cycle; p_ enddef; def Moire(expr size)(text densities)= begingroup 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 ) endgroup; enddef; draw Moire(57.5mm)(200, 175, 150, 125, 100, 75); % ulshiftedto (142mm, 38.5mm); \stopreusableMPgraphic \starttext \reuseMPgraphic{moiree} \stoptext --------------cXegbJLPcmTxx6Wyp92qY9xQ 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== --------------cXegbJLPcmTxx6Wyp92qY9xQ--