419
edits
Changes
Jump to navigation
Jump to search
m
input boxes vardef create_wave = path wave; vardef my_metapost_fun wave := (expr var0, 0); % Number of bezier points along the wave. wave_resolution :=20; % Number of full wave cycles. wave_cycles := 2; for x = 0 step (1 / wave_resolution) until 2 wave_cycles: wave := wave ..(x, sin( x * pi )); endfor; % Return the path wave enddef ;
Command/startMPinclusions (view source)
Revision as of 01:32, 8 October 2013
, 01:32, 8 October 2013no edit summary
<texcode>
\startMPinclusions
\stopMPinclusions
\startuseMPgraphic{page:ThemeBackground}
path wave;
wave := create_wave;
draw wave xyscaled( 60, 20 ) withpen pencircle scaled 1mm;
\stopuseMPgraphic
\defineoverlay[page:ThemeBackground][\uniqueMPgraphic{page:ThemeBackground}]
\starttext
\setupbackgrounds[page][background={page:ThemeBackground}]
\startchapter
\input knuth
\stopchapter
\stoptext
</texcode>
