% <<speck-bof:speck-eof>> 

% \setuplanguage[de][lefthyphenmin=2,righthyphenmin=3]

\mainlanguage[de]

\setuplayout[middle]

\definefontfeature[default][default][
  mode=node,
  protrusion=quality,
  expansion=quality,
  onum=yes,pnum=yes]

% \usemodule[simplefonts][size=10pt]

% \setmainfont[Myriad Pro]
% \setmathfont[Cambria]

\setupbodyfont[ss,10pt]

\setupinterlinespace[line=2.6ex]

\definefont[big][Serif at .25\vsize]


%%%% Buffer with quotes

\startbuffer[1]
  Ohne Enthusiasmus keine Mathematik!\hfill \mbox{(J.\,W. von Goethe)}\par
\stopbuffer

\startbuffer[2]
  Es gibt Dinge, die den meisten Menschen unglaublich erscheinen, die
  nicht Mathematik studiert haben.\hfill
  (Archimedes, ca. 285--212 v.\,Chr.) \par 
\stopbuffer

\startbuffer[3]
  Reden lernt man durch Reden. Beweisen lernt man durch Beweisen!\hfill
  \mbox{(mathem. Folklore)}\par
\stopbuffer

\startbuffer[4]
  In der Mathematik gibt es keine Autoritäten. Das einzige Argument
  für die Wahrheit ist der Beweis. \hfill \mbox{(K. Urbanik)}\par
\stopbuffer

\startbuffer[5]
  Die erste Regel, an die man sich in der Mathematik halten muss, ist,
  exakt zu sein. Die zweite Regel ist, klar und deutlich zu sein und
  nach Möglichkeit einfach.\hfill \mbox{(L.\,N.\,M. Carnot)}\par
\stopbuffer

\startbuffer[6]
  Vergesst nicht: Wenn ihr schwimmen lernen wollt, dann geht mutig ins
  Wasser, wenn ihr lernen wollt, Aufgaben zu lösen, dann löst
  sie.\hfill \mbox{(G. Polya)}\par
\stopbuffer

\startbuffer[7]
  Niemand soll uns aus dem Paradies (der Mengentheorie) vertreiben,
  das Cantor für uns erschaffen hat.\hfill \mbox{(D. Hilbert
    1862--1943)}\par
\stopbuffer

\startbuffer[8]
  Wenn $A$ gleich Erfolg ist, dann gilt die Formel $A = x+y+z$; $x$
  ist Arbeit, $y$ ist Vergnügen, $z$ ist Mund halten.\hfill \mbox{(A.
    Einstein 1879--1955)}\par
\stopbuffer

\startbuffer[9]
  Wenn ich unglücklich bin, betreibe ich Mathematik, um glücklich zu
  werden. Wenn ich glücklich bin, betreibe ich Mathematik, um
  glücklich zu bleiben.\hfill \mbox{(Alfred Renyi
    1921--1970)}\par
\stopbuffer

\startbuffer[10]
  Lernen ohne zu denken ist eitel. Denken ohne zu lernen ist
  gefährlich.\hfill (Konfuzius 551--479 v.\,Chr.) \par
\stopbuffer

\startbuffer[11]
  Mathematik ist die Wissenschaft der jungen Leute. Es kann gar nicht
  anders sein. Mathematik ist eine solche Gymnastik für den Verstand,
  dass man dafür die ganze Flexibilität und Ausdauer der Jugend
  benötigt.\hfill \mbox{(N. Wiener 1894--1964)}\par
\stopbuffer

\startbuffer[12]
  Das Leben ist nur für zwei Dinge gut: Mathematik zu entdecken und
  Mathematik zu lernen.\hfill \mbox{(S.-D. Poisson 1781--1840)}\par
\stopbuffer


%%%% text appearappearance

\setupframed[
  width=\dimexpr(.62\hsize/3+2ex),
  align={right,hz,hanging},
  offset=1ex,
  corner=round]


%%%% Lua code from Aditya Mahajan

\startluacode
  userdata = userdata or {}
  
  function userdata.buffers(i)
     local idx = string.format("%s",i)
     local b = buffers.data[idx]
     if b then
        if type(b) == "table" then
           return table.concat(b)
        else
           return b
        end
     else
        return "unknown"
     end
  end
  
  function userdata.draw_buffer(i)
     return
     "draw textext(\"\\framed{\\ignorespaces "
       .. userdata.buffers(i) .. " }\") "
  end
\stopluacode


\startluacode
  context.startuseMPgraphic("boxen")
    context("w:=\the\hsize/3; h:=\the\vsize/4; pair punkt; transform t;")
    context("path box;  box := unitsquare xscaled w yscaled h;")
    
    k = 0
    for i = 1,3 do
      for j = 1,4 do
        k = k + 1
        r = math.random(-10,10)
        context("punkt := (" .. i .. "*w," .. j .. "*h) ;")
        context("t := identity shifted(punkt + center box + (" .. r*2 .. "," .. r*2 ..")) rotatedaround(punkt+center box, " .. r .. ") ;")
        --context("draw box shifted punkt withcolor .5red ;")
        context("draw textext(\"\\big\\gray " .. k .. "\") transformed t ;")
        context(userdata.draw_buffer(k) .. " transformed t ;")
      end
    end
  context.stopuseMPgraphic()
\stopluacode


\defineoverlay[Hintergrund]{\useMPgraphic{boxen}}

\setupbackgrounds[text][background=Hintergrund]


\starttext \showframe


\stoptext

%%% Local Variables: 
%%% mode: context
%%% TeX-master: t
%%% End: 
%<<speck-eof(4 117 -- 213 215 -- 217 227 -- 251 253 -- 255 267 -- 303 319 -- 328 329 -- 401 513 -- 518 2665 -- 2675 2707 -- 2708 2723 -- 2724 2734 -- 2735 2751 -- 2752 2805 -- 2819 3216 -- 3219 3282 -- 3283 3370 -- 3446 3495 -- 3512 3594 -- 3602 3611 -- 3620 3630 -- 3636 3640 -- 3641 3644 -- 3648 3654 -- 3655 3660 -- 3803 3812 -- 3822 3861 -- 3949 3984 -- 4002 4270 --)speck-eof>>
