4

I want to draw a line that goes from A to the point where a line from C in the direction of B would intersect a line parallel to A--B, but some distance away from it (on the opposite side to point C).

This should be possible regardless of the positions of A, B, and C.

\documentclass[tikz]{standalone}

\usepackage{tikz}
\usetikzlibrary{calc}
\usetikzlibrary{decorations.markings}
\usetikzlibrary{decorations.pathmorphing}
\usetikzlibrary{decorations.pathreplacing}
\usetikzlibrary{decorations.shapes}
\usetikzlibrary{intersections}
\usetikzlibrary{positioning}
\usetikzlibrary{patterns}
\usepgflibrary{arrows.meta}
\usetikzlibrary{bending}
\usetikzlibrary{angles}
\usetikzlibrary{hobby}

\begin{document}
\begin{tikzpicture}
  \coordinate (A) at (0, 0);
  \coordinate (B) at (2, 0);
  \coordinate (C) at (5, 2);

  \coordinate (below) at (0, -1);

  \fill[white] ($(A) + (below) - (0.5, 0.5)$) -| ($(C) + (0.5, 0.5)$) -| cycle;

  \node[outer sep=0pt,circle, fill,inner sep=1.5pt,label={[fill=white]below:$A$}] at (A) {};
  \node[outer sep=0pt,circle, fill,inner sep=1.5pt,label={[fill=white]below:$B$}] at (B) {};
  \node[outer sep=0pt,circle, fill,inner sep=1.5pt,label={[fill=white]below:$C$}] at (C) {};

  \path[name path=CB] (C) -- ($(B)!-2cm!(C)$);
  \path[name path=edge] (below) -- ++(7, 0);
  \draw[blue, line width=1pt, name intersections={of=CB and edge}] (A) -- (intersection-1) -- (C);


\end{tikzpicture}
\end{document}

Using the path extension, as per this answer, sometimes works but I don't want to manually specify the extension distance. Is there a better way?

UPDATE The way I've worded the above is heading rather close to an x-y problem, so what I want is to essentially draw the straight line equivalent of the hobby curve (red) in this image (and others like it, but more complex):

Deflection diagram

If I move Point P (or P-bend, as it is called in the code below), the other straight lines should also move, but they should always go from A through B and C to D, as per the orange line/filled area. There may be additional nodes along the original horizontal line, and that line itself may not always be horizontal. All I just need are the points where the orange line would change direction, and then to draw a single straight line between them all. It can be simplified to the original example, and then the line just requires one additional parameter for the distance between A--B and the point where it changes direction (AB'), and again for the distance between C--D and CD'. In this example AB' and CD' are the same distance from A--D, but this may not always be the case.

\documentclass[tikz]{standalone}

\usepackage{tikz}
\usetikzlibrary{calc}
\usetikzlibrary{decorations.markings}
\usetikzlibrary{decorations.pathmorphing}
\usetikzlibrary{decorations.pathreplacing}
\usetikzlibrary{decorations.shapes}
\usetikzlibrary{intersections}
\usetikzlibrary{positioning}
\usetikzlibrary{patterns}
\usepgflibrary{arrows.meta}
\usetikzlibrary{bending}
\usetikzlibrary{angles}
\usetikzlibrary{hobby}

\tikzset{%
  dim edge/.style={%
    densely dashed, line width=0.5pt, shorten >= -2.5mm, color=black!75!white
  },
  dim length/.style={
    draw, line width=0.5pt, arrows={Stealth-Stealth}, 
    every node/.style={above=2pt, midway, fill=white, node font=\footnotesize, inner sep=1pt},
  },
  force/.style={draw, line width=1pt, arrows = {Stealth-}},   % Force with arrow tip at start
  force'/.style={draw, line width=1pt, arrows = {-Stealth}},  % Force with arrow tip at end
  pin support/.pic={
    \filldraw[line width=1pt, fill=white] (0, 0) -- ++(0.2,-0.5) -- ++(-0.4, 0) -- cycle;
    \filldraw[line width=1pt, fill=white] (0, 0) circle[radius=0.10];
    \fill[black!20] (-0.4, -0.5) -- ++(0.8, 0) -- ++(0, -0.4) -- ++(-0.8, 0) -- cycle;
    \draw[line width=1pt] (-0.4, -0.5) -- ++(0.8, 0);
  },
  roller support/.pic={
    \filldraw[line width=1pt, fill=white] (0, 0) -- ++(0.2,-0.30) -- ++(-0.4, 0) -- cycle;
    % \filldraw[line width=1pt, fill=white] (0, 0) circle[radius=0.10];
    \filldraw[line width=1pt, fill=white] (-0.10, -0.4) circle[radius=0.10];
    \filldraw[line width=1pt, fill=white] (0.10, -0.4) circle[radius=0.10];
    \fill[black!20] (-0.4, -0.5) -- ++(0.8, 0) -- ++(0, -0.4) -- ++(-0.8, 0) -- cycle;
    \draw[line width=1pt] (-0.4, -0.5) -- ++(0.8, 0);
  },
  fixed support/.pic={
    \fill[black!20] (-0.4, 0) -- ++(0.8, 0) -- ++(0, -0.4) -- ++(-0.8, 0) -- cycle;
    \draw[line width=1pt] (-0.4, 0) -- ++(0.8, 0);
  },
  pin connection/.pic={
    \draw[line width=1pt, fill=white,pic actions] (0, 0) circle[radius=0.10];
  },
  fixed connection/.pic={
    \path[pic actions] (0, 0) -- (0.25, 0) -- (0, -0.25) -- cycle;
  },
}

\begin{document}
\begin{tikzpicture}
  \coordinate (A) at (0, 0);
  \coordinate (D) at ($(A) + (8, 0)$);
  \coordinate (B) at ($(A)!0.3!(D)$);
  \coordinate (C) at ($(A)!0.7!(D)$);
  \path pic at (B) {roller support};
  \path pic at (C) {roller support};
  \draw[line width=3pt, blue!75] (A) -- (D);
  \path pic at (A) {pin support};
  \path pic at (D) {pin support} ;
  \node[above=1mm] at (A) {$A$};
  \node[above=1mm] at (B) {$B$};
  \node[above=1mm] at (C) {$C$};
  \node[above=1mm] at (D) {$D$};
  \draw[force] ($(A)!0.5!(D)$) -- ++(0, 1) node[above] {\textbf{P}};

  % Deflection
  \draw[force', red] (A) -- ++(0, -1) node[below] {$V_A$};
  \draw[force, red] (B) -- ++(0, -1) node[below] {$V_B$};
  \draw[force, red] (C) -- ++(0, -1) node[below] {$V_C$};
  \draw[force', red] (D) -- ++(0, -1) node[below] {$V_D$};
  \draw[red, line width=1pt] (A) to[curve through={(B) .. ($(B)!0.5!(C) - (0, 0.5)$) .. (C)}] (D);

  % Bending moment
  \coordinate (A-bend) at ($(A) - (0, 4)$);
  \coordinate (B-bend) at ($(B) - (0, 4)$);
  \coordinate (C-bend) at ($(C) - (0, 4)$);
  \coordinate (D-bend) at ($(D) - (0, 4)$);
  \coordinate (P-bend) at ($(B-bend)!0.5!(C-bend) + (0, 1)$);

  \path[name path=Pline] ($(B-bend)!-2cm!(P-bend)$) -- (P-bend) -- ($(C-bend)!-2cm!(P-bend)$);
  \path[name path=xline] ($(A-bend) - (0, 0.5)$) -- ($(D-bend) - (0, 0.5)$);

  \draw[line width=1pt] (A-bend) -- (D-bend);
  \draw[orange, line width=1.5pt, fill=orange!50, name intersections={of=Pline and xline}] (A-bend) -- (intersection-1) -- (P-bend) -- (intersection-2) -- (D-bend);
  % \draw[purple, line width=1.5pt, fill=purple!50] (A-bend) -- ($(B-bend)!(A-bend)!(P-bend)$) -- (P-bend) -- ($(P-bend)!(D-bend)!(C-bend)$) -- (D-bend);

  \node[above=1mm] at (A-bend) {$A'$};
  \node[above=1mm] at (B-bend) {$B'$};
  \node[above=1mm] at (C-bend) {$C'$};
  \node[above=1mm] at (D-bend) {$D'$};
  \node[above=1mm] at (P-bend) {$P'$};
  \node[below=1mm] at (intersection-1) {$AB'$};
  \node[below=1mm] at (intersection-2) {$CD'$};

\end{tikzpicture}
\end{document}
5
  • 1
    Can you maybe draw what you want? Because your blue line is possible directly via \draw (C) -- ($(C)!(A)!(B)$) -- (A);
    – percusse
    Commented May 22, 2018 at 16:19
  • I want to customise the perpendicular distance between A--B and the point where the line changes direction. At the moment I'm using the imaginary path edge to create the intersections, but this won't work in larger, more complex examples.
    – Robbie
    Commented May 22, 2018 at 23:46
  • Is the question still open? Considering the provided a answers. Commented Feb 5, 2020 at 14:42
  • @Dr.ManuelKuehner I don't even remember what I was trying to do with this code, so I don't know if either of the answers did what I wanted to achieve.
    – Robbie
    Commented Feb 6, 2020 at 6:31
  • That's bad for the people who put effort in helping you. Commented Feb 6, 2020 at 6:36

2 Answers 2

3

The problem with the above is that some distances are hard coded and hence it does not find the intersections. In this code, I take into account the distances, and build some generous auxiliary paths, which however do not affect the bounding box.

\documentclass[tikz,border=3.14mm]{standalone}
\usetikzlibrary{calc}
\usetikzlibrary{intersections}
% none of those are needed
% \usetikzlibrary{decorations.markings}
% \usetikzlibrary{decorations.pathmorphing}
% \usetikzlibrary{decorations.pathreplacing}
% \usetikzlibrary{decorations.shapes}
% \usetikzlibrary{positioning}
% \usetikzlibrary{patterns}
% \usepgflibrary{arrows.meta}
% \usetikzlibrary{bending}
% \usetikzlibrary{angles}
% \usetikzlibrary{hobby}

\begin{document}
\begin{tikzpicture}
  \pgfmathsetmacro{\Dist}{-3cm} % <- this is the distance of the line
  \coordinate (A) at (-2, 0);
  \coordinate (B) at (2, 0);
  \coordinate (C) at (5, 2);

  \coordinate (below) at (0, -1);

  \fill[white] ($(A) + (below) - (0.5, 0.5)$) -| ($(C) + (0.5, 0.5)$) -| cycle;

  \node[outer sep=0pt,circle, fill,inner sep=1.5pt,label={[fill=white]below:$A$}] at (A) {};
  \node[outer sep=0pt,circle, fill,inner sep=1.5pt,label={[fill=white]below:$B$}] at (B) {};
  \node[outer sep=0pt,circle, fill,inner sep=1.5pt,label={[fill=white]below:$C$}] at (C) {};

  \begin{pgfinterruptboundingbox}
  \path[name path global=CB] let \p1 = ($(A)-(B)$), \n1 = 
  {veclen(\x1,\y1)+abs(\Dist)*1pt} 
  in (C) -- ($(B)!-\n1!(C)$);
  \path[name path global=ABparallel]  let \p1 = ($(A)-(C)$), 
  \p2= ($(A)-(B)$), \n1 = 
  {veclen(\x1,\y1)+abs(\Dist)*1pt}, \n2={veclen(\x2,\y2)} 
  in \pgfextra{\typeout{\n1,\n2}}
  coordinate (aux1) at ($(B)+{\n1/\n2}*(A)-{\n1/\n2}*(B)$)
  coordinate (aux2) at ($(A)+{\n1/\n2}*(B)-{\n1/\n2}*(A)$)
   ($(aux1)!{\Dist*1pt}!90:(aux2)$)  --($(aux2)!{\Dist*1pt}!-90:(aux1)$);
  \end{pgfinterruptboundingbox}
  \draw[blue, line width=1pt, name intersections={of=CB and ABparallel}] (A) -- (intersection-1) -- (C);
%  \draw[red,line width=1pt,dashed] (C) -- ($(C)!(A)!(B)$) -- (A);
\end{tikzpicture}
\end{document}

enter image description here

2

It sounds like a geometry exercise, if that's the case, the tkz-euclide package can help you with your macros, although the manual is in French, but the code is understandable because nemonics are in English, so you have for example the macros for define points relative to a segment \tkzDefPointWith[linear,K=-0.25](B,C)\tkzGetPoint{E}, which may be outside or \tkzDefPointWith[linear,K=0.25](B,C)\tkzGetPoint{D} inside, what I did not find is how to generate a parallel line at a certain distance, for that reason use the basic coordinate calculations of tikz \coordinate (m) at ($(A)!-2.5cm!90:(B)$);, to find a point perpendicular to a line to a certain distance.

RESULT: for A in (0,1) enter image description here

RESULT: for A in (0,0)

enter image description here

MWE:

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% By J. Leon V.  coded based on the BSD, MIT, Beerware licences.
\documentclass[border=2mm]{standalone}
\usepackage{xcolor}
\usepackage{tkz-euclide}
\usetikzlibrary{calc}
\usetkzobj{all}

\begin{document}
    \begin{tikzpicture}
    % Set limits.
    \tkzInit[xmax=7,xmin=-2,ymax=4, ymin=-3.5]
    \tkzGrid[sub,color=blue!20!,subxstep=.5,subystep=.5]
    \tkzClip

    %Define principal points.
    \tkzDefPoint(0,0){A} 
    \tkzDefPoint(2,0){B}
    \tkzDefPoint(5,2){C}

    %Label the points
    \tkzLabelPoints[color=blue,above=5pt](A,B,C)

    %Get some points by euclide package macros
    \tkzDefPointWith[linear,K=0.25](B,C)\tkzGetPoint{D} % You can get an specific point in BC , point D
        %Label the point
        \tkzLabelPoints[color=blue,above=5pt](D)
        %Label the segments
        \tkzLabelSegment[below right=0pt](B,D){\tiny 0.25}
        \tkzLabelSegment[below right=0pt](D,C){\tiny 0.75}

    \tkzDefPointWith[linear,K=-0.25](B,C)\tkzGetPoint{E} % You can get a line projection outside BC, Point E
        %Label the point
        \tkzLabelPoints[color=blue,above=5pt](E)

    \tkzDefPointWith[linear,K=1.25](B,C)\tkzGetPoint{G} % You can get a line projection outside BC, Point G
        %Label the point
        \tkzLabelPoints[color=blue,above=5pt](G)

    %Get an auxiliary points
    \coordinate (m) at ($(A)!-2.5cm!90:(B)$); % m its a 2cm perpendicular point.
    \tkzDefLine[parallel=through m](A,B) \tkzGetPoint{n}  % Obtain n point on the paralel line AB line throught m

    %Get desired point
    \tkzInterLL(m,n)(B,C) \tkzGetPoint{F} %  Obtain point F, the intersection between m-n and B-C 
        %Label the point
        \tkzLabelPoints[color=blue,below=5pt](F)

    % Draw all the segments
    \tkzDrawSegment[very thick](B,C)
    \tkzDrawSegment[very thick, blue!50](A,E)
    \tkzDrawSegment[very thick, blue](A,F)
    \tkzDrawSegment[dashed, red](B,n)
    \tkzDrawSegments[dashed](B,F C,G)
    \tkzDrawLine[dashed,add=.5 and 1](A,B)% add increments line .5 before and 1 after.
    \tkzDrawLine[dashed,add=.5 and 1](m,n)
    %Draw the points
    \tkzDrawPoints[fill=white,size=7pt](A,B,C) % Principals
    \tkzDrawPoints[fill=green,size=7pt](D,E,G) % Calculated by macros
    \tkzDrawPoints[fill=red,size=10pt](F) % Desired point
    \tkzLabelSegment[below right=0pt](n,B){\tiny 2.5cm}% put a label in segment
    \tkzMarkRightAngle[fill=red,color=red](F,n,B) % Draw 90 degre angle as square


    \end{tikzpicture}
\end{document}

You must log in to answer this question.

Not the answer you're looking for? Browse other questions tagged .