\startenvironment metafun-environment-layout
\useMPlibrary[clp,txt]
\definepapersize[mine][width=29.7cm,height=21cm]
\setuppapersize[mine][A4,landscape]
\setuplayout[topspace=.75in,backspace=1in,
  header=20pt,headerdistance=2em,
  footer=17pt,footerdistance=1.75em,
  height=middle,width=middle]
\startmode[print]
  \setuppapersize[mine][mine]
\stopmode
\setupbodyfont[dejavu,12pt]
\setuptyping[margin=standard,blank=halfline]
\setupheadertexts[{\tfb \CONTEXT\ LMTX\hfill \bf JALUR GEMILANG (Bendera Malaysia)}]
\setupbackgrounds[header][text][bottomframe=on]
\setupbackgrounds[footer][text][topframe=on]
\setupinteraction[state=start]
\useURL[lesen][https://creativecommons.org/licenses/by-nc/4.0/][][Atribusi-BukanKomersial 4.0 Antarabangsa Creative Commons.]
\setupfootertexts[\leftaligned{\tfx{Pn Wan Raihan, Oktober 2021. Lesen: \from[lesen]}}]
\setuppagenumbering[location={right},style=bold]

\starttext

\startbuffer
\definecolor[b][c=1,m=1.0,y=0,k=0]
\definecolor[m][c=0,m=.95,y=1,k=0]
\definecolor[k][c=0,m=.09,y=1,k=0]

\starttext

\startuseMPgraphic{grid}
  picture KadarSatu; KadarSatu := image (
    for i := 0 step 1 until 27 : interim miterlimit := i*cm;
      draw fullsquare shifted (i,0) scaled .75cm withcolor .475white;
    endfor;

    for i := 2.75 step 3 until 9 : interim miterlimit := i*cm;
      draw fullsquare shifted (i,0) scaled .75cm;
    endfor;
  ) shifted (-6.25cm,0); draw KadarSatu withpen pencircle scaled .25pt;

  picture KadarDua; KadarDua := image (
    for i := 0 step 1 until 7 : interim miterlimit := i*cm;
      draw fullsquare shifted (0,-i) scaled .75cm withcolor .475white;
    endfor;
  ) shifted (-8cm,-1.86cm); draw KadarDua withpen pencircle scaled .25pt;
\stopuseMPgraphic

\startuseMPgraphic{jalur}
  picture MyJalur; MyJalur := image (
    fill fullsquare xysized (14, 8) shifted (0,-3.5) withcolor \MPcolor{b};
    fill fullsquare xysized (14, 1) shifted (14,- 0) withcolor \MPcolor{m};
    fill fullsquare xysized (14, 1) shifted (14,- 1) withcolor white;
    fill fullsquare xysized (14, 1) shifted (14,- 2) withcolor \MPcolor{m};
    fill fullsquare xysized (14, 1) shifted (14,- 3) withcolor white;
    fill fullsquare xysized (14, 1) shifted (14,- 4) withcolor \MPcolor{m};
    fill fullsquare xysized (14, 1) shifted (14,- 5) withcolor white;
    fill fullsquare xysized (14, 1) shifted (14,- 6) withcolor \MPcolor{m};
    fill fullsquare xysized (14, 1) shifted (14,- 7) withcolor white;
    fill fullsquare xysized (28, 1) shifted ( 7,- 8) withcolor \MPcolor{m};
    fill fullsquare xysized (28, 1) shifted ( 7,- 9) withcolor white;
    fill fullsquare xysized (28, 1) shifted ( 7,-10) withcolor \MPcolor{m};
    fill fullsquare xysized (28, 1) shifted ( 7,-11) withcolor white;
    fill fullsquare xysized (28, 1) shifted ( 7,-12) withcolor \MPcolor{m};
    fill fullsquare xysized (28, 1) shifted ( 7,-13) withcolor white;
    draw fullsquare xysized (28,14) shifted (7,-6.5);
  ) xyscaled .75cm shifted (-1.375cm,-1.86cm);
  draw MyJalur withpen pencircle scaled .25pt;
\stopuseMPgraphic

\startuseMPgraphic{anakbulan}
  fill fullcircle scaled 2 xyscaled  2.2500cm           shifted (-2.3100cm,-4.485cm)
    withcolor \MPcolor{k};

  fill fullcircle scaled 2 xyscaled (2.0925cm,1.9575cm) shifted (-1.7175cm,-4.485cm)
    withcolor \MPcolor{b}; % r_semimajor = 2.79 unit, r_semiminor = 2.61 unit
\stopuseMPgraphic

\startuseMPgraphic{bintang}
  picture BintangPecah; BintangPecah := image (
        a =  .75cm; b = 1.875cm; z01 = -z15 = (a, 0); -z08 = z22 = (0, -b);
        c = 1.83cm; d =  .42 cm; z02 = -z16 = (c, d); -z14 = z28 = (c, -d);
        e =  .68cm; f =  .33 cm; z03 = -z17 = (e, f); -z13 = z27 = (e, -f);
        g = 1.47cm; h = 1.17 cm; z04 = -z18 = (g, h); -z12 = z26 = (g, -h);
        i =  .47cm; j =  .59 cm; z05 = -z19 = (i, j); -z11 = z25 = (i, -j);
        k =  .81cm; l = 1.69 cm; z06 = -z20 = (k, l); -z10 = z24 = (k, -l);
        m =  .17cm; n =  .73 cm; z07 = -z21 = (m, n); -z09 = z23 = (m, -n);

    fill z01--z02--z03--z04--z05--z06--z07--z08--z09--z10--z11--z12--z13--z14--z15--z16--z17
      --z18--z19--z20--z21--z22--z23--z24--z25--z26--z27--z28--cycle withcolor \MPcolor{k};

    draw fullcircle scaled 2 xyscaled .75cm dashed withdots withpen pencircle scaled 2bp;
    draw fullcircle scaled 5 xyscaled .75cm dashed withdots withpen pencircle scaled 2bp;
  ) shifted (-.0625cm,-4.485cm); draw BintangPecah;
\stopuseMPgraphic

\startuseMPgraphic{dash}
  picture Sengkang; Sengkang := image (
    i := .75cm; a := -6.7cm; b := .36cm; c := -8.5cm; d := 14.25cm;
    drawoptions(dashed oddly)    ; draw ((c,-1.98i)--(d,-1.98i));
    draw ((-9.00i,a)--(-9.00i,b)); draw ((c,-2.98i)--(d,-2.98i));
    draw ((-6.25i,a)--(-6.25i,b)); draw ((c,-3.48i)--(d,-3.48i));
    draw ((-5.25i,a)--(-5.25i,b)); draw ((c,-4.98i)--(d,-4.98i));
    draw ((-3.25i,a)--(-3.25i,b)); draw ((c,-5.98i)--(d,-5.98i));
    draw ((-0.25i,a)--(-0.25i,b)); draw ((c,-6.98i)--(d,-6.98i));
    draw (( 2.25i,a)--( 2.25i,b)); draw ((c,-8.48i)--(d,-8.48i));
    draw (( 5.00i,a)--( 5.00i,b)); draw ((c,-8.98i)--(d,-8.98i));
    draw ((19.00i,a)--(19.00i,b)); draw ((c,-9.98i)--(d,-9.98i));
  ) shifted (.125cm,0); draw Sengkang withpen pencircle scaled .25pt;
\stopuseMPgraphic

\startMPcode
  \includeMPgraphic{grid} \includeMPgraphic{jalur} \includeMPgraphic{anakbulan}
    \includeMPgraphic{bintang} \includeMPgraphic{dash}
\stopMPcode

\stoptext
\stopbuffer

\getbuffer

\page
\typebuffer

\stoptext
\stopenvironment