Is there an wasy way to program in Tikz something like the one in the image?Drawing hexagonsIs there something like providetikzstyle similar to providecommand?Increase the thickness of node border in TikZHow to define the default vertical distance between nodes?To wrap the external lines so that it can touch the perimeterHow to draw points in TikZ?TikZ: Drawing an arc from an intersection to an intersectionRelative transparency in TikZ?Line up nested tikz enviroments or how to get rid of themMarking a point on parabola (like ellipse)Is there an efficient way to edit the following UML

Perfect riffle shuffles

Installing PowerShell on 32-bit Kali OS fails

Is it okay / does it make sense for another player to join a running game of Munchkin?

What to do when my ideas aren't chosen, when I strongly disagree with the chosen solution?

Pronouncing Homer as in modern Greek

Can I use my Chinese passport to enter China after I acquired another citizenship?

Why isn't KTEX's runway designation 10/28 instead of 9/27?

Is there an Impartial Brexit Deal comparison site?

The One-Electron Universe postulate is true - what simple change can I make to change the whole universe?

Organic chemistry Iodoform Reaction

Word describing multiple paths to the same abstract outcome

Latex for-and in equation

What do you call the infoboxes with text and sometimes images on the side of a page we find in textbooks?

Invariance of results when scaling explanatory variables in logistic regression, is there a proof?

Resetting two CD4017 counters simultaneously, only one resets

Female=gender counterpart?

Can I rely on these GitHub repository files?

Can the electrostatic force be infinite in magnitude?

A workplace installs custom certificates on personal devices, can this be used to decrypt HTTPS traffic?

Can a Bard use an arcane focus?

node command while defining a coordinate in TikZ

Could solar power be utilized and substitute coal in the 19th century?

What (else) happened July 1st 1858 in London?

Are Warlocks Arcane or Divine?



Is there an wasy way to program in Tikz something like the one in the image?


Drawing hexagonsIs there something like providetikzstyle similar to providecommand?Increase the thickness of node border in TikZHow to define the default vertical distance between nodes?To wrap the external lines so that it can touch the perimeterHow to draw points in TikZ?TikZ: Drawing an arc from an intersection to an intersectionRelative transparency in TikZ?Line up nested tikz enviroments or how to get rid of themMarking a point on parabola (like ellipse)Is there an efficient way to edit the following UML













5















enter image description here



I am able of doing the hexagons and the rectangle, as well as all the nodes and so on. My problem is if there is an easy way to draw the blue arrows of the image, knowing that I have given to tikzpicture the coordinate of each hexagon.



beginscope[xshift=-1.5cm,yshift=7.83cm]
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (A) at (0:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (B) at (60:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (C) at (120:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (D) at (180:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (E) at (240:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (F) at (300:1cm) ;
draw[thick] (A)--(B);
draw[thick] (B)--(C);
draw[thick] (C)--(D);
draw[thick] (D)--(E);
draw[thick] (E)--(F);
draw[thick] (F)--(A);
node at (0:0cm) scriptsize$3$;
endscope
beginscope[xshift=-1.5cm,yshift=6.09cm]
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (A) at (0:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (B) at (60:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (C) at (120:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (D) at (180:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (E) at (240:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (F) at (300:1cm) ;
draw[thick] (A)--(B);
draw[thick] (B)--(C);
draw[thick] (C)--(D);
draw[thick] (D)--(E);
draw[thick] (E)--(F);
draw[thick] (F)--(A);
node at (0:0cm) scriptsize$4$;
coordinate (1c) at (280:0.7cm);
endscope


Above there is an example of how I programmed two adjacent hexagons. I programmed one and then I shifted the reference frame to have the second one below. With "coordinate" I save a point so that in the end I can draw the red rectangle. Based on this way of programming, How can I add the blue arrows? There should be a way to put the arrows parallel to the line joining the two nodes, and then maybe with decorate I can add the number of >> that I need.
Any suggestion?
Thank you, I apologize if this is not the best way to draw this tiling but it is the most versatile for what I need to do, so I would like not to change it, but I am interested in how to add parallel lines joining (or pointing) to two nodes.










share|improve this question






















  • This looks like the perfect use case for a loop here. But in order to do something like this I'd need to know what the numbers in the hexagon mean and how they are obtained

    – Raven
    9 hours ago











  • Sure, there are many posts that draw a hexagonal lattice, like e.g. tex.stackexchange.com/a/6025/121799. I recommend you do a google picture search for site:tex.stackexchange.com hexagonal lattice tikz and look at promising posts. If there is something that you need to add, you have an arguably simpler starting point for your question.

    – marmot
    9 hours ago















5















enter image description here



I am able of doing the hexagons and the rectangle, as well as all the nodes and so on. My problem is if there is an easy way to draw the blue arrows of the image, knowing that I have given to tikzpicture the coordinate of each hexagon.



beginscope[xshift=-1.5cm,yshift=7.83cm]
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (A) at (0:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (B) at (60:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (C) at (120:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (D) at (180:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (E) at (240:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (F) at (300:1cm) ;
draw[thick] (A)--(B);
draw[thick] (B)--(C);
draw[thick] (C)--(D);
draw[thick] (D)--(E);
draw[thick] (E)--(F);
draw[thick] (F)--(A);
node at (0:0cm) scriptsize$3$;
endscope
beginscope[xshift=-1.5cm,yshift=6.09cm]
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (A) at (0:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (B) at (60:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (C) at (120:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (D) at (180:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (E) at (240:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (F) at (300:1cm) ;
draw[thick] (A)--(B);
draw[thick] (B)--(C);
draw[thick] (C)--(D);
draw[thick] (D)--(E);
draw[thick] (E)--(F);
draw[thick] (F)--(A);
node at (0:0cm) scriptsize$4$;
coordinate (1c) at (280:0.7cm);
endscope


Above there is an example of how I programmed two adjacent hexagons. I programmed one and then I shifted the reference frame to have the second one below. With "coordinate" I save a point so that in the end I can draw the red rectangle. Based on this way of programming, How can I add the blue arrows? There should be a way to put the arrows parallel to the line joining the two nodes, and then maybe with decorate I can add the number of >> that I need.
Any suggestion?
Thank you, I apologize if this is not the best way to draw this tiling but it is the most versatile for what I need to do, so I would like not to change it, but I am interested in how to add parallel lines joining (or pointing) to two nodes.










share|improve this question






















  • This looks like the perfect use case for a loop here. But in order to do something like this I'd need to know what the numbers in the hexagon mean and how they are obtained

    – Raven
    9 hours ago











  • Sure, there are many posts that draw a hexagonal lattice, like e.g. tex.stackexchange.com/a/6025/121799. I recommend you do a google picture search for site:tex.stackexchange.com hexagonal lattice tikz and look at promising posts. If there is something that you need to add, you have an arguably simpler starting point for your question.

    – marmot
    9 hours ago













5












5








5


0






enter image description here



I am able of doing the hexagons and the rectangle, as well as all the nodes and so on. My problem is if there is an easy way to draw the blue arrows of the image, knowing that I have given to tikzpicture the coordinate of each hexagon.



beginscope[xshift=-1.5cm,yshift=7.83cm]
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (A) at (0:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (B) at (60:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (C) at (120:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (D) at (180:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (E) at (240:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (F) at (300:1cm) ;
draw[thick] (A)--(B);
draw[thick] (B)--(C);
draw[thick] (C)--(D);
draw[thick] (D)--(E);
draw[thick] (E)--(F);
draw[thick] (F)--(A);
node at (0:0cm) scriptsize$3$;
endscope
beginscope[xshift=-1.5cm,yshift=6.09cm]
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (A) at (0:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (B) at (60:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (C) at (120:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (D) at (180:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (E) at (240:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (F) at (300:1cm) ;
draw[thick] (A)--(B);
draw[thick] (B)--(C);
draw[thick] (C)--(D);
draw[thick] (D)--(E);
draw[thick] (E)--(F);
draw[thick] (F)--(A);
node at (0:0cm) scriptsize$4$;
coordinate (1c) at (280:0.7cm);
endscope


Above there is an example of how I programmed two adjacent hexagons. I programmed one and then I shifted the reference frame to have the second one below. With "coordinate" I save a point so that in the end I can draw the red rectangle. Based on this way of programming, How can I add the blue arrows? There should be a way to put the arrows parallel to the line joining the two nodes, and then maybe with decorate I can add the number of >> that I need.
Any suggestion?
Thank you, I apologize if this is not the best way to draw this tiling but it is the most versatile for what I need to do, so I would like not to change it, but I am interested in how to add parallel lines joining (or pointing) to two nodes.










share|improve this question














enter image description here



I am able of doing the hexagons and the rectangle, as well as all the nodes and so on. My problem is if there is an easy way to draw the blue arrows of the image, knowing that I have given to tikzpicture the coordinate of each hexagon.



beginscope[xshift=-1.5cm,yshift=7.83cm]
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (A) at (0:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (B) at (60:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (C) at (120:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (D) at (180:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (E) at (240:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (F) at (300:1cm) ;
draw[thick] (A)--(B);
draw[thick] (B)--(C);
draw[thick] (C)--(D);
draw[thick] (D)--(E);
draw[thick] (E)--(F);
draw[thick] (F)--(A);
node at (0:0cm) scriptsize$3$;
endscope
beginscope[xshift=-1.5cm,yshift=6.09cm]
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (A) at (0:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (B) at (60:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (C) at (120:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (D) at (180:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt,fill=black] (E) at (240:1cm) ;
node[draw,circle,inner sep=2.5pt,minimum size=2pt] (F) at (300:1cm) ;
draw[thick] (A)--(B);
draw[thick] (B)--(C);
draw[thick] (C)--(D);
draw[thick] (D)--(E);
draw[thick] (E)--(F);
draw[thick] (F)--(A);
node at (0:0cm) scriptsize$4$;
coordinate (1c) at (280:0.7cm);
endscope


Above there is an example of how I programmed two adjacent hexagons. I programmed one and then I shifted the reference frame to have the second one below. With "coordinate" I save a point so that in the end I can draw the red rectangle. Based on this way of programming, How can I add the blue arrows? There should be a way to put the arrows parallel to the line joining the two nodes, and then maybe with decorate I can add the number of >> that I need.
Any suggestion?
Thank you, I apologize if this is not the best way to draw this tiling but it is the most versatile for what I need to do, so I would like not to change it, but I am interested in how to add parallel lines joining (or pointing) to two nodes.







tikz-pgf diagrams tikz-styles tikz-arrows






share|improve this question













share|improve this question











share|improve this question




share|improve this question










asked 10 hours ago









Alessandro MininnoAlessandro Mininno

734




734












  • This looks like the perfect use case for a loop here. But in order to do something like this I'd need to know what the numbers in the hexagon mean and how they are obtained

    – Raven
    9 hours ago











  • Sure, there are many posts that draw a hexagonal lattice, like e.g. tex.stackexchange.com/a/6025/121799. I recommend you do a google picture search for site:tex.stackexchange.com hexagonal lattice tikz and look at promising posts. If there is something that you need to add, you have an arguably simpler starting point for your question.

    – marmot
    9 hours ago

















  • This looks like the perfect use case for a loop here. But in order to do something like this I'd need to know what the numbers in the hexagon mean and how they are obtained

    – Raven
    9 hours ago











  • Sure, there are many posts that draw a hexagonal lattice, like e.g. tex.stackexchange.com/a/6025/121799. I recommend you do a google picture search for site:tex.stackexchange.com hexagonal lattice tikz and look at promising posts. If there is something that you need to add, you have an arguably simpler starting point for your question.

    – marmot
    9 hours ago
















This looks like the perfect use case for a loop here. But in order to do something like this I'd need to know what the numbers in the hexagon mean and how they are obtained

– Raven
9 hours ago





This looks like the perfect use case for a loop here. But in order to do something like this I'd need to know what the numbers in the hexagon mean and how they are obtained

– Raven
9 hours ago













Sure, there are many posts that draw a hexagonal lattice, like e.g. tex.stackexchange.com/a/6025/121799. I recommend you do a google picture search for site:tex.stackexchange.com hexagonal lattice tikz and look at promising posts. If there is something that you need to add, you have an arguably simpler starting point for your question.

– marmot
9 hours ago





Sure, there are many posts that draw a hexagonal lattice, like e.g. tex.stackexchange.com/a/6025/121799. I recommend you do a google picture search for site:tex.stackexchange.com hexagonal lattice tikz and look at promising posts. If there is something that you need to add, you have an arguably simpler starting point for your question.

– marmot
9 hours ago










2 Answers
2






active

oldest

votes


















6














It is not too difficult to draw such a thing in loops. pics may further help to avoid repetition. I did not understand your numbering scheme so you will have to modify evaluate=Y as Z using int(mod(33-Y-X,5)+1) to match your prescription.



documentclass[tikz,border=3.14mm]standalone
usetikzlibraryshapes.geometric,calc
newcounterhexi
begindocument
begintikzpicture[pics/hexi/.style=code=stepcounterhexi
node[draw,regular polygon,regular polygon sides=6,minimum width=2cm]
(hexi-numbervaluehexi) #1;
foreach Corner in 1,...,6
ifoddCorner
draw[fill=black] (hexi-numbervaluehexi.corner Corner) circle[radius=1.5pt];
else
draw[fill=white] (hexi-numbervaluehexi.corner Corner) circle[radius=1.5pt];
fi
,bullet/.style=circle,fill,inner sep=0.5pt]
%
clip (0,1) rectangle (9.8,6.5);
% draw the hexagons
path foreach X in 1,...,6
foreach Y [evaluate=Y as Z using int(mod(33-Y-X,5)+1)] in 1,...,4 ifoddX
(X*(1+cos(60)),Y*(2*sin(60)))
else
(X*(1+cos(60)),Y*(2*sin(60))-sin(60))
fi pichexi=Z;
% draw the blue arrows
foreach X in 7,9,10,11,14
foreach Y [remember=Y as LastY (initially 6)]in 1,...,6
draw[blue,-latex,shorten >=2pt,shorten <=2pt]
($(hexi-X.corner LastY)!0.1!(hexi-X.center)$)
-- ($(hexi-X.corner Y)!0.1!(hexi-X.center)$);
% draw the red contour
draw[red] ([yshift=-0.3cm]hexi-3.center) node[bullet]
-- ([yshift=-0.3cm]hexi-6.center) node[bullet]
-- ([yshift=-0.3cm]hexi-18.center) node[bullet]
-- ([yshift=-0.3cm]hexi-16.center) node[bullet] -- cycle;
endtikzpicture
enddocument


enter image description here






share|improve this answer


















  • 1





    You are as good with tikz as wipet is with pdf specials! And that is saying a lot.

    – Steven B. Segletes
    8 hours ago












  • @StevenB.Segletes Thanks a lot but I beg to disagree. I am not at all good at TikZ but most of the good users like Jake, percusse and cfr seem to be on vacation, or, as in Henri Menke's case not interested in such questions.

    – marmot
    8 hours ago


















3














Your code is far from optimal, so I'll not reproduce it here. I only show you how to add the blue arrow next to an edge, as you asked, by creating a style with arrows.



EDIT: I added also a closepath code to with arrows style in a way to be able to use it with regular polygon nodes (shown already in the @marmot's answer).



documentclass[tikz,border=7pt]standalone
usetikzlibrarydecorations.pathreplacing,calc,shapes.geometric
tikzstylewith arrows=[
postaction=decorate,
decoration=show path construction,
lineto code=
draw [blue,-latex] ($(tikzinputsegmentfirst)!1mm!45:(tikzinputsegmentlast)$) -- ($(tikzinputsegmentlast)!1mm!-45:(tikzinputsegmentfirst)$);
,
closepath code=
draw [blue,-latex] ($(tikzinputsegmentfirst)!1mm!45:(tikzinputsegmentlast)$) -- ($(tikzinputsegmentlast)!1mm!-45:(tikzinputsegmentfirst)$);



]
begindocument
begintikzpicture
draw[with arrows] (0,0) -- (1,1) node[scale=2]. -- (2,0);
node[regular polygon,regular polygon sides=6,minimum width=2cm,draw,with arrows] at (3,1) 1;
endtikzpicture
enddocument



enter image description here






share|improve this answer
























    Your Answer








    StackExchange.ready(function()
    var channelOptions =
    tags: "".split(" "),
    id: "85"
    ;
    initTagRenderer("".split(" "), "".split(" "), channelOptions);

    StackExchange.using("externalEditor", function()
    // Have to fire editor after snippets, if snippets enabled
    if (StackExchange.settings.snippets.snippetsEnabled)
    StackExchange.using("snippets", function()
    createEditor();
    );

    else
    createEditor();

    );

    function createEditor()
    StackExchange.prepareEditor(
    heartbeatType: 'answer',
    autoActivateHeartbeat: false,
    convertImagesToLinks: false,
    noModals: true,
    showLowRepImageUploadWarning: true,
    reputationToPostImages: null,
    bindNavPrevention: true,
    postfix: "",
    imageUploader:
    brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
    contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
    allowUrls: true
    ,
    onDemand: true,
    discardSelector: ".discard-answer"
    ,immediatelyShowMarkdownHelp:true
    );



    );













    draft saved

    draft discarded


















    StackExchange.ready(
    function ()
    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2ftex.stackexchange.com%2fquestions%2f481397%2fis-there-an-wasy-way-to-program-in-tikz-something-like-the-one-in-the-image%23new-answer', 'question_page');

    );

    Post as a guest















    Required, but never shown

























    2 Answers
    2






    active

    oldest

    votes








    2 Answers
    2






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes









    6














    It is not too difficult to draw such a thing in loops. pics may further help to avoid repetition. I did not understand your numbering scheme so you will have to modify evaluate=Y as Z using int(mod(33-Y-X,5)+1) to match your prescription.



    documentclass[tikz,border=3.14mm]standalone
    usetikzlibraryshapes.geometric,calc
    newcounterhexi
    begindocument
    begintikzpicture[pics/hexi/.style=code=stepcounterhexi
    node[draw,regular polygon,regular polygon sides=6,minimum width=2cm]
    (hexi-numbervaluehexi) #1;
    foreach Corner in 1,...,6
    ifoddCorner
    draw[fill=black] (hexi-numbervaluehexi.corner Corner) circle[radius=1.5pt];
    else
    draw[fill=white] (hexi-numbervaluehexi.corner Corner) circle[radius=1.5pt];
    fi
    ,bullet/.style=circle,fill,inner sep=0.5pt]
    %
    clip (0,1) rectangle (9.8,6.5);
    % draw the hexagons
    path foreach X in 1,...,6
    foreach Y [evaluate=Y as Z using int(mod(33-Y-X,5)+1)] in 1,...,4 ifoddX
    (X*(1+cos(60)),Y*(2*sin(60)))
    else
    (X*(1+cos(60)),Y*(2*sin(60))-sin(60))
    fi pichexi=Z;
    % draw the blue arrows
    foreach X in 7,9,10,11,14
    foreach Y [remember=Y as LastY (initially 6)]in 1,...,6
    draw[blue,-latex,shorten >=2pt,shorten <=2pt]
    ($(hexi-X.corner LastY)!0.1!(hexi-X.center)$)
    -- ($(hexi-X.corner Y)!0.1!(hexi-X.center)$);
    % draw the red contour
    draw[red] ([yshift=-0.3cm]hexi-3.center) node[bullet]
    -- ([yshift=-0.3cm]hexi-6.center) node[bullet]
    -- ([yshift=-0.3cm]hexi-18.center) node[bullet]
    -- ([yshift=-0.3cm]hexi-16.center) node[bullet] -- cycle;
    endtikzpicture
    enddocument


    enter image description here






    share|improve this answer


















    • 1





      You are as good with tikz as wipet is with pdf specials! And that is saying a lot.

      – Steven B. Segletes
      8 hours ago












    • @StevenB.Segletes Thanks a lot but I beg to disagree. I am not at all good at TikZ but most of the good users like Jake, percusse and cfr seem to be on vacation, or, as in Henri Menke's case not interested in such questions.

      – marmot
      8 hours ago















    6














    It is not too difficult to draw such a thing in loops. pics may further help to avoid repetition. I did not understand your numbering scheme so you will have to modify evaluate=Y as Z using int(mod(33-Y-X,5)+1) to match your prescription.



    documentclass[tikz,border=3.14mm]standalone
    usetikzlibraryshapes.geometric,calc
    newcounterhexi
    begindocument
    begintikzpicture[pics/hexi/.style=code=stepcounterhexi
    node[draw,regular polygon,regular polygon sides=6,minimum width=2cm]
    (hexi-numbervaluehexi) #1;
    foreach Corner in 1,...,6
    ifoddCorner
    draw[fill=black] (hexi-numbervaluehexi.corner Corner) circle[radius=1.5pt];
    else
    draw[fill=white] (hexi-numbervaluehexi.corner Corner) circle[radius=1.5pt];
    fi
    ,bullet/.style=circle,fill,inner sep=0.5pt]
    %
    clip (0,1) rectangle (9.8,6.5);
    % draw the hexagons
    path foreach X in 1,...,6
    foreach Y [evaluate=Y as Z using int(mod(33-Y-X,5)+1)] in 1,...,4 ifoddX
    (X*(1+cos(60)),Y*(2*sin(60)))
    else
    (X*(1+cos(60)),Y*(2*sin(60))-sin(60))
    fi pichexi=Z;
    % draw the blue arrows
    foreach X in 7,9,10,11,14
    foreach Y [remember=Y as LastY (initially 6)]in 1,...,6
    draw[blue,-latex,shorten >=2pt,shorten <=2pt]
    ($(hexi-X.corner LastY)!0.1!(hexi-X.center)$)
    -- ($(hexi-X.corner Y)!0.1!(hexi-X.center)$);
    % draw the red contour
    draw[red] ([yshift=-0.3cm]hexi-3.center) node[bullet]
    -- ([yshift=-0.3cm]hexi-6.center) node[bullet]
    -- ([yshift=-0.3cm]hexi-18.center) node[bullet]
    -- ([yshift=-0.3cm]hexi-16.center) node[bullet] -- cycle;
    endtikzpicture
    enddocument


    enter image description here






    share|improve this answer


















    • 1





      You are as good with tikz as wipet is with pdf specials! And that is saying a lot.

      – Steven B. Segletes
      8 hours ago












    • @StevenB.Segletes Thanks a lot but I beg to disagree. I am not at all good at TikZ but most of the good users like Jake, percusse and cfr seem to be on vacation, or, as in Henri Menke's case not interested in such questions.

      – marmot
      8 hours ago













    6












    6








    6







    It is not too difficult to draw such a thing in loops. pics may further help to avoid repetition. I did not understand your numbering scheme so you will have to modify evaluate=Y as Z using int(mod(33-Y-X,5)+1) to match your prescription.



    documentclass[tikz,border=3.14mm]standalone
    usetikzlibraryshapes.geometric,calc
    newcounterhexi
    begindocument
    begintikzpicture[pics/hexi/.style=code=stepcounterhexi
    node[draw,regular polygon,regular polygon sides=6,minimum width=2cm]
    (hexi-numbervaluehexi) #1;
    foreach Corner in 1,...,6
    ifoddCorner
    draw[fill=black] (hexi-numbervaluehexi.corner Corner) circle[radius=1.5pt];
    else
    draw[fill=white] (hexi-numbervaluehexi.corner Corner) circle[radius=1.5pt];
    fi
    ,bullet/.style=circle,fill,inner sep=0.5pt]
    %
    clip (0,1) rectangle (9.8,6.5);
    % draw the hexagons
    path foreach X in 1,...,6
    foreach Y [evaluate=Y as Z using int(mod(33-Y-X,5)+1)] in 1,...,4 ifoddX
    (X*(1+cos(60)),Y*(2*sin(60)))
    else
    (X*(1+cos(60)),Y*(2*sin(60))-sin(60))
    fi pichexi=Z;
    % draw the blue arrows
    foreach X in 7,9,10,11,14
    foreach Y [remember=Y as LastY (initially 6)]in 1,...,6
    draw[blue,-latex,shorten >=2pt,shorten <=2pt]
    ($(hexi-X.corner LastY)!0.1!(hexi-X.center)$)
    -- ($(hexi-X.corner Y)!0.1!(hexi-X.center)$);
    % draw the red contour
    draw[red] ([yshift=-0.3cm]hexi-3.center) node[bullet]
    -- ([yshift=-0.3cm]hexi-6.center) node[bullet]
    -- ([yshift=-0.3cm]hexi-18.center) node[bullet]
    -- ([yshift=-0.3cm]hexi-16.center) node[bullet] -- cycle;
    endtikzpicture
    enddocument


    enter image description here






    share|improve this answer













    It is not too difficult to draw such a thing in loops. pics may further help to avoid repetition. I did not understand your numbering scheme so you will have to modify evaluate=Y as Z using int(mod(33-Y-X,5)+1) to match your prescription.



    documentclass[tikz,border=3.14mm]standalone
    usetikzlibraryshapes.geometric,calc
    newcounterhexi
    begindocument
    begintikzpicture[pics/hexi/.style=code=stepcounterhexi
    node[draw,regular polygon,regular polygon sides=6,minimum width=2cm]
    (hexi-numbervaluehexi) #1;
    foreach Corner in 1,...,6
    ifoddCorner
    draw[fill=black] (hexi-numbervaluehexi.corner Corner) circle[radius=1.5pt];
    else
    draw[fill=white] (hexi-numbervaluehexi.corner Corner) circle[radius=1.5pt];
    fi
    ,bullet/.style=circle,fill,inner sep=0.5pt]
    %
    clip (0,1) rectangle (9.8,6.5);
    % draw the hexagons
    path foreach X in 1,...,6
    foreach Y [evaluate=Y as Z using int(mod(33-Y-X,5)+1)] in 1,...,4 ifoddX
    (X*(1+cos(60)),Y*(2*sin(60)))
    else
    (X*(1+cos(60)),Y*(2*sin(60))-sin(60))
    fi pichexi=Z;
    % draw the blue arrows
    foreach X in 7,9,10,11,14
    foreach Y [remember=Y as LastY (initially 6)]in 1,...,6
    draw[blue,-latex,shorten >=2pt,shorten <=2pt]
    ($(hexi-X.corner LastY)!0.1!(hexi-X.center)$)
    -- ($(hexi-X.corner Y)!0.1!(hexi-X.center)$);
    % draw the red contour
    draw[red] ([yshift=-0.3cm]hexi-3.center) node[bullet]
    -- ([yshift=-0.3cm]hexi-6.center) node[bullet]
    -- ([yshift=-0.3cm]hexi-18.center) node[bullet]
    -- ([yshift=-0.3cm]hexi-16.center) node[bullet] -- cycle;
    endtikzpicture
    enddocument


    enter image description here







    share|improve this answer












    share|improve this answer



    share|improve this answer










    answered 8 hours ago









    marmotmarmot

    111k5140264




    111k5140264







    • 1





      You are as good with tikz as wipet is with pdf specials! And that is saying a lot.

      – Steven B. Segletes
      8 hours ago












    • @StevenB.Segletes Thanks a lot but I beg to disagree. I am not at all good at TikZ but most of the good users like Jake, percusse and cfr seem to be on vacation, or, as in Henri Menke's case not interested in such questions.

      – marmot
      8 hours ago












    • 1





      You are as good with tikz as wipet is with pdf specials! And that is saying a lot.

      – Steven B. Segletes
      8 hours ago












    • @StevenB.Segletes Thanks a lot but I beg to disagree. I am not at all good at TikZ but most of the good users like Jake, percusse and cfr seem to be on vacation, or, as in Henri Menke's case not interested in such questions.

      – marmot
      8 hours ago







    1




    1





    You are as good with tikz as wipet is with pdf specials! And that is saying a lot.

    – Steven B. Segletes
    8 hours ago






    You are as good with tikz as wipet is with pdf specials! And that is saying a lot.

    – Steven B. Segletes
    8 hours ago














    @StevenB.Segletes Thanks a lot but I beg to disagree. I am not at all good at TikZ but most of the good users like Jake, percusse and cfr seem to be on vacation, or, as in Henri Menke's case not interested in such questions.

    – marmot
    8 hours ago





    @StevenB.Segletes Thanks a lot but I beg to disagree. I am not at all good at TikZ but most of the good users like Jake, percusse and cfr seem to be on vacation, or, as in Henri Menke's case not interested in such questions.

    – marmot
    8 hours ago











    3














    Your code is far from optimal, so I'll not reproduce it here. I only show you how to add the blue arrow next to an edge, as you asked, by creating a style with arrows.



    EDIT: I added also a closepath code to with arrows style in a way to be able to use it with regular polygon nodes (shown already in the @marmot's answer).



    documentclass[tikz,border=7pt]standalone
    usetikzlibrarydecorations.pathreplacing,calc,shapes.geometric
    tikzstylewith arrows=[
    postaction=decorate,
    decoration=show path construction,
    lineto code=
    draw [blue,-latex] ($(tikzinputsegmentfirst)!1mm!45:(tikzinputsegmentlast)$) -- ($(tikzinputsegmentlast)!1mm!-45:(tikzinputsegmentfirst)$);
    ,
    closepath code=
    draw [blue,-latex] ($(tikzinputsegmentfirst)!1mm!45:(tikzinputsegmentlast)$) -- ($(tikzinputsegmentlast)!1mm!-45:(tikzinputsegmentfirst)$);



    ]
    begindocument
    begintikzpicture
    draw[with arrows] (0,0) -- (1,1) node[scale=2]. -- (2,0);
    node[regular polygon,regular polygon sides=6,minimum width=2cm,draw,with arrows] at (3,1) 1;
    endtikzpicture
    enddocument



    enter image description here






    share|improve this answer





























      3














      Your code is far from optimal, so I'll not reproduce it here. I only show you how to add the blue arrow next to an edge, as you asked, by creating a style with arrows.



      EDIT: I added also a closepath code to with arrows style in a way to be able to use it with regular polygon nodes (shown already in the @marmot's answer).



      documentclass[tikz,border=7pt]standalone
      usetikzlibrarydecorations.pathreplacing,calc,shapes.geometric
      tikzstylewith arrows=[
      postaction=decorate,
      decoration=show path construction,
      lineto code=
      draw [blue,-latex] ($(tikzinputsegmentfirst)!1mm!45:(tikzinputsegmentlast)$) -- ($(tikzinputsegmentlast)!1mm!-45:(tikzinputsegmentfirst)$);
      ,
      closepath code=
      draw [blue,-latex] ($(tikzinputsegmentfirst)!1mm!45:(tikzinputsegmentlast)$) -- ($(tikzinputsegmentlast)!1mm!-45:(tikzinputsegmentfirst)$);



      ]
      begindocument
      begintikzpicture
      draw[with arrows] (0,0) -- (1,1) node[scale=2]. -- (2,0);
      node[regular polygon,regular polygon sides=6,minimum width=2cm,draw,with arrows] at (3,1) 1;
      endtikzpicture
      enddocument



      enter image description here






      share|improve this answer



























        3












        3








        3







        Your code is far from optimal, so I'll not reproduce it here. I only show you how to add the blue arrow next to an edge, as you asked, by creating a style with arrows.



        EDIT: I added also a closepath code to with arrows style in a way to be able to use it with regular polygon nodes (shown already in the @marmot's answer).



        documentclass[tikz,border=7pt]standalone
        usetikzlibrarydecorations.pathreplacing,calc,shapes.geometric
        tikzstylewith arrows=[
        postaction=decorate,
        decoration=show path construction,
        lineto code=
        draw [blue,-latex] ($(tikzinputsegmentfirst)!1mm!45:(tikzinputsegmentlast)$) -- ($(tikzinputsegmentlast)!1mm!-45:(tikzinputsegmentfirst)$);
        ,
        closepath code=
        draw [blue,-latex] ($(tikzinputsegmentfirst)!1mm!45:(tikzinputsegmentlast)$) -- ($(tikzinputsegmentlast)!1mm!-45:(tikzinputsegmentfirst)$);



        ]
        begindocument
        begintikzpicture
        draw[with arrows] (0,0) -- (1,1) node[scale=2]. -- (2,0);
        node[regular polygon,regular polygon sides=6,minimum width=2cm,draw,with arrows] at (3,1) 1;
        endtikzpicture
        enddocument



        enter image description here






        share|improve this answer















        Your code is far from optimal, so I'll not reproduce it here. I only show you how to add the blue arrow next to an edge, as you asked, by creating a style with arrows.



        EDIT: I added also a closepath code to with arrows style in a way to be able to use it with regular polygon nodes (shown already in the @marmot's answer).



        documentclass[tikz,border=7pt]standalone
        usetikzlibrarydecorations.pathreplacing,calc,shapes.geometric
        tikzstylewith arrows=[
        postaction=decorate,
        decoration=show path construction,
        lineto code=
        draw [blue,-latex] ($(tikzinputsegmentfirst)!1mm!45:(tikzinputsegmentlast)$) -- ($(tikzinputsegmentlast)!1mm!-45:(tikzinputsegmentfirst)$);
        ,
        closepath code=
        draw [blue,-latex] ($(tikzinputsegmentfirst)!1mm!45:(tikzinputsegmentlast)$) -- ($(tikzinputsegmentlast)!1mm!-45:(tikzinputsegmentfirst)$);



        ]
        begindocument
        begintikzpicture
        draw[with arrows] (0,0) -- (1,1) node[scale=2]. -- (2,0);
        node[regular polygon,regular polygon sides=6,minimum width=2cm,draw,with arrows] at (3,1) 1;
        endtikzpicture
        enddocument



        enter image description here







        share|improve this answer














        share|improve this answer



        share|improve this answer








        edited 6 hours ago

























        answered 8 hours ago









        KpymKpym

        17k24090




        17k24090



























            draft saved

            draft discarded
















































            Thanks for contributing an answer to TeX - LaTeX Stack Exchange!


            • Please be sure to answer the question. Provide details and share your research!

            But avoid


            • Asking for help, clarification, or responding to other answers.

            • Making statements based on opinion; back them up with references or personal experience.

            To learn more, see our tips on writing great answers.




            draft saved


            draft discarded














            StackExchange.ready(
            function ()
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2ftex.stackexchange.com%2fquestions%2f481397%2fis-there-an-wasy-way-to-program-in-tikz-something-like-the-one-in-the-image%23new-answer', 'question_page');

            );

            Post as a guest















            Required, but never shown





















































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown

































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown







            Popular posts from this blog

            How to create a command for the “strange m” symbol in latex? Announcing the arrival of Valued Associate #679: Cesar Manara Planned maintenance scheduled April 23, 2019 at 23:30 UTC (7:30pm US/Eastern)How do you make your own symbol when Detexify fails?Writing bold small caps with mathpazo packageplus-minus symbol with parenthesis around the minus signGreek character in Beamer document titleHow to create dashed right arrow over symbol?Currency symbol: Turkish LiraDouble prec as a single symbol?Plus Sign Too Big; How to Call adfbullet?Is there a TeX macro for three-legged pi?How do I get my integral-like symbol to align like the integral?How to selectively substitute a letter with another symbol representing the same letterHow do I generate a less than symbol and vertical bar that are the same height?

            Българска екзархия Съдържание История | Български екзарси | Вижте също | Външни препратки | Литература | Бележки | НавигацияУстав за управлението на българската екзархия. Цариград, 1870Слово на Ловешкия митрополит Иларион при откриването на Българския народен събор в Цариград на 23. II. 1870 г.Българската правда и гръцката кривда. От С. М. (= Софийски Мелетий). Цариград, 1872Предстоятели на Българската екзархияПодмененият ВеликденИнформационна агенция „Фокус“Димитър Ризов. Българите в техните исторически, етнографически и политически граници (Атлас съдържащ 40 карти). Berlin, Königliche Hoflithographie, Hof-Buch- und -Steindruckerei Wilhelm Greve, 1917Report of the International Commission to Inquire into the Causes and Conduct of the Balkan Wars

            Чепеларе Съдържание География | История | Население | Спортни и природни забележителности | Културни и исторически обекти | Религии | Обществени институции | Известни личности | Редовни събития | Галерия | Източници | Литература | Външни препратки | Навигация41°43′23.99″ с. ш. 24°41′09.99″ и. д. / 41.723333° с. ш. 24.686111° и. д.*ЧепелареЧепеларски Linux fest 2002Начало на Зимен сезон 2005/06Национални хайдушки празници „Капитан Петко Войвода“Град ЧепелареЧепеларе – народният ски курортbgrod.orgwww.terranatura.hit.bgСправка за населението на гр. Исперих, общ. Исперих, обл. РазградМузей на родопския карстМузей на спорта и скитеЧепеларебългарскибългарскианглийскитукИстория на градаСки писти в ЧепелареВремето в ЧепелареРадио и телевизия в ЧепелареЧепеларе мами с родопски чар и добри пистиЕвтин туризъм и снежни атракции в ЧепелареМестоположениеИнформация и снимки от музея на родопския карст3D панорами от ЧепелареЧепелареррр