\setupcolors[state=start]

\setuplayout[width=middle,height=middle,backspace=1cm,topspace=1cm]

\setuptyping[option=TEX]

\startuseMPgraphic{lualogo}
    color   luaplanetcolor ; luaplanetcolor := .5blue  ;
    color   luaholecolor   ; luaholecolor   :=   white ;
    numeric luaextraangle  ; luaextraangle  := 0 ;

    vardef lualogo = image (
        % Graphic design by A. Nakonechnyj. Copyright (c) 1998, All rights reserved.

        save luaorbitcolor, d, r, p ; color luaorbitcolor ; numeric d, r, p ;

        luaorbitcolor := .5luaholecolor ; d := sqrt(2)/4 ; r := 1/4 ; p := r/8 ;

        fill fullcircle scaled 1
            withcolor luaplanetcolor ;
        draw fullcircle rotated 40.5 scaled (1+r)
            dashed evenly scaled p
            withpen pencircle scaled (p/2)
            withcolor luaorbitcolor ;
        fill fullcircle scaled r shifted (d+1/8,d+1/8) rotated luaextraangle
            withcolor luaplanetcolor ;
        fill fullcircle scaled r shifted (d-1/8,d-1/8)
            withcolor luaholecolor   ;
    )  enddef ;
\stopuseMPgraphic

\startuseMPgraphic{luanumber}{a}
    \includeMPgraphic{lualogo}
    luaextraangle := 0 ;
    picture p ; p := lualogo ;
    luaextraangle := \MPvar{a} ;
    draw lualogo ;
    setbounds currentpicture to boundingbox p ;
    currentpicture := currentpicture ysized 3cm ;
\stopuseMPgraphic

\starttext

    \startMPpage[offset=5mm]
        \includeMPgraphic{lualogo}
        draw lualogo xsized 10cm ;
    \stopMPpage

    \startTEXpage[offset=5mm]
        \startcombination[4*3]
            {\useMPgraphic{luanumber}{a=  0}} {}
            {\useMPgraphic{luanumber}{a= 30}} {}
            {\useMPgraphic{luanumber}{a= 60}} {}
            {\useMPgraphic{luanumber}{a= 90}} {}
            {\useMPgraphic{luanumber}{a=120}} {}
            {\useMPgraphic{luanumber}{a=150}} {}
            {\useMPgraphic{luanumber}{a=180}} {}
            {\useMPgraphic{luanumber}{a=210}} {}
            {\useMPgraphic{luanumber}{a=240}} {}
            {\useMPgraphic{luanumber}{a=270}} {}
            {\useMPgraphic{luanumber}{a=300}} {}
            {\useMPgraphic{luanumber}{a=330}} {}
        \stopcombination
    \stopTEXpage

    \typefile{lualogo}

\stoptext
