Trouble constructing a drawer rail with MP

[Willi Egger <context@boede.nl>]

[-- Attachment #1.1: Type: text/plain, Size: 398 bytes --]

Hello MP Gurus!

I wanted to make a technical drawing. However the enclosed mwe does not give me the required results.

While the vector from point 1 is directing in the desired direction of 194 degrees, the second vector from point 2 does not as defined point in the direction of 166 degrees.

What am I doing wrong here?


Thanks for pointing me into the right direction :-)

Willi


[-- Attachment #1.2.1: Type: text/html, Size: 732 bytes --]

[-- Attachment #1.2.2: test-rail.pdf --]
[-- Type: application/pdf, Size: 5237 bytes --]

[-- Attachment #1.2.3: Type: text/html, Size: 235 bytes --]

[-- Attachment #1.2.4: test-rail.tex --]
[-- Type: application/octet-stream, Size: 850 bytes --]


\startuniqueMPgraphic{Rail}
	path p[];
	pair Pkt[];
	
	p[100] := unitsquare xscaled 15mm yscaled 50mm;
	p[101] := (lrcorner p[100]--urcorner p[100]) shifted (-5mm,0) ;
	
	Pkt[1] := point 1.2 of p[100];
	Pkt[2] := point 1.8 of p[100];
	
	p[102] := Pkt[1]--dir(194)*10mm;
	
	Pkt[3] := p[102] intersectionpoint p[101];
	
	p[103] := Pkt[2]--dir(166)*10mm;
	
	Pkt[4] := p[103] intersectionpoint p[101];
	
	p[104] := lrcorner p[100]--Pkt[1]--Pkt[3]--Pkt[4]--Pkt[2]--urcorner p[100];
	
	draw p[104];
	
	draw p[100];
	draw p[101] dashed withdots;

	for i = 1 upto 4 :
	 draw Pkt[i] withpen pencircle scaled 3pt withcolor red;
  endfor;
	
	label.lft(textext("Pkt 2"),Pkt[3]);
	label.lft(textext("Pkt 4"),Pkt[4]);
	label.rt(textext("Pkt 1"), Pkt[1]);
	label.rt(textext("Pkt 2"), Pkt[2]);
\stopuniqueMPgraphic

\startTEXpage

	\useMPgraphic{Rail}

\stopTEXpage

[-- Attachment #1.2.5: Type: text/html, Size: 243 bytes --]

[-- Attachment #2: Type: text/plain, Size: 493 bytes --]

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________