From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/115894 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:48:25 +0200 Message-ID: <2195d86d-cf75-440d-8871-a87bd00f9113@fiee.net> References: <48e6855a-0888-d823-43a3-5d3a4757bf86@fiee.net> <43EF1253-41CC-418F-A6F9-40764B7D05C3@bittext.nl> <244DDAFC-C2A2-4E5E-B06B-AFDEE7E0B7E0@bittext.nl> Reply-To: mailing list for ConTeXt users Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------Inb5UBOxwVtK4nPrBxOdog0M" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="32316"; 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:49:34 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 1oTnNm-0008Fv-8m for gctc-ntg-context-518@m.gmane-mx.org; Thu, 01 Sep 2022 18:49:34 +0200 Original-Received: from localhost (localhost [127.0.0.1]) by zapf.ntg.nl (Postfix) with ESMTP id 78E922A4190; Thu, 1 Sep 2022 18:48:35 +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 ORjB-RM9XfWv; Thu, 1 Sep 2022 18:48:34 +0200 (CEST) Original-Received: from zapf.ntg.nl (localhost [127.0.0.1]) by zapf.ntg.nl (Postfix) with ESMTP id 849732A41CB; Thu, 1 Sep 2022 18:48:34 +0200 (CEST) Original-Received: from localhost (localhost [127.0.0.1]) by zapf.ntg.nl (Postfix) with ESMTP id E90522A41C7 for ; Thu, 1 Sep 2022 18:48:32 +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 gd2uf8mQHOFV for ; Thu, 1 Sep 2022 18:48:32 +0200 (CEST) Received-SPF: Pass (mailfrom) identity=mailfrom; client-ip=188.68.63.165; helo=relay.yourmailgateway.de; envelope-from=texml@fiee.net; receiver= Original-Received: from relay.yourmailgateway.de (relay.yourmailgateway.de [188.68.63.165]) (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 EC4962A4190 for ; Thu, 1 Sep 2022 18:48:31 +0200 (CEST) Original-Received: from mors-relay-8202.netcup.net (localhost [127.0.0.1]) by mors-relay-8202.netcup.net (Postfix) with ESMTPS id 4MJRnW3zRMz3vwb for ; Thu, 1 Sep 2022 18:48:31 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=fiee.net; s=key2; t=1662050911; bh=xpbsKzHmJVkgSPIYhH0hVqrtOQmUnDk655Xly/4592g=; h=Date:Subject:To:References:From:In-Reply-To:From; b=e+x7v6CnBQlpaT6MuOkpBe8kutO5OoDb7by1dpnPv7vtLV2moJmYQP4Q7JeiJuRkE 9S+sXlt7EcSzFEse2KyAP7PZk7V7gJhQqqH5lWMAmB0ss8l9zVL3aVNkb0kfdmYbX2 MK1iymG0rbSId3o7Xw/UWsAblx7diyjzWUbv3pTklUlH/7MpcVrizwZjQLu3wnvbkE WJF5S9tvqbf/kDIEH+Z0VvRlzgEGJKK6gHhMjJ6awsQT3sCBMtqP2x1ER9CtIJbXyp P0bMThZf/DpBaXHbmC9ICjtKwuMryKWBuzn5w4HPkLcRY8nuHOsmogewtu8B7uUQOO B3lavf3Hgad+g== Original-Received: from policy02-mors.netcup.net (unknown [46.38.225.53]) by mors-relay-8202.netcup.net (Postfix) with ESMTPS id 4MJRnW3ZyVz3vwL for ; Thu, 1 Sep 2022 18:48:31 +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 4MJRnV6KJnz8sb7 for ; Thu, 1 Sep 2022 18:48:30 +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 405D4120028 for ; Thu, 1 Sep 2022 18:48:26 +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: <244DDAFC-C2A2-4E5E-B06B-AFDEE7E0B7E0@bittext.nl> X-PPP-Message-ID: <166205090648.15541.12973198613676113983@mxf9ac.netcup.net> X-PPP-Vhost: fiee.net X-Rspamd-Queue-Id: 405D4120028 X-Spamd-Result: default: False [-2.95 / 15.00]; BAYES_HAM(-2.95)[99.81%]; 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.999]; 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: T9y28LdugChR7avthmv6mFvr9hAxxQVDIBtEnPm/ 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:115894 Archived-At: This is a multi-part message in MIME format. --------------Inb5UBOxwVtK4nPrBxOdog0M Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 8bit Am 01.09.22 um 18:45 schrieb Taco Hoekwater: > > >> On 1 Sep 2022, at 18:28, Henning Hraban Ramm via ntg-context wrote: >> >> 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: > > Missing definition of “width()”, from this line: > >> >> xs := width(q)-width(p); > > Adding that should do the trick. YES, thank you! I never know which function is part of MetaPost/MetaFun, my editor’s syntax highlighting is incomplete... Hraban --------------Inb5UBOxwVtK4nPrBxOdog0M 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 vardef width(expr p) = xpart(urcorner p - llcorner p) enddef; vardef height(expr p) = ypart(urcorner p - llcorner p) enddef; % 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 --------------Inb5UBOxwVtK4nPrBxOdog0M 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== --------------Inb5UBOxwVtK4nPrBxOdog0M--