Re: [NTG-context] Kaktovik numerals

2023-04-20 Thread Willi Egger via ntg-context
Hans thank you very much for this update. Indeed now automatic conversion comes 
out correctly.

Willi

> On 19 Apr 2023, at 23:41, Hans Hagen via ntg-context  
> wrote:
> 
> On 4/19/2023 10:45 PM, Willi Egger via ntg-context wrote:
>> Hello Gavin,
>> thank you so much for your input. — Indeed you are right. Please find 
>> attached the corrected version.
>> Willi
>>> On 19 Apr 2023, at 20:58, Gavin via ntg-context  wrote:
>>> 
>>> Hi Willi,
>>> 
>>> What fun! I think I found a couple math items to correct.
>>> 
>>> 1) The second line of the tables at the top of page 2 should be:
>>>1000' 100, 10, 1; 8000, 400, 20, 1
>>> 
>>> 2) For the year conversion: 2023 = 5x20^2 + 1x20 + 3. (Your 0 should be my 
>>> 1). This will give a three digit Kaktovik numeral. You have 4 digit 
>>> Kaktovik numerals for 2023, with both a 0 and a 1.
> je kunt direct dat nummer converteren maar blijkbaar gaf ik de verkeerde 
> volgorde uit:
> 
> \useMPlibrary[kaktovik] % de officiele manier
> 
> \definefontfeature
>  [default]
>  [default]
>  [metapost=kaktovik]
> 
> \setupbodyfont[dejavu]
> 
> \starttext
> 2023 \kaktoviknumerals{5}\kaktoviknumerals{1}\kaktoviknumerals{3}
> 
> \kaktoviknumerals{2023} % deze split dus voor je, order fixed
> 
> \stoptext
> 
> 
> -
>  Hans Hagen | PRAGMA ADE
>  Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
>   tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
> -
> ___
> 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
___


Re: [NTG-context] Kaktovik numerals

2023-04-19 Thread Hans Hagen via ntg-context

On 4/19/2023 10:45 PM, Willi Egger via ntg-context wrote:

Hello Gavin,

thank you so much for your input. — Indeed you are right. Please find attached 
the corrected version.



Willi


On 19 Apr 2023, at 20:58, Gavin via ntg-context  wrote:

Hi Willi,

What fun! I think I found a couple math items to correct.

1) The second line of the tables at the top of page 2 should be:
1000' 100, 10, 1; 8000, 400, 20, 1

2) For the year conversion: 2023 = 5x20^2 + 1x20 + 3. (Your 0 should be my 1). 
This will give a three digit Kaktovik numeral. You have 4 digit Kaktovik 
numerals for 2023, with both a 0 and a 1.
je kunt direct dat nummer converteren maar blijkbaar gaf ik de verkeerde 
volgorde uit:


\useMPlibrary[kaktovik] % de officiele manier

\definefontfeature
  [default]
  [default]
  [metapost=kaktovik]

\setupbodyfont[dejavu]

\starttext
 2023 \kaktoviknumerals{5}\kaktoviknumerals{1}\kaktoviknumerals{3}

\kaktoviknumerals{2023} % deze split dus voor je, order fixed

\stoptext


-
  Hans Hagen | PRAGMA ADE
  Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
   tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-
%D \module
%D   [   file=meta-imp-kaktovik,
%Dversion=2023.04.18,
%D  title=\METAPOST\ Graphics,
%D   subtitle=Kaktovik Numbers,
%D author=Hans Hagen,
%D   date=\currentdate,
%D  copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

%D Just a quick hack for Hraban (after a post on the mailing list).

\startMPcalculation{simplefun}

path kaktovik_glyphs[] ;

def InitializeKaktovik =

save p, d, u ;

pair p[] ; numeric d ; d := .1 ; numeric u ; u := .15 ;

  % d := getparameterdefault "mpsfont" "d" .10 ;
  % u := getparameterdefault "mpsfont" "u" .15 ;

p[0] := (0,1) ;
p[1] := (1,0) ;
p[2] := (2,1 -  d) ;
p[3] := (3,0) ;
p[4] := (4,1 - 2d) ;

p[5] := (4,1 +  u) ;
p[6] := (0,1 + 2u) ;
p[7] := (4,1 + 4u) ;

kaktovik_glyphs[0] := (1,1)  { right } .. { left } (2,1/2) { left } .. 
{ right } (3,1);

for i= 1 upto 4 :
kaktovik_glyphs[i] := p[0] for j=1 upto i : -- p[j] endfor ;
endfor ;

kaktovik_glyphs[ 5] := p[5] -- p[0] ;for i= 6 upto  9 : 
kaktovik_glyphs[i] := p[5] -- kaktovik_glyphs[i-5] ; endfor ;
kaktovik_glyphs[10] := p[6] -- kaktovik_glyphs[ 5] ; for i=11 upto 14 : 
kaktovik_glyphs[i] := p[6] -- kaktovik_glyphs[i-5] ; endfor ;
kaktovik_glyphs[15] := p[7] -- kaktovik_glyphs[10] ; for i=16 upto 19 : 
kaktovik_glyphs[i] := p[7] -- kaktovik_glyphs[i-5] ; endfor ;

enddef ;

vardef Kaktovik(expr i) =
draw image (
draw kaktovik_glyphs[i]
xscaled (10/20 -1/20)
yscaled (25/20 -2/20)
withpen (pencircle xscaled 1/20 yscaled 5/20) rotated -(2*20)
  % withpen (pencircle xscaled 1/40 yscaled 5/40) rotated -(2*20)
  % withpen (pencircle xscaled 2.5/40 yscaled 5/40) rotated -(2*20)
;
) shifted (2/20,2/20)
enddef ;

lmt_registerglyphs [
name = "kaktovik",
units= 2,
usecolor = true,
width= 2,
height   = 2,
depth= 0,
preamble = "InitializeKaktovik"
] ;

for i=0 upto 19 :
lmt_registerglyph [
category = "kaktovik",
unicode  = 119488 + i, % "0x1D2C0"
code = "Kaktovik(" & decimal i & ")"
] ;
endfor ;

\stopMPcalculation

\startluacode
interfaces.implement {
name  = "kaktoviknumerals",
arguments = "integer",
actions   = function(n)
local digits = { }
local count  = 1
while true do
digits[count] = utf.char(0x1D2C0 + (n % 20))
n = n // 20
if n == 0 then
break;
end
count = count + 1
end
table.reverse(digits)
context("%t",digits)
end
}
\stopluacode

\unprotect

\permanent\def\kaktoviknumerals#1{\clf_kaktoviknumerals\numexpr#1\relax}

\defineconversion [kaktoviknumerals] [\kaktoviknumerals]
\defineconversion [K][\kaktoviknumerals]

\definefontfeature
  [kaktovik]
  [metapost=kaktovik]

\protect

\continueifinputfile{meta-imp-kaktovik.mkxl}

\definefontfeature
  [default]
  [default]
  [metapost=kaktovik]
% [metapost={category=kaktovik,u=.25,d=.20,x=}]

\setupbodyfont[dejavu]

% \nopdfcompression

\startTEXpage[offset=1ts,width=3es]

\start
\showglyphs
KAKTOVIK

Re: [NTG-context] Kaktovik numerals

2023-04-19 Thread Willi Egger via ntg-context
Hello Gavin,

thank you so much for your input. — Indeed you are right. Please find attached 
the corrected version.



kaktovik-numerals-info.pdf
Description: Adobe PDF document


kaktovik-numerals-info.tex
Description: Binary data

Willi

> On 19 Apr 2023, at 20:58, Gavin via ntg-context  wrote:
> 
> Hi Willi,
> 
> What fun! I think I found a couple math items to correct.
> 
> 1) The second line of the tables at the top of page 2 should be:
>1000' 100, 10, 1; 8000, 400, 20, 1
> 
> 2) For the year conversion: 2023 = 5x20^2 + 1x20 + 3. (Your 0 should be my 
> 1). This will give a three digit Kaktovik numeral. You have 4 digit Kaktovik 
> numerals for 2023, with both a 0 and a 1.
> 
> Gavin
> 
> 
>> On Apr 19, 2023, at 12:36 PM, Willi Egger via ntg-context 
>>  wrote:
>> 
>> Hi all,
>> 
>> after playing around and watching YouTube the attached  composition is made…
>> 
>> Willi
>> 
>> 
>>> On 18 Apr 2023, at 10:57, Henning Hraban Ramm via ntg-context 
>>>  wrote:
>>> 
>>> I just came across this thread about the base-20 system of the Inuit people 
>>> and the numerals invented for it in the 1990s:
>>> https://mathstodon.xyz/@johncarlosbaez/110215432175491555
>>> 
>>> This makes simple calculations just beautiful.
>>> 
>>> Hraban
>>> ___
>>> 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
>> ___
> 
> ___
> 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
___


Re: [NTG-context] Kaktovik numerals

2023-04-19 Thread Gavin via ntg-context
Hi Willi,

What fun! I think I found a couple math items to correct.

1) The second line of the tables at the top of page 2 should be:
1000' 100, 10, 1; 8000, 400, 20, 1

2) For the year conversion: 2023 = 5x20^2 + 1x20 + 3. (Your 0 should be my 1). 
This will give a three digit Kaktovik numeral. You have 4 digit Kaktovik 
numerals for 2023, with both a 0 and a 1.

Gavin


> On Apr 19, 2023, at 12:36 PM, Willi Egger via ntg-context 
>  wrote:
> 
> Hi all,
> 
> after playing around and watching YouTube the attached  composition is made…
> 
> Willi
> 
> 
>> On 18 Apr 2023, at 10:57, Henning Hraban Ramm via ntg-context 
>>  wrote:
>> 
>> I just came across this thread about the base-20 system of the Inuit people 
>> and the numerals invented for it in the 1990s:
>> https://mathstodon.xyz/@johncarlosbaez/110215432175491555
>> 
>> This makes simple calculations just beautiful.
>> 
>> Hraban
>> ___
>> 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
> ___

___
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
___


Re: [NTG-context] Kaktovik numerals

2023-04-19 Thread Willi Egger via ntg-context
Hi all,

after playing around and watching YouTube the attached  composition is made…

Willi


kaktovik-numerals-info.pdf
Description: Adobe PDF document


kaktovik-numerals-info.tex
Description: Binary data


> On 18 Apr 2023, at 10:57, Henning Hraban Ramm via ntg-context 
>  wrote:
> 
> I just came across this thread about the base-20 system of the Inuit people 
> and the numerals invented for it in the 1990s:
> https://mathstodon.xyz/@johncarlosbaez/110215432175491555
> 
> This makes simple calculations just beautiful.
> 
> Hraban
> ___
> 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
___


Re: [NTG-context] Kaktovik numerals

2023-04-19 Thread Willi Egger via ntg-context
Hi everybody,

because I am not a mathematician, I looked on the internet for more 
explanations for the Katovik numerals. I found on YouTube films, worthwhile to 
enjoy:

https://www.youtube.com/watch?v=fIZB4bRwxqI_channel=Dave%27sMathVideos

https://www.youtube.com/watch?v=ObRFHiU_r9I_channel=TheFerret

Willi

> On 18 Apr 2023, at 10:57, Henning Hraban Ramm via ntg-context 
>  wrote:
> 
> I just came across this thread about the base-20 system of the Inuit people 
> and the numerals invented for it in the 1990s:
> https://mathstodon.xyz/@johncarlosbaez/110215432175491555
> 
> This makes simple calculations just beautiful.
> 
> Hraban
> ___
> 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
___


Re: [NTG-context] Kaktovik numerals

2023-04-19 Thread Henning Hraban Ramm via ntg-context

Am 18.04.23 um 15:01 schrieb Hans Hagen via ntg-context:

On 4/18/2023 10:57 AM, Henning Hraban Ramm via ntg-context wrote:
I just came across this thread about the base-20 system of the Inuit 
people and the numerals invented for it in the 1990s:

https://mathstodon.xyz/@johncarlosbaez/110215432175491555

This makes simple calculations just beautiful.

interesting ... quick hack attached


Thank you very much!
I want to use this for paginations ;))

(Sorry for somewhat erratical response behavior – I’m quite busy 
preparing for the book fair in Leipzig…)


Hraban

___
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
___


Re: [NTG-context] Kaktovik numerals

2023-04-18 Thread Otared Kavian via ntg-context
Great indeed ! And the quick answer by Hans impressive, as usual…
What a great community !

Best regards: Otared

> On 18 Apr 2023, at 10:57, Henning Hraban Ramm via ntg-context 
>  wrote:
> 
> I just came across this thread about the base-20 system of the Inuit people 
> and the numerals invented for it in the 1990s:
> https://mathstodon.xyz/@johncarlosbaez/110215432175491555
> 
> This makes simple calculations just beautiful.
> 
> Hraban
> ___
> 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
> ___

Otared Kavian
e-mail: ota...@gmail.com
Phone: +33 6 88 26 70 95




___
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
___


Re: [NTG-context] Kaktovik numerals

2023-04-18 Thread Rudolf Bahr via ntg-context
Am Tue, Apr 18, 2023 at 10:57:14AM +0200 schrieb Henning Hraban Ramm via 
ntg-context:
> I just came across this thread about the base-20 system of the Inuit people
> and the numerals invented for it in the 1990s:
> https://mathstodon.xyz/@johncarlosbaez/110215432175491555
> 
> This makes simple calculations just beautiful.
> 
> Hraban
> ___


Very nice, Hraban, thank you for posting it!

Rudolf

___
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
___


Re: [NTG-context] Kaktovik numerals

2023-04-18 Thread Willi Egger via ntg-context
Hans, genial. Once you told to me “hoe krijg je het voor elkaar…”. Now I tell 
you, how do you get this done… the mail has not even had the time to “cool” 
down and you post this. I am astonished.

Kind regards

Willi

> On 18 Apr 2023, at 15:01, Hans Hagen via ntg-context  
> wrote:
> 
> On 4/18/2023 10:57 AM, Henning Hraban Ramm via ntg-context wrote:
>> I just came across this thread about the base-20 system of the Inuit people 
>> and the numerals invented for it in the 1990s:
>> https://mathstodon.xyz/@johncarlosbaez/110215432175491555
>> This makes simple calculations just beautiful.
> interesting ... quick hack attached
> 
> Hans
> 
> -
>  Hans Hagen | PRAGMA ADE
>  Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
>   tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
> -
> ___
> 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
___


Re: [NTG-context] Kaktovik numerals

2023-04-18 Thread Willi Egger via ntg-context
Hi!

dit is really interesting, I just spent two hours reading different sources. 
And yes, the SIL GentiumKatovik made the wikipedia show everything nicely!

Thanks Hraban

Willi

> On 18 Apr 2023, at 10:57, Henning Hraban Ramm via ntg-context 
>  wrote:
> 
> I just came across this thread about the base-20 system of the Inuit people 
> and the numerals invented for it in the 1990s:
> https://mathstodon.xyz/@johncarlosbaez/110215432175491555
> 
> This makes simple calculations just beautiful.
> 
> Hraban
> ___
> 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
___


Re: [NTG-context] Kaktovik numerals

2023-04-18 Thread Hans Hagen via ntg-context

On 4/18/2023 10:57 AM, Henning Hraban Ramm via ntg-context wrote:
I just came across this thread about the base-20 system of the Inuit 
people and the numerals invented for it in the 1990s:

https://mathstodon.xyz/@johncarlosbaez/110215432175491555

This makes simple calculations just beautiful.

interesting ... quick hack attached

Hans

-
  Hans Hagen | PRAGMA ADE
  Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
   tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-


meta-imp-kaktovik.pdf
Description: Adobe PDF document
%D \module
%D   [   file=meta-imp-kaktovik,
%Dversion=2023.04.18,
%D  title=\METAPOST\ Graphics,
%D   subtitle=Kaktovik Numbers,
%D author=Hans Hagen,
%D   date=\currentdate,
%D  copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

%D Just a quick hack for Hraban (after a post on the mailing list).

\startMPcalculation{simplefun}

path kaktovik_glyphs[] ;

def InitializeKaktovik =

save p, d, u ;

pair p[] ; numeric d ; d := .1 ; numeric u ; u := .15 ;

  % d := getparameterdefault "mpsfont" "d" .10 ;
  % u := getparameterdefault "mpsfont" "u" .15 ;

p[0] := (0,1) ;
p[1] := (1,0) ;
p[2] := (2,1 -  d) ;
p[3] := (3,0) ;
p[4] := (4,1 - 2d) ;

p[5] := (4,1 +  u) ;
p[6] := (0,1 + 2u) ;
p[7] := (4,1 + 4u) ;

kaktovik_glyphs[0] := (1,1)  { right } .. { left } (2,1/2) { left } .. 
{ right } (3,1);

for i= 1 upto 4 :
kaktovik_glyphs[i] := p[0] for j=1 upto i : -- p[j] endfor ;
endfor ;

kaktovik_glyphs[ 5] := p[5] -- p[0] ;for i= 6 upto  9 : 
kaktovik_glyphs[i] := p[5] -- kaktovik_glyphs[i-5] ; endfor ;
kaktovik_glyphs[10] := p[6] -- kaktovik_glyphs[ 5] ; for i=11 upto 14 : 
kaktovik_glyphs[i] := p[6] -- kaktovik_glyphs[i-5] ; endfor ;
kaktovik_glyphs[15] := p[7] -- kaktovik_glyphs[10] ; for i=16 upto 19 : 
kaktovik_glyphs[i] := p[7] -- kaktovik_glyphs[i-5] ; endfor ;

enddef ;

vardef Kaktovik(expr i) =
draw image (
draw kaktovik_glyphs[i]
xscaled (10/20 -1/20)
yscaled (25/20 -2/20)
withpen (pencircle xscaled 1/20 yscaled 5/20) rotated -(2*20)
  % withpen (pencircle xscaled 1/40 yscaled 5/40) rotated -(2*20)
  % withpen (pencircle xscaled 2.5/40 yscaled 5/40) rotated -(2*20)
;
) shifted (2/20,2/20)
enddef ;

lmt_registerglyphs [
name = "kaktovik",
units= 2,
usecolor = true,
width= 2,
height   = 2,
depth= 0,
preamble = "InitializeKaktovik"
] ;

for i=0 upto 19 :
lmt_registerglyph [
category = "kaktovik",
unicode  = 119488 + i, % "0x1D2C0"
code = "Kaktovik(" & decimal i & ")"
] ;
endfor ;

\stopMPcalculation

\startluacode
interfaces.implement {
name  = "kaktoviknumerals",
arguments = "integer",
actions   = function(n)
local digits = { }
local count  = 1
while true do
digits[count] = utf.char(0x1D2C0 + (n % 20))
n = n // 20
if n == 0 then
break;
end
count = count + 1
end
context("%t",digits)
end
}
\stopluacode

\unprotect

\permanent\def\kaktoviknumerals#1{\clf_kaktoviknumerals\numexpr#1\relax}

\defineconversion [kaktoviknumerals] [\kaktoviknumerals]
\defineconversion [K][\kaktoviknumerals]

\definefontfeature
  [kaktovik]
  [metapost=kaktovik]

\protect

\continueifinputfile{meta-imp-kaktovik.mkxl}

\definefontfeature
  [default]
  [default]
  [metapost=kaktovik]
% [metapost={category=kaktovik,u=.25,d=.20,x=}]

\setupbodyfont[dejavu]

% \nopdfcompression

\startTEXpage[offset=1ts,width=3es]

\start
\showglyphs
KAKTOVIK
\dostepwiserecurse{0}{19}{1}{\kaktoviknumerals{#1}\space }
\stop

kaktovik \start
\red\glyphxscale 700
\dostepwiserecurse{0}{19}{1}{\kaktoviknumerals{#1}\space }
\stop

\startitemize[packed,K][color=orange,stopper=]
\startitem first  \stopitem
\startitem second \stopitem
\startitem third  \stopitem
\stopitemize

KAKTOVIK \start
\red  \kaktoviknumerals{2023} --
\green\kaktoviknumerals{4}--
\blue \kaktoviknumerals{18}
\stop

KAKTOVIK
\stopTEXpage


___
If your 

Re: [NTG-context] Kaktovik numerals

2023-04-18 Thread Arthur Rosendahl via ntg-context
On Tue, Apr 18, 2023 at 10:57:14AM +0200, Henning Hraban Ramm via ntg-context 
wrote:
> I just came across this thread about the base-20 system of the Inuit people
> and the numerals invented for it in the 1990s:
> https://mathstodon.xyz/@johncarlosbaez/110215432175491555
> 
> This makes simple calculations just beautiful.

  It is beautiful :-)  Thanks for the pointer!

Best,

Arthur
___
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
___