no mp-cont.mp and Co.

no mp-cont.mp and Co.

[Uwe Koloska]

Hello,

I have just downloaded the context beta from
    http://dvi3.tiepmiep.dk/context/context/beta/cont-tmf.zip
it shows "ConTeXt  ver: 2000.5.31"

By processing a module with
    texexec --pdf --modu --mode=color s-pre-00
it writes a (for my eyes) empty (= no graphics) mprun.mp that looks like

% runtime generated graphic
mpgraph:=0;
input mp-tool ;
input mp-spec ;
_inline_shading_ := true ;
if not known _data_prefix_ : string _data_prefix_ , _data_suffix_ ;
fi ;
_data_prefix_ := "mpd-" ;
_data_suffix_ := ".tmp" ;
input mp-core.mp ;
input mp-page ;
def LoadPageState = scantokens "input mp-state.tmp" ;
enddef ;
;;
mpgraph := 512 ;
input mp-cont ;
end.

The two files "mp-core.mp" and "mp-cont.mp" are not there after a clean
install.  Like Hans suggested, I prepared an empty mp-core.mp ...
But on the titlepage of the module documentation appears in courier:

name: dummy
file: mprun.512
unknown

So I am desperate ...

But there is another annoying fact.  I have demos-en.zip and d-en-all.tex
wants mp-cont.502 as overlay.  This is not present on my system ...
Maybe there is a newer version -- I will try.

More worse, the pdf-links made in \def\ShowSample with
\definereference[sample][d-en-#1::] are turned to uppercase.  For a normal
case sensitive filesystem the files are invisible ...

The pdf-code looks like
    /Subtype /Link /Border [0 0 0] /A <</S /GoToR /F (D-EN-001.PDF) /D [0 /Fit]>>

And last:  I thought the core-fig.tex bug is gone away -- is
http://dvi3.tiepmiep.dk not up to date???  I use this mirror, because it's
very fast compared with www.pragma-ade.nl

Have a nice evening ;-)
Uwe

-- 
mailto:koloska@rcs.urz.tu-dresden.de
http://rcswww.urz.tu-dresden.de/~koloska/
--                                    --
right now the web page is in german only
but this will change as time goes by ;-)

Re: no mp-cont.mp and Co.

[Hans Hagen]

At 07:12 PM 6/10/2000 +0200, you wrote:

>But on the titlepage of the module documentation appears in courier:
>
>name: dummy
>file: mprun.512
>unknown
>
>So I am desperate ...

No reason to be desperate about that. This graphic is only available when I
process the files here, since all the logo's are in our big company logo mp
file, which, as you can understand is not public. The next doc styles btw
will not have that message (but still a graphic, I made a new one, so that
I can recognize what is typeset here -).    

>
>But there is another annoying fact.  I have demos-en.zip and d-en-all.tex
>wants mp-cont.502 as overlay.  This is not present on my system ...
>Maybe there is a newer version -- I will try.

I was not aware of that, you can change the lines in d-en-all.tex around
mp-cont to: 

  \startmode[atpragma]

  \setuptexttexts
    [{\externalfigure[mp-cont.502][height=\textheight]\hfill}]

  \stopmode

>More worse, the pdf-links made in \def\ShowSample with
>\definereference[sample][d-en-#1::] are turned to uppercase.  For a normal
>case sensitive filesystem the files are invisible ...
>
>The pdf-code looks like
>    /Subtype /Link /Border [0 0 0] /A <</S /GoToR /F (D-EN-001.PDF) /D [0
/Fit]>>

\setupreferencing[convertfile=no]

I will make this default soon, the filename conversions is there for
producing cdroms, where iso 9660 only accepts uppercase. Since nowadays
most people use the newer cdrom extensions, any case will do. 

>And last:  I thought the core-fig.tex bug is gone away -- is

Remind me, what bug? 

>http://dvi3.tiepmiep.dk not up to date???  I use this mirror, because it's
>very fast compared with www.pragma-ade.nl

About speed, our web host is supposed to opperate on two 640 mb lines but I
fear their video/audio customers use it up. I'm now thinking of another web
hoster (I've exceeded the capacity anyway). 

Later this year, when adsl has arrived in this small town, I will be more
complete in updating individual files. 

>Have a nice evening ;-)

Sure, 

Hans

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

Re: no mp-cont.mp and Co.

[Uwe Koloska]

Thank you for your precise and satisfying answers!

You wrote on Sam, 10 Jun 2000:
>At 07:12 PM 6/10/2000 +0200, you wrote:
>
>No reason to be desperate about that. This graphic is only available when I
>process the files here, since all the logo's are in our big company logo mp
>file, which, as you can understand is not public. The next doc styles btw
>will not have that message (but still a graphic, I made a new one, so that
>I can recognize what is typeset here -).

Just to sort it out right:
the lines responsible for making metapost create a bunch of logo files are:
   \startMPrun
      mpgraph := #1 ; 
      input mp-cont ; 
   \stopMPrun
and mp-cont.mp is the metapost source of your company graphics -- right?
You know that the logo that you want to place on the frontmatter is
mprun.512.

Is there an example for such a metapost source that produces a bunch of
pictures? 

>
>>And last:  I thought the core-fig.tex bug is gone away -- is
>
>Remind me, what bug? 

"% TOBIAS" and "% TOM"

>
>>Have a nice evening ;-)
>

All this good wishes back to you :-)))

Uwe

-- 
mailto:koloska@rcs.urz.tu-dresden.de
http://rcswww.urz.tu-dresden.de/~koloska/
--                                    --
right now the web page is in german only
but this will change as time goes by ;-)

Re: no mp-cont.mp and Co.

[David Arnold]

[-- Attachment #1: Type: text/plain, Size: 1567 bytes --]

Uwe,

I don't know if this is what you are looking for, but I've attached a
metapost file that I used for the images in a pretest.

If you compile it, then you should get a whole lot of images, named
pretest.1 through pretest.31.

>Thank you for your precise and satisfying answers!
>
>You wrote on Sam, 10 Jun 2000:
>>At 07:12 PM 6/10/2000 +0200, you wrote:
>>
>>No reason to be desperate about that. This graphic is only available when I
>>process the files here, since all the logo's are in our big company logo mp
>>file, which, as you can understand is not public. The next doc styles btw
>>will not have that message (but still a graphic, I made a new one, so that
>>I can recognize what is typeset here -).
>
>Just to sort it out right:
>the lines responsible for making metapost create a bunch of logo files are:
>   \startMPrun
>      mpgraph := #1 ; 
>      input mp-cont ; 
>   \stopMPrun
>and mp-cont.mp is the metapost source of your company graphics -- right?
>You know that the logo that you want to place on the frontmatter is
>mprun.512.
>
>Is there an example for such a metapost source that produces a bunch of
>pictures? 
>
>>
>>>And last:  I thought the core-fig.tex bug is gone away -- is
>>
>>Remind me, what bug? 
>
>"% TOBIAS" and "% TOM"
>
>>
>>>Have a nice evening ;-)
>>
>
>All this good wishes back to you :-)))
>
>Uwe
>
>
>-- 
>mailto:koloska@rcs.urz.tu-dresden.de
>http://rcswww.urz.tu-dresden.de/~koloska/
>--                                    --
>right now the web page is in german only
>but this will change as time goes by ;-)
>
>

[-- Attachment #2: pretest.mp --]
[-- Type: text/plain, Size: 24087 bytes --]

input mp-tool;

prologues:=0;

%pi
numeric pi;
pi:=3.14159;

%cos function for radian input
def cos(expr x)=
 cosd(180/pi*x)
enddef;

%sin function for radian input
def sin(expr x)=
 sind(180/pi*x)
enddef;

%xtick marks
def xtick(expr p)=
 draw ((0,-2pt)--(0,2pt)) shifted p;
enddef;

%ytick marks
def ytick(expr p)=
 draw ((-2pt,0)--(2pt,0)) shifted p;
enddef;

beginfig(1);

%initialize scaling
numeric u;
10u=2in;

%Initialize vertices
pair A, B, C;
A:=(0,0);
B:=(10u,0);
C:=A+whatever*dir(43)=B+whatever*up;

%Draw and label the triangle
draw A--B--C--cycle;
label.llft(btex $A$ etex, A);
label.lrt(btex $B$ etex, B);
label.top(btex $C$ etex, C);
label(btex $43^\circ$ etex, 2u*dir(20));
label.rt(btex $a$ etex, 0.5[B,C]);
label.ulft(btex $b$ etex, 0.5[A,C]);
label.bot(btex $10$ etex, 0.5[A,B]);

endfig;

beginfig(2);

%initialize scaling
numeric u;
10u=2.5in;

%Initialize vertices
pair A, B, C;
A:=(0,0);
C:=(0,5u);
B:=A+whatever*right=C+whatever*dir(-35);

%Draw and label the triangle
draw A--B--C--cycle;
label.llft(btex $A$ etex, A);
label.lrt(btex $B$ etex, B);
label.top(btex $C$ etex, C);
label.urt(btex $10$ etex, 0.5[B,C]);
label.ulft(btex $5$ etex, 0.5[A,C]);
label.bot(btex $c$ etex, 0.5[A,B]);

endfig;

beginfig(3);

%initialize scaling
numeric u;
10u=2in;

%Initialize vertices
pair A, B, C;
A:=(0,0);
C:=A+7u*dir(40);
B:=A+whatever*right=C+whatever*dir(-asin(7*sind(40)/10)*180/pi);

%Draw and label the triangle
draw A--B--C--cycle;
label.llft(btex $A$ etex, A);
label.lrt(btex $B$ etex, B);
label.top(btex $C$ etex, C);
label.urt(btex $10$ etex, 0.5[B,C]);
label.ulft(btex $7$ etex, 0.5[A,C]);
label.bot(btex $c$ etex, 0.5[A,B]);
label(btex $40^\circ$ etex, 1.5u*dir(20));

endfig;

beginfig(4);

%initialize scaling
numeric u;
10u=2.5in;

%Initialize angle mA
numeric mA;
mA:=(acos(60/84))*180/pi;

%Initialize vertices
pair A, B, C;
A:=(0,0);
B:=(6u,0);
C:=A+7u*dir(mA);

%Draw and label the triangle
draw A--B--C--cycle;
label.llft(btex $A$ etex, A);
label.lrt(btex $B$ etex, B);
label.top(btex $C$ etex, C);
label.urt(btex $5$ etex, 0.5[B,C]);
label.ulft(btex $7$ etex, 0.5[A,C]);
label.bot(btex $6$ etex, 0.5[A,B]);

endfig;

beginfig(5);

%initialize scaling
numeric u;
10u=2.5in;

%Initialize vertices
pair A, B, C;
A:=(0,0);
B:=(15u,0);
C:=A+10u*dir(30);

%Draw and label the triangle
draw A--C;
draw A--B;
label.llft(btex $A$ etex, A);
label.lrt(btex $B$ etex, B);
label.top(btex $C$ etex, C);
label.ulft(btex $10$ etex, 0.5[A,C]);
label.urt(btex $30^\circ$ etex, 1u*dir(8));

%Draw and rotate remaining side
pair D;
D:=C+4u*dir(-30);
drawarrow C--D;
label.urt(btex $4$ etex, 0.5[C,D]);
path p;
p:=D{dir(-120)}..(C+4u*down){left}..(C+4u*dir(-150)){dir(-240)};
draw p dashed evenly withcolor red;

%Draw shortest distance across
pair E;
E:=A+whatever*right=C+whatever*down;
draw C--E dashed evenly withcolor green;
label.rt(btex $h$ etex, 0.5[C,E]);

endfig;

beginfig(6);

%initialize scale
numeric u;
200u=2in;

%initialize vertices
pair A, B, C, D;
A:=(0,0);
B=(200u,0);
C:=A+whatever*dir(40)=B+whatever*up;
D:=A+whatever*dir(30)=B+whatever*up;

%Draw and label figure;
draw A--B--C--cycle;
draw A--D;
label.llft(btex $A$ etex, A);
label.lrt(btex $B$ etex, B);
label.rt(btex $D$ etex, D);
label.top(btex $C$ etex, C);
label.rt(btex $x$ etex, 0.5[D,C]);
label.rt(btex $h$ etex, 0.5[D,B]);
label.bot(btex $200$ etex,0.5[A,B]);

%Mark and label angles
path p;
p:=right{up}..dir(30){dir(120)};
drawarrow p scaled 20u;
label.rt(btex $30^\circ$ etex, 20u*dir(20));
p:=right{up}..dir(40){dir(130)};
drawarrow p scaled 50u;
label.rt(btex $40^\circ$ etex, 50u*dir(20));

endfig;

beginfig(7);

%initialize scaling
numeric u;
10u=2in;

%Initialize vertices
pair A, B, C;
A:=(0,0);
B:=(10u,0);
C:=A+7u*dir(44);

%Draw and label the triangle
draw A--B--C--cycle;
label.llft(btex $A$ etex, A);
label.lrt(btex $B$ etex, B);
label.top(btex $C$ etex, C);
label(btex $40^\circ$ etex, 1.5u*dir(20));
label.urt(btex $a$ etex, 0.5[B,C]);
label.ulft(btex $7$ etex, 0.5[A,C]);
label.bot(btex $10$ etex, 0.5[A,B]);

endfig;

beginfig(8);

%Initialize scale
numeric u;
1u=1in;

%Initialize axes
pair x,y;
x:=(1.2u,0);
y:=(0,1.2u);

%draw axes
drawdblarrow (-x)--x;
drawdblarrow (-y)--y;

%draw the unit circle
path p;
p:=fullcircle scaled 2u;
draw p;

%initialize points on the unit circle
z0=(1u,0);
z1=z0 rotated 30;
z2=z0 rotated 45;
z3=z0 rotated 60;
z4=z0 rotated 90;
z5=z0 rotated 120;
z6=z0 rotated 135;
z7=z0 rotated 150;

%auxiliary lines
draw z1--(-z1) dashed evenly withcolor red;
draw z2--(-z2) dashed evenly withcolor red;
draw z3--(-z3) dashed evenly withcolor red;
draw z5--(-z5) dashed evenly withcolor red;
draw z6--(-z6) dashed evenly withcolor red;
draw z7--(-z7) dashed evenly withcolor red;

%label (1,0)
dotlabel.urt(btex $(1,0)$ etex, z0);

%highlight point at 22pi/3
draw (0,0)--(-z3) withcolor blue;
path p;
p:=right{up}..up{left}..left{down}..dir(240){dir(330)};
drawarrow p scaled 0.1u;
picture pic;
pic:=thelabel.ulft(btex $4\pi/3$ etex,0.1u*dir(135));
unfill bbox pic;
draw pic;
dotlabel.llft(btex $(-1/2,-\sqrt3/2)$ etex, -z3);

endfig;

beginfig(9);

%Initialize scale
numeric u;
1u=1in;

%Initialize axes
pair x,y;
x:=(1.2u,0);
y:=(0,1.2u);

%draw axes
drawdblarrow (-x)--x;
drawdblarrow (-y)--y;

%initialize points on the unit circle
z0=(0,0);
z1=(1,0) rotated 160;
z2=(1,0) rotated 20;

%draw and label angle
drawarrow z0--(z1 scaled u) withcolor blue;
path p;
p:=right{up}..up{left}..z1{dir(250)};
drawarrow p scaled 0.1u;
label.urt(btex $\theta$ etex, 0.1u*dir(70));

endfig;

beginfig(10);

%Initialize scale
numeric u;
1u=1in;

%Initialize axes
pair x,y;
x:=(1.2u,0);
y:=(0,1.2u);

%draw axes
drawdblarrow (-x)--x;
drawdblarrow (-y)--y;

%initialize points on the unit circle
z0=(0,0);
z1=(1,0) rotated 160;
z2=(1,0) rotated 20;

%draw and label angle
drawarrow z0--(z1 scaled u) withcolor blue;
drawarrow z0--(z2 scaled u) withcolor red;
path p;
p:=right{up}..z2{dir(110)};
drawarrow p scaled 0.4u;
label.urt(btex $\pi-\theta$ etex, 0.4u*dir(3));

endfig;

beginfig(11);

%Initialize scale
numeric u;
5u=1in;

%Initialize axes
pair x,y;
x:=(5u,0);
y:=(0,5u);

%draw axes
drawdblarrow (-x)--x;
drawdblarrow (-y)--y;

%draw angle
z0=(0,0);
z1=(-3u,-4u);
draw z0--z1 withcolor blue;

%label endpoint
dotlabel.llft(btex $(-3,y)$ etex, z1);

%label radius
label.lrt(btex $5$ etex, 0.5[z0,z1]);

%mark and label angle
path p;
p:=right{up}..up{left}..left{down}..unitvector(z1);
drawarrow p scaled 0.5u;
label.ulft(btex $\theta$ etex, 0.5u*dir(135));

endfig;

beginfig(12);

%Define function to be drawn
def f(expr x)=
 -2*sin(2*x-pi/3)
enddef;

%Declare and initialize viewing window
numeric xmin, xmax, ymin, ymax;
xmin=0;
xmax=2*pi;
ymin=-3.5;
ymax=3.5;

%Declare and initialize scaling variables
numeric ux, uy;
(xmax-xmin)*ux=3in;
(ymax-ymin)*uy=2in;

%Declare and initialize clipping boundary
path q;
q:=(xmin,ymin)--(xmin,ymax)--(xmax,ymax)--(xmax,ymin)--cycle;
q:=q xscaled ux yscaled uy;

%Declare and initialize number of plotted points
numeric N;
N:=500;

%Declare and calculate plotting increment delta x
numeric dx;
dx:=(xmax-xmin)/N;

%Declare and create function path
path p;
p:=(xmin,f(xmin));
for x=xmin step dx until xmax:
 p:=p--(x,f(x));
endfor;
p:=p--(xmax,f(xmax));

%Scale function path
p:=p xscaled ux yscaled uy;

%Clip function path
draw p;
clip currentpicture to q;

%Save and clear the function path
picture pic;
pic:=currentpicture;
clearit;

%Draw and label coordinate axes
draw (xmin*ux,0)--(xmax*ux,0);
label.rt(btex $\theta$ etex,(xmax*ux,0));
drawdblarrow (0,ymin*uy)--(0,ymax*uy);
label.top(btex $y$ etex,(0,ymax*uy));

%Superimpose function plot
draw pic withcolor blue;

%xtick marks
for k=0 step pi/2 until 2*pi:
 xtick((k*ux,0))
endfor;
xtick ((2*pi*ux,0));

%label xticks
label.bot(btex $\pi$ etex, (pi*ux,0));
label.bot(btex $2\pi$ etex, (2*pi*ux,0));

%ytick marks
for k=-3 step 1 until 3:
 ytick((0,k*uy))
endfor;

%label yticks
label.lft(btex $3$ etex, (0,3uy));
label.lft(btex $-3$ etex, (0,-3uy));

endfig;

beginfig(13);

%Define function to be drawn
def f(expr x)=
 -2*cos(2*x)
enddef;

%Declare and initialize viewing window
numeric xmin, xmax, ymin, ymax;
xmin=0;
xmax=2*pi;
ymin=-3.5;
ymax=3.5;

%Declare and initialize scaling variables
numeric ux, uy;
(xmax-xmin)*ux=3in;
(ymax-ymin)*uy=2in;

%Declare and initialize clipping boundary
path q;
q:=(xmin,ymin)--(xmin,ymax)--(xmax,ymax)--(xmax,ymin)--cycle;
q:=q xscaled ux yscaled uy;

%Declare and initialize number of plotted points
numeric N;
N:=500;

%Declare and calculate plotting increment delta x
numeric dx;
dx:=(xmax-xmin)/N;

%Declare and create function path
path p;
p:=(xmin,f(xmin));
for x=xmin step dx until xmax:
 p:=p--(x,f(x));
endfor;
p:=p--(xmax,f(xmax));

%Scale function path
p:=p xscaled ux yscaled uy;

%Clip function path
draw p;
clip currentpicture to q;

%Save and clear the function path
picture pic;
pic:=currentpicture;
clearit;

%Draw and label coordinate axes
draw (xmin*ux,0)--(xmax*ux,0);
label.rt(btex $\theta$ etex,(xmax*ux,0));
drawdblarrow (0,ymin*uy)--(0,ymax*uy);
label.top(btex $y$ etex,(0,ymax*uy));

%Superimpose function plot
draw pic withcolor blue;

%xtick marks
for k=0 step pi/2 until 2*pi:
 xtick((k*ux,0))
endfor;
xtick ((2*pi*ux,0));

%label xticks
label.bot(btex $\pi$ etex, (pi*ux,0));
label.bot(btex $2\pi$ etex, (2*pi*ux,0));

%ytick marks
for k=-3 step 1 until 3:
 ytick((0,k*uy))
endfor;

%label yticks
label.lft(btex $3$ etex, (0,3uy));
label.lft(btex $-3$ etex, (0,-3uy));

endfig;

beginfig(14);

%Define function to be drawn
def f(expr x)=
 sin(x)
enddef;

%Declare and initialize viewing window
numeric xmin, xmax, ymin, ymax;
xmin=-2*pi;
xmax=2*pi;
ymin=-1.5;
ymax=1.5;

%Declare and initialize scaling variables
numeric ux, uy;
(xmax-xmin)*ux=3in;
(ymax-ymin)*uy=2in;

%Declare and initialize clipping boundary
path q;
q:=(xmin,ymin)--(xmin,ymax)--(xmax,ymax)--(xmax,ymin)--cycle;
q:=q xscaled ux yscaled uy;

%Declare and initialize number of plotted points
numeric N;
N:=500;

%Declare and calculate plotting increment delta x
numeric dx;
dx:=(xmax-xmin)/N;

%Declare and create function path
path p;
p:=(xmin,f(xmin));
for x=xmin step dx until xmax:
 p:=p--(x,f(x));
endfor;
p:=p--(xmax,f(xmax));

%Scale function path
p:=p xscaled ux yscaled uy;

%Clip function path
draw p;
clip currentpicture to q;

%Save and clear the function path
picture pic;
pic:=currentpicture;
clearit;

%Draw and label coordinate axes
draw (xmin*ux,0)--(xmax*ux,0);
label.rt(btex $x$ etex,(xmax*ux,0));
drawdblarrow (0,ymin*uy)--(0,ymax*uy);
label.top(btex $y$ etex,(0,ymax*uy));

%Superimpose function plot
draw pic withcolor blue;

%xtick marks
for k=-2*pi step pi/2 until 2*pi:
 xtick((k*ux,0))
endfor;
xtick ((2*pi*ux,0));

%label xticks
label.bot(btex $-2\pi$ etex, (-2*pi*ux,0));
label.top(btex $2\pi$ etex, (2*pi*ux,0));

%ytick marks
for k=-1 step 1 until 1:
 ytick((0,k*uy))
endfor;

%label yticks
label.lft(btex $1$ etex, (0,1uy));
label.lft(btex $-1$ etex, (0,-1uy));

%restrict domain
xmin:=-pi/2;
xmax:=pi/2;
p:=(xmin,f(xmin));
for x=xmin step dx until xmax:
 p:=p--(x,f(x));
endfor;
p:=p--(xmax,f(xmax));

%Scale function path
p:=p xscaled ux yscaled uy;

%draw restricted domain
pickup pencircle scaled 2pt;
draw p withcolor red;
pickup defaultpen;

endfig;

beginfig(15);

%Define function to be drawn
def f(expr x)=
 asin(x)
enddef;

%Declare and initialize viewing window
numeric xmin, xmax, ymin, ymax;
xmin=-1;
xmax=1;
ymin=-2;
ymax=2;

%Declare and initialize scaling variables
numeric ux, uy;
(xmax-xmin)*ux=2in;
(ymax-ymin)*uy=3in;

%Declare and initialize clipping boundary
path q;
q:=(xmin,ymin)--(xmin,ymax)--(xmax,ymax)--(xmax,ymin)--cycle;
q:=q xscaled ux yscaled uy;

%Declare and initialize number of plotted points
numeric N;
N:=500;

%Declare and calculate plotting increment delta x
numeric dx;
dx:=(xmax-xmin)/N;

%Declare and create function path
path p;
p:=(xmin,f(xmin));
for x=xmin step dx until xmax:
 p:=p--(x,f(x));
endfor;
p:=p--(xmax,f(xmax));

%Scale function path
p:=p xscaled ux yscaled uy;

%Clip function path
draw p;
clip currentpicture to q;

%Save and clear the function path
picture pic;
pic:=currentpicture;
clearit;

%Draw and label coordinate axes
draw (xmin*ux,0)--(xmax*ux,0);
label.rt(btex $x$ etex,(xmax*ux,0));
drawdblarrow (0,ymin*uy)--(0,ymax*uy);
label.top(btex $y$ etex,(0,ymax*uy));

%Superimpose function plot
draw pic withcolor blue;

%xtick marks
for k=-1 step 1 until 1:
 xtick((k*ux,0))
endfor;

%label xticks
label.bot(btex $-1$ etex, (-1*ux,0));
label.bot(btex $1$ etex, (1*ux,0));

%ytick marks
ytick((0,asin(1)*uy))
ytick((0,asin(-1)*uy))

%label yticks
label.lft(btex $\pi/2$ etex, (0,(asin(1))*uy));
label.rt(btex $-\pi/2$ etex, (0,(asin(-1))*uy));

endfig;

beginfig(16);

%initialize scaling
numeric u;
3u=1in;

%initialize axes
pair x, y;
x:=(-3u,0);
y:=(0,-3u);

%draw axes
drawdblarrow x--(-x);
drawdblarrow y--(-y);

%initialize endpoints of radius
pair A, B;
z0=(0,0);
z1=(1u,-2u);

%draw and label radius
draw z0--z1 withcolor blue;
label.llft(btex $r$ etex, 0.5[z0,z1]);

%label endpoint
dotlabel.lrt(btex $(1,-2)$ etex, z1);

%draw and label angle
path p;
p:=right{down}..unitvector(z1){dir(angle(z1)-90)};
drawarrow p scaled 0.5u;
label.lrt(btex $\theta$ etex, 0.5u*dir(-30));

endfig;

beginfig(17);

%initialize scaling
numeric u;
3u=1in;

%initialize axes
pair x, y;
x:=(-3u,0);
y:=(0,-3u);

%draw axes
drawdblarrow x--(-x);
drawdblarrow y--(-y);

%initialize endpoints of radius
pair A, B;
z0=(0,0);
z1=(1u,-2u);
z2=(1u,2u);

%draw and label radii
draw z0--z1 withcolor blue;
label.llft(btex $1$ etex, 0.5[z0,z1]);
draw z0--z2 withcolor blue;
label.ulft(btex $1$ etex, 0.5[z0,z2]);

%label endpoint
dotlabel.lrt(btex $(\sqrt{1-u^2},u)$ etex, z1);
dotlabel.urt(btex $(\sqrt{1-u^2},u)$ etex, z2);

%draw and label angle
path p;
p:=right{down}..unitvector(z1){dir(angle(z1)-90)};
drawarrow p scaled 0.5u;
label.lrt(btex $\theta$ etex, 0.5u*dir(-30));
p:=right{up}..unitvector(z2){dir(angle(z2)+90)};
drawarrow p scaled 0.5u;
label.urt(btex $\theta$ etex, 0.5u*dir(30));

endfig;

beginfig(18);

%initialize scaling
numeric u;
10u=2in;

%Initialize vertices
pair A, B, C;
A:=(0,0);
C:=A+7u*dir(40);
B:=A+whatever*right=C+whatever*dir(-asin(7*sind(40)/10)*180/pi);
D:=A+whatever*left=C+whatever*dir(-180+asin(7*sind(40)/10)*180/pi);

%Draw and label the triangle
draw A--B--C--cycle;
label.llft(btex $A$ etex, A);
label.lrt(btex $B$ etex, B);
label.top(btex $C$ etex, C);
label.urt(btex $10$ etex, 0.5[B,C]);
label.lrt(btex $7$ etex, 0.5[A,C]);
label.bot(btex $c$ etex, 0.5[A,B]);
label(btex $40^\circ$ etex, 1.5u*dir(20));

%Draw second possible triangle
draw A--D;
draw C--D;
label.llft(btex $B'$ etex,D);

%draw arc path
path p;
numeric m;
m:=asin(7*sind(40)/10)*180/pi;
p:=dir(-m){dir(-m-90)}..down{left}..dir(-180+m){dir(-270+m)};
draw p scaled 10u shifted C dashed evenly withcolor red;

endfig;

beginfig(19);

%initialize scaling
numeric u;
10u=2in;

%Initialize vertices
pair A, B, C, D;
A:=(0,0);
B:=(10u,0);
C:=A+7u*dir(44);
D:=A+whatever*right=C+whatever*down;

%Draw and label the triangle
draw A--B--C--cycle;
label.llft(btex $A$ etex, A);
label.lrt(btex $B$ etex, B);
label.top(btex $C$ etex, C);
label(btex $40^\circ$ etex, 1.5u*dir(20));
label.urt(btex $a$ etex, 0.5[B,C]);
label.ulft(btex $7$ etex, 0.5[A,C]);
label.bot(btex $10$ etex, 0.5[A,B]);

%draw and label the altitude
draw C--D dashed evenly withcolor red;
label.rt(btex $h$ etex, 0.5[C,D]);
endfig;

beginfig(20);

%Initialize scale
numeric u;
6u=2.25in;

%Initialize axes
pair x,y;
x:=(3u,0);
y:=(0,3u);

%draw axes
drawdblarrow (-x)--x;
drawdblarrow (-y)--y;

%draw angle
z0=(0,0);
z1=(-1u,2u);
draw z0--z1 withcolor blue;

%label endpoint
dotlabel.ulft(btex $(-1,2)$ etex, z1);

%label radius
label.lft(btex $r$ etex, 0.5[z0,z1]);

%mark and label angle
path p;
p:=right{up}..up{left}..unitvector(z1);
drawarrow p scaled 0.5u;
label.urt(btex $\theta$ etex, 0.5u*dir(50));

endfig;

beginfig(21);

%Initialize scale
numeric u;
4u=2.25in;

%Initialize axes
pair x,y;
x:=(2u,0);
y:=(0,2u);

%draw axes
drawdblarrow (-x)--x;
drawdblarrow (-y)--y;

%draw angle
z0=(0,0);
z1=(1u,-1u);
draw z0--z1 withcolor blue;
z2=(-1u,1u);
draw z0--z2 dashed evenly withcolor green;

%label endpoint
dotlabel.lrt(btex $(1,-1)$ etex, z1);
dotlabel.ulft(btex $(-1,1)$ etex, z2);

%label radius
label.llft(btex $r$ etex, 0.5[z0,z1]);

%mark and label angle
path p;
p:=right{down}..unitvector(z1){dir(-45-90)};
drawarrow p scaled 0.5u;
label.rt(btex $\theta$ etex, 0.5u*dir(-22));

endfig;

beginfig(22);

%Initialize scale
numeric u;
1u=1in;

%Initialize axes
pair x,y;
x:=(1.2u,0);
y:=(0,1.2u);

%draw axes
drawdblarrow (-x)--x;
drawdblarrow (-y)--y;

%draw the unit circle
path p;
p:=fullcircle scaled 2u;
draw p;

%initialize points on the unit circle
z0=(1u,0);
z1=z0 rotated 135;
z2=z0 rotated 315;

%auxiliary line
draw z1--z2 dashed evenly withcolor red;

%label locations
dotlabel.ulft(btex $(-\sqrt2/2,\sqrt2/2)$ etex, z1);
dotlabel.lrt(btex $(\sqrt2/2,-\sqrt2/2)$ etex, z2);

endfig;

beginfig(23);

%Initialize scale
numeric u;
1u=1in;

%Initialize axes
pair x,y;
x:=(1.2u,0);
y:=(0,1.2u);

%draw axes
drawdblarrow (-x)--x;
drawdblarrow (-y)--y;

%draw the unit circle
path p;
p:=fullcircle scaled 2u;
draw p;

%initialize points on the unit circle
z0=(0,0);
z1=(1u,0) rotated 30;
z2=(1u,0) rotated 150;
z3=(1u,0) rotated 270;

%auxiliary lines
draw z0--z1 dashed evenly withcolor red;
draw z0--z2 dashed evenly withcolor red;
draw z0--z3 dashed evenly withcolor red;

%label z1, z2, z3
dotlabel.urt(btex $(\sqrt3/2,1/2)$ etex, z1);
dotlabel.ulft(btex $(-\sqrt3/2,1/2)$ etex, z2);
dotlabel.llft(btex $(0,-1)$ etex, z3);

endfig;

beginfig(24);

%Initialize scale
numeric u;
6u=2.25in;

%Initialize axes
pair x,y;
x:=(3u,0);
y:=(0,3u);

%draw axes
drawdblarrow (-x)--x;
drawdblarrow (-y)--y;

%draw angle
z0=(0,0);
z1=(-sqrt(2)*2u,1u);
draw z0--z1 withcolor blue;

%label endpoint
dotlabel.ulft(btex $(x,1)$ etex, z1);

%label radius
label.llft(btex $3$ etex, 0.5[z0,z1]);

%mark and label angle
path p;
p:=right{up}..up{left}..unitvector(z1);
drawarrow p scaled 0.5u;
label.urt(btex $\theta$ etex, 0.5u*dir(50));

endfig;

beginfig(25);

%Initialize scale
numeric u;
6u=2.25in;

%Initialize axes
pair x,y;
x:=(3u,0);
y:=(0,3u);

%draw axes
drawdblarrow (-x)--x;
drawdblarrow (-y)--y;

%draw angle
z0=(0,0);
z1=(2u,2u);
drawarrow z0--z1 withcolor blue;

%label endpoint
label.urt(btex $(a,b)$ etex, z1);

%label radius
label.ulft(btex $r$ etex, 0.5[z0,z1]);

%mark and label angle
path p;
p:=right{up}..unitvector(z1);
drawarrow p scaled 0.5u;
label.rt(btex $\theta$ etex, 0.5u*dir(30));

endfig;

beginfig(26);

%Initialize scale
numeric u;
6u=2.25in;

%Initialize axes
pair x,y;
x:=(3u,0);
y:=(0,3u);

%draw axes
drawdblarrow (-x)--x;
drawdblarrow (-y)--y;

%draw angle
z0=(0,0);
z1=(1u,sqrt(3)*u);
drawarrow z0--z1 withcolor blue;

%label endpoint
label.urt(btex $(1,\sqrt3)$ etex, z1);

%label radius
label.ulft(btex $r$ etex, 0.5[z0,z1]);

%mark and label angle
path p;
p:=right{up}..unitvector(z1);
drawarrow p scaled 0.5u;
label.rt(btex $\theta$ etex, 0.5u*dir(30));

endfig;

beginfig(27);

%Initialize scale
numeric u;
6u=2.25in;

%Initialize axes
pair x,y;
x:=(3u,0);
y:=(0,4u);

%draw axes
drawdblarrow (-x)--x;
drawdblarrow (-y)--y;

%scale axes
for k=-2 step 1 until 2:
 xtick((k*u,0));
endfor;
for k=-3 step1 until 3:
 ytick((0,k*u));
endfor;

%draw ellipse
path p;
p:=fullcircle xscaled 4u yscaled 6u;
draw p withcolor blue;

%initialize center, vertex, focus
z0=(0,0);
z1=(-2u,0);
z2=(0,sqrt(5)*u);

%draw and label triangle
pickup pencircle scaled 2pt;
draw z0--z1--z2--cycle withcolor red;
pickup defaultpen;
label.bot(btex $b$ etex, 0.5[z0,z1]);
label.ulft(btex $a$ etex, 0.5[z1,z2]);
label.rt(btex $c$ etex, 0.5[z0,z2]);

endfig;

beginfig(28);

%Define function to be drawn
def f(expr x)=
 sqrt(-4*x)
enddef;

%Declare and initialize viewing window
numeric xmin, xmax, ymin, ymax;
xmin=-5;
xmax=5;
ymin=-5;
ymax=5;

%Declare and initialize scaling variables
numeric ux, uy;
(xmax-xmin)*ux=2.5in;
(ymax-ymin)*uy=2.5in;

%Declare and initialize clipping boundary
path q;
q:=(xmin,ymin)--(xmin,ymax)--(xmax,ymax)--(xmax,ymin)--cycle;
q:=q xscaled ux yscaled uy;

%Declare and initialize number of plotted points
numeric N;
N:=500;

%Declare and calculate plotting increment delta x
numeric dx;
dx:=(xmax-xmin)/N;

%Declare and create function path
path p;
p:=(xmin,f(xmin));
for x=xmin step dx until 0:
 p:=p--(x,f(x));
endfor;
p:=p--(0,f(0));

%Scale function path
p:=p xscaled ux yscaled uy;

%Clip function path
draw p;
draw p reflectedabout ((-1,0),(1,0));
clip currentpicture to q;

%Save and clear the function path
picture pic;
pic:=currentpicture;
clearit;

%Draw and label coordinate axes
drawdblarrow (xmin*ux,0)--(xmax*ux,0);
label.rt(btex $x$ etex,(xmax*ux,0));
drawdblarrow (0,ymin*uy)--(0,ymax*uy);
label.top(btex $y$ etex,(0,ymax*uy));

%Superimpose function plot
draw pic withcolor blue;

%xtick marks
for k=-5 step 1 until 5:
 xtick((k*ux,0))
endfor;

%ytick marks
for k=-5 step 1 until 5:
 ytick((0,k*uy))
endfor;

%label the focus
dotlabel.llft(btex $F(-1,0)$ etex, (-1ux,0));

%draw the directrix
drawdblarrow (1ux,-5uy)--(1ux,5uy) withcolor red;
label.lrt(btex $x=1$ etex, (1ux,-5uy));
endfig;

beginfig(29);

%Define function to be drawn
def f(expr x)=
 sqrt(-4*x-8)
enddef;

%Declare and initialize viewing window
numeric xmin, xmax, ymin, ymax;
xmin=-5;
xmax=5;
ymin=-5;
ymax=5;

%Declare and initialize scaling variables
numeric ux, uy;
(xmax-xmin)*ux=2.5in;
(ymax-ymin)*uy=2.5in;

%Declare and initialize clipping boundary
path q;
q:=(xmin,ymin)--(xmin,ymax)--(xmax,ymax)--(xmax,ymin)--cycle;
q:=q xscaled ux yscaled uy;

%Declare and initialize number of plotted points
numeric N;
N:=500;

%Declare and calculate plotting increment delta x
numeric dx;
dx:=(xmax-xmin)/N;

%Declare and create function path
path p;
p:=(xmin,f(xmin));
for x=xmin step dx until -2:
 p:=p--(x,f(x));
endfor;
p:=p--(-2,f(-2));

%Scale function path
p:=p xscaled ux yscaled uy;

%Clip function path
draw p;
draw p reflectedabout ((-1,0),(1,0));
clip currentpicture to q;

%Save and clear the function path
picture pic;
pic:=currentpicture;
clearit;

%Draw and label coordinate axes
drawdblarrow (xmin*ux,0)--(xmax*ux,0);
label.rt(btex $x$ etex,(xmax*ux,0));
drawdblarrow (0,ymin*uy)--(0,ymax*uy);
label.top(btex $y$ etex,(0,ymax*uy));

%Superimpose function plot
draw pic withcolor blue;

%xtick marks
for k=-5 step 1 until 5:
 xtick((k*ux,0))
endfor;

%ytick marks
for k=-5 step 1 until 5:
 ytick((0,k*uy))
endfor;

%label the focus
dotlabel.llft(btex $F(-3,0)$ etex, (-3ux,0));

%draw the directrix
drawdblarrow (-1ux,-5uy)--(-1ux,5uy) withcolor red;
label.lrt(btex $x=-1$ etex, (-1ux,-5uy));
endfig;

beginfig(30);

%initialize the scale
numeric u;
10u=2.5in;

%draw the rectangle
draw (-2u,-1u)--(2u,-1u)--(2u,1u)--(-2u,1u)--cycle withcolor
red dashed evenly;

%draw the asymptotes
z0=(5u,5/2*u);
draw -z0--z0 withcolor blue;
z1=(-5u,5/2*u);
draw -z1--z1 withcolor blue;

%grab current picture
picture pic;
pic:=currentpicture;
clearit;

%initialize axes
pair x, y;
x=(5u,0);
y=(0,5u);

%draw and label the axes
drawdblarrow -x--x;
drawdblarrow -y--y;
label.rt(btex $x$ etex, x);
label.top(btex $y$ etex, y);

%scale the axes
for k=-5 step 1 until 5:
 xtick((k*u,0));
endfor;
for k=-5 step 1 until 5:
 ytick((0,k*u));
endfor;

draw pic;

endfig;

beginfig(31);

%initialize the scale
numeric u;
10u=2.5in;

%draw the rectangle
draw (-2u,-1u)--(2u,-1u)--(2u,1u)--(-2u,1u)--cycle withcolor
red dashed evenly;

%draw the asymptotes
z0=(5u,5/2*u);
draw -z0--z0 withcolor blue;
z1=(-5u,5/2*u);
draw -z1--z1 withcolor blue;

%grab current picture
picture pic;
pic:=currentpicture;
clearit;

%initialize axes
pair x, y;
x=(5u,0);
y=(0,5u);

%draw and label the axes
drawdblarrow -x--x;
drawdblarrow -y--y;
label.rt(btex $x$ etex, x);
label.top(btex $y$ etex, y);

%scale the axes
for k=-5 step 1 until 5:
 xtick((k*u,0));
endfor;
for k=-5 step 1 until 5:
 ytick((0,k*u));
endfor;

draw pic shifted (1u,-1u);

endfig;

end

[-- Attachment #3: Type: text/plain, Size: 287 bytes --]

-
David Arnold
College of the Redwoods
Mathematics Department
7351 Tompkins Hill Road
Eureka, CA 95501
(707) 476-4222

My Home Page
http://online.redwoods.cc.ca.us/instruct/darnold/index.htm

Ordinary Differential Equations Using Matlab
http://www.prenhall.com/books/esm_0130113816.html

Re: no mp-cont.mp and Co.

[Hans Hagen]

At 05:37 PM 6/12/2000 +0200, Uwe Koloska wrote:

>Just to sort it out right:
>the lines responsible for making metapost create a bunch of logo files are:
>   \startMPrun
>      mpgraph := #1 ; 
>      input mp-cont ; 
>   \stopMPrun
>and mp-cont.mp is the metapost source of your company graphics -- right?
>You know that the logo that you want to place on the frontmatter is
>mprun.512.
>
>Is there an example for such a metapost source that produces a bunch of
>pictures? 

This mpgraph := #1 ; is a local trick, where if 'known' a predefined
graphic is selected from a file; a big if .. else thing. 

You can change this code to for instance

\startuseMPgraphic{dummy}
draw fullcircle scaled 300 withpen pencircle scaled 20 ; 
\stopuseMPgraphic 
\useMPgraphic{dummy}

I'm working on a dedicated manual on mp graphics (in context and general)
as well as a collection of predefined backgrounds and buttons and so. 

>>Remind me, what bug? 
>
>"% TOBIAS" and "% TOM"

indeed removed here. 

Hans

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