How do you create draggable points inside a graphic image?Real Size Image PrintingCan individual locators in LocatorPane be temporarily disabled?Interactive graphics without creating a new cellHow to feed parameters obtained from direct 3D manipulation back into Manipulate's controls?Narrow a Drawing Tools WindowTracing an image to produce a vector graphicSpeed Up Sampling of Perimeter of Polygonexport video of dynamic graphics in complex manipulate interfaceHow to prerender / rasterize a graphic without losing location informationHow do you glue a text to a point?

The monorail explodes before I can get on it

What's the minimum number of sensors for a hobby GPS waypoint-following UAV?

How can an advanced civilization forget how to manufacture its technology?

Why did my rum cake turn black?

Novel where a group of scientists in a spaceship encounter various aliens

Is Arc Length always irrational between two rational points?

Why would guns not work in the dungeon?

How can I get a player to accept that they should stop trying to pull stunts without thinking them through first?

What do the horizontal lines in a P-V phase diagram mean?

Did any of the founding fathers anticipate Lysander Spooner's criticism of the constitution?

During copyediting, journal disagrees about spelling of paper's main topic

Can I call 112 to check a police officer's identity in the Czech Republic?

Cubic programming and beyond?

How do Windows version numbers work?

What is this welding tool I found in my attic?

Referring to different instances of the same character in time travel

CentOS 7 -> find: missing Argument for "-exec"

How to hide what's behind an object in a non destructive way / give it an "invisibility cloak"

Matchmaker, Matchmaker, make me a match

How did the hit man miss?

Supporting developers who insist on using their pet language

Is lack of functional requirements agile?

Why does the autopilot disengage even when it does not receive pilot input?

Simple LED driver, transistor and GPIO



How do you create draggable points inside a graphic image?


Real Size Image PrintingCan individual locators in LocatorPane be temporarily disabled?Interactive graphics without creating a new cellHow to feed parameters obtained from direct 3D manipulation back into Manipulate's controls?Narrow a Drawing Tools WindowTracing an image to produce a vector graphicSpeed Up Sampling of Perimeter of Polygonexport video of dynamic graphics in complex manipulate interfaceHow to prerender / rasterize a graphic without losing location informationHow do you glue a text to a point?






.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;








2












$begingroup$


I want to create a simple line with two points that can be dragged (one at a time), as in image below:



enter image description here



How can I do that without using sliders, but rather dragging the points themselves. I suspect that one uses Manipulate and Graphics in some fashion but I am not sure.










share|improve this question











$endgroup$


















    2












    $begingroup$


    I want to create a simple line with two points that can be dragged (one at a time), as in image below:



    enter image description here



    How can I do that without using sliders, but rather dragging the points themselves. I suspect that one uses Manipulate and Graphics in some fashion but I am not sure.










    share|improve this question











    $endgroup$














      2












      2








      2





      $begingroup$


      I want to create a simple line with two points that can be dragged (one at a time), as in image below:



      enter image description here



      How can I do that without using sliders, but rather dragging the points themselves. I suspect that one uses Manipulate and Graphics in some fashion but I am not sure.










      share|improve this question











      $endgroup$




      I want to create a simple line with two points that can be dragged (one at a time), as in image below:



      enter image description here



      How can I do that without using sliders, but rather dragging the points themselves. I suspect that one uses Manipulate and Graphics in some fashion but I am not sure.







      graphics interactive






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited 7 hours ago









      Somos

      2,8301 gold badge2 silver badges11 bronze badges




      2,8301 gold badge2 silver badges11 bronze badges










      asked 8 hours ago









      Bob UelandBob Ueland

      5292 silver badges14 bronze badges




      5292 silver badges14 bronze badges




















          3 Answers
          3






          active

          oldest

          votes


















          3












          $begingroup$

          Manipulate[
          Graphics[Line[pt1, pt2], PlotRange -> 2], pt1, 0, 0,
          Locator, pt2, 0, 1, Locator]





          share|improve this answer









          $endgroup$




















            5












            $begingroup$

            Here is how you would do it with LocatorPane:



            pt1 = 0, 0;
            pt2 = 0, 2;
            LocatorPane[
            Dynamic[pt1, pt2],
            Dynamic@Graphics[
            Line[pt1, pt2]
            ,
            PlotRange -> -5, 5, -5, 5
            ],
            Appearance ->
            Graphics[Red, PointSize[Large], Point[0, 0]],
            Graphics[Blue, PointSize[Large], Point[0, 0]]

            ]


            enter image description here






            share|improve this answer









            $endgroup$




















              2












              $begingroup$

              You can also use a single control for multiple locators:



              Manipulate[Graphics[Line[pts], PlotRange -> 2], 
              pts, 0, 0, 1, 1, Locator, Appearance -> (Style["●", #, 16] & /@ Red, Green)]


              enter image description here






              share|improve this answer









              $endgroup$















                Your Answer








                StackExchange.ready(function()
                var channelOptions =
                tags: "".split(" "),
                id: "387"
                ;
                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%2fmathematica.stackexchange.com%2fquestions%2f201942%2fhow-do-you-create-draggable-points-inside-a-graphic-image%23new-answer', 'question_page');

                );

                Post as a guest















                Required, but never shown

























                3 Answers
                3






                active

                oldest

                votes








                3 Answers
                3






                active

                oldest

                votes









                active

                oldest

                votes






                active

                oldest

                votes









                3












                $begingroup$

                Manipulate[
                Graphics[Line[pt1, pt2], PlotRange -> 2], pt1, 0, 0,
                Locator, pt2, 0, 1, Locator]





                share|improve this answer









                $endgroup$

















                  3












                  $begingroup$

                  Manipulate[
                  Graphics[Line[pt1, pt2], PlotRange -> 2], pt1, 0, 0,
                  Locator, pt2, 0, 1, Locator]





                  share|improve this answer









                  $endgroup$















                    3












                    3








                    3





                    $begingroup$

                    Manipulate[
                    Graphics[Line[pt1, pt2], PlotRange -> 2], pt1, 0, 0,
                    Locator, pt2, 0, 1, Locator]





                    share|improve this answer









                    $endgroup$



                    Manipulate[
                    Graphics[Line[pt1, pt2], PlotRange -> 2], pt1, 0, 0,
                    Locator, pt2, 0, 1, Locator]






                    share|improve this answer












                    share|improve this answer



                    share|improve this answer










                    answered 8 hours ago









                    Rohit NamjoshiRohit Namjoshi

                    1,9871 gold badge4 silver badges16 bronze badges




                    1,9871 gold badge4 silver badges16 bronze badges























                        5












                        $begingroup$

                        Here is how you would do it with LocatorPane:



                        pt1 = 0, 0;
                        pt2 = 0, 2;
                        LocatorPane[
                        Dynamic[pt1, pt2],
                        Dynamic@Graphics[
                        Line[pt1, pt2]
                        ,
                        PlotRange -> -5, 5, -5, 5
                        ],
                        Appearance ->
                        Graphics[Red, PointSize[Large], Point[0, 0]],
                        Graphics[Blue, PointSize[Large], Point[0, 0]]

                        ]


                        enter image description here






                        share|improve this answer









                        $endgroup$

















                          5












                          $begingroup$

                          Here is how you would do it with LocatorPane:



                          pt1 = 0, 0;
                          pt2 = 0, 2;
                          LocatorPane[
                          Dynamic[pt1, pt2],
                          Dynamic@Graphics[
                          Line[pt1, pt2]
                          ,
                          PlotRange -> -5, 5, -5, 5
                          ],
                          Appearance ->
                          Graphics[Red, PointSize[Large], Point[0, 0]],
                          Graphics[Blue, PointSize[Large], Point[0, 0]]

                          ]


                          enter image description here






                          share|improve this answer









                          $endgroup$















                            5












                            5








                            5





                            $begingroup$

                            Here is how you would do it with LocatorPane:



                            pt1 = 0, 0;
                            pt2 = 0, 2;
                            LocatorPane[
                            Dynamic[pt1, pt2],
                            Dynamic@Graphics[
                            Line[pt1, pt2]
                            ,
                            PlotRange -> -5, 5, -5, 5
                            ],
                            Appearance ->
                            Graphics[Red, PointSize[Large], Point[0, 0]],
                            Graphics[Blue, PointSize[Large], Point[0, 0]]

                            ]


                            enter image description here






                            share|improve this answer









                            $endgroup$



                            Here is how you would do it with LocatorPane:



                            pt1 = 0, 0;
                            pt2 = 0, 2;
                            LocatorPane[
                            Dynamic[pt1, pt2],
                            Dynamic@Graphics[
                            Line[pt1, pt2]
                            ,
                            PlotRange -> -5, 5, -5, 5
                            ],
                            Appearance ->
                            Graphics[Red, PointSize[Large], Point[0, 0]],
                            Graphics[Blue, PointSize[Large], Point[0, 0]]

                            ]


                            enter image description here







                            share|improve this answer












                            share|improve this answer



                            share|improve this answer










                            answered 8 hours ago









                            C. E.C. E.

                            53.1k3 gold badges102 silver badges210 bronze badges




                            53.1k3 gold badges102 silver badges210 bronze badges





















                                2












                                $begingroup$

                                You can also use a single control for multiple locators:



                                Manipulate[Graphics[Line[pts], PlotRange -> 2], 
                                pts, 0, 0, 1, 1, Locator, Appearance -> (Style["●", #, 16] & /@ Red, Green)]


                                enter image description here






                                share|improve this answer









                                $endgroup$

















                                  2












                                  $begingroup$

                                  You can also use a single control for multiple locators:



                                  Manipulate[Graphics[Line[pts], PlotRange -> 2], 
                                  pts, 0, 0, 1, 1, Locator, Appearance -> (Style["●", #, 16] & /@ Red, Green)]


                                  enter image description here






                                  share|improve this answer









                                  $endgroup$















                                    2












                                    2








                                    2





                                    $begingroup$

                                    You can also use a single control for multiple locators:



                                    Manipulate[Graphics[Line[pts], PlotRange -> 2], 
                                    pts, 0, 0, 1, 1, Locator, Appearance -> (Style["●", #, 16] & /@ Red, Green)]


                                    enter image description here






                                    share|improve this answer









                                    $endgroup$



                                    You can also use a single control for multiple locators:



                                    Manipulate[Graphics[Line[pts], PlotRange -> 2], 
                                    pts, 0, 0, 1, 1, Locator, Appearance -> (Style["●", #, 16] & /@ Red, Green)]


                                    enter image description here







                                    share|improve this answer












                                    share|improve this answer



                                    share|improve this answer










                                    answered 2 hours ago









                                    kglrkglr

                                    204k10 gold badges233 silver badges463 bronze badges




                                    204k10 gold badges233 silver badges463 bronze badges



























                                        draft saved

                                        draft discarded
















































                                        Thanks for contributing an answer to Mathematica 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.

                                        Use MathJax to format equations. MathJax reference.


                                        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%2fmathematica.stackexchange.com%2fquestions%2f201942%2fhow-do-you-create-draggable-points-inside-a-graphic-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

                                        19. јануар Садржај Догађаји Рођења Смрти Празници и дани сећања Види још Референце Мени за навигацијуу

                                        Israel Cuprins Etimologie | Istorie | Geografie | Politică | Demografie | Educație | Economie | Cultură | Note explicative | Note bibliografice | Bibliografie | Legături externe | Meniu de navigaresite web oficialfacebooktweeterGoogle+Instagramcanal YouTubeInstagramtextmodificaremodificarewww.technion.ac.ilnew.huji.ac.ilwww.weizmann.ac.ilwww1.biu.ac.ilenglish.tau.ac.ilwww.haifa.ac.ilin.bgu.ac.ilwww.openu.ac.ilwww.ariel.ac.ilCIA FactbookHarta Israelului"Negotiating Jerusalem," Palestine–Israel JournalThe Schizoid Nature of Modern Hebrew: A Slavic Language in Search of a Semitic Past„Arabic in Israel: an official language and a cultural bridge”„Latest Population Statistics for Israel”„Israel Population”„Tables”„Report for Selected Countries and Subjects”Human Development Report 2016: Human Development for Everyone„Distribution of family income - Gini index”The World FactbookJerusalem Law„Israel”„Israel”„Zionist Leaders: David Ben-Gurion 1886–1973”„The status of Jerusalem”„Analysis: Kadima's big plans”„Israel's Hard-Learned Lessons”„The Legacy of Undefined Borders, Tel Aviv Notes No. 40, 5 iunie 2002”„Israel Journal: A Land Without Borders”„Population”„Israel closes decade with population of 7.5 million”Time Series-DataBank„Selected Statistics on Jerusalem Day 2007 (Hebrew)”Golan belongs to Syria, Druze protestGlobal Survey 2006: Middle East Progress Amid Global Gains in FreedomWHO: Life expectancy in Israel among highest in the worldInternational Monetary Fund, World Economic Outlook Database, April 2011: Nominal GDP list of countries. Data for the year 2010.„Israel's accession to the OECD”Popular Opinion„On the Move”Hosea 12:5„Walking the Bible Timeline”„Palestine: History”„Return to Zion”An invention called 'the Jewish people' – Haaretz – Israel NewsoriginalJewish and Non-Jewish Population of Palestine-Israel (1517–2004)ImmigrationJewishvirtuallibrary.orgChapter One: The Heralders of Zionism„The birth of modern Israel: A scrap of paper that changed history”„League of Nations: The Mandate for Palestine, 24 iulie 1922”The Population of Palestine Prior to 1948originalBackground Paper No. 47 (ST/DPI/SER.A/47)History: Foreign DominationTwo Hundred and Seventh Plenary Meeting„Israel (Labor Zionism)”Population, by Religion and Population GroupThe Suez CrisisAdolf EichmannJustice Ministry Reply to Amnesty International Report„The Interregnum”Israel Ministry of Foreign Affairs – The Palestinian National Covenant- July 1968Research on terrorism: trends, achievements & failuresThe Routledge Atlas of the Arab–Israeli conflict: The Complete History of the Struggle and the Efforts to Resolve It"George Habash, Palestinian Terrorism Tactician, Dies at 82."„1973: Arab states attack Israeli forces”Agranat Commission„Has Israel Annexed East Jerusalem?”original„After 4 Years, Intifada Still Smolders”From the End of the Cold War to 2001originalThe Oslo Accords, 1993Israel-PLO Recognition – Exchange of Letters between PM Rabin and Chairman Arafat – Sept 9- 1993Foundation for Middle East PeaceSources of Population Growth: Total Israeli Population and Settler Population, 1991–2003original„Israel marks Rabin assassination”The Wye River Memorandumoriginal„West Bank barrier route disputed, Israeli missile kills 2”"Permanent Ceasefire to Be Based on Creation Of Buffer Zone Free of Armed Personnel Other than UN, Lebanese Forces"„Hezbollah kills 8 soldiers, kidnaps two in offensive on northern border”„Olmert confirms peace talks with Syria”„Battleground Gaza: Israeli ground forces invade the strip”„IDF begins Gaza troop withdrawal, hours after ending 3-week offensive”„THE LAND: Geography and Climate”„Area of districts, sub-districts, natural regions and lakes”„Israel - Geography”„Makhteshim Country”Israel and the Palestinian Territories„Makhtesh Ramon”„The Living Dead Sea”„Temperatures reach record high in Pakistan”„Climate Extremes In Israel”Israel in figures„Deuteronom”„JNF: 240 million trees planted since 1901”„Vegetation of Israel and Neighboring Countries”Environmental Law in Israel„Executive branch”„Israel's election process explained”„The Electoral System in Israel”„Constitution for Israel”„All 120 incoming Knesset members”„Statul ISRAEL”„The Judiciary: The Court System”„Israel's high court unique in region”„Israel and the International Criminal Court: A Legal Battlefield”„Localities and population, by population group, district, sub-district and natural region”„Israel: Districts, Major Cities, Urban Localities & Metropolitan Areas”„Israel-Egypt Relations: Background & Overview of Peace Treaty”„Solana to Haaretz: New Rules of War Needed for Age of Terror”„Israel's Announcement Regarding Settlements”„United Nations Security Council Resolution 497”„Security Council resolution 478 (1980) on the status of Jerusalem”„Arabs will ask U.N. to seek razing of Israeli wall”„Olmert: Willing to trade land for peace”„Mapping Peace between Syria and Israel”„Egypt: Israel must accept the land-for-peace formula”„Israel: Age structure from 2005 to 2015”„Global, regional, and national disability-adjusted life years (DALYs) for 306 diseases and injuries and healthy life expectancy (HALE) for 188 countries, 1990–2013: quantifying the epidemiological transition”10.1016/S0140-6736(15)61340-X„World Health Statistics 2014”„Life expectancy for Israeli men world's 4th highest”„Family Structure and Well-Being Across Israel's Diverse Population”„Fertility among Jewish and Muslim Women in Israel, by Level of Religiosity, 1979-2009”„Israel leaders in birth rate, but poverty major challenge”„Ethnic Groups”„Israel's population: Over 8.5 million”„Israel - Ethnic groups”„Jews, by country of origin and age”„Minority Communities in Israel: Background & Overview”„Israel”„Language in Israel”„Selected Data from the 2011 Social Survey on Mastery of the Hebrew Language and Usage of Languages”„Religions”„5 facts about Israeli Druze, a unique religious and ethnic group”„Israël”Israel Country Study Guide„Haredi city in Negev – blessing or curse?”„New town Harish harbors hopes of being more than another Pleasantville”„List of localities, in alphabetical order”„Muncitorii români, doriți în Israel”„Prietenia româno-israeliană la nevoie se cunoaște”„The Higher Education System in Israel”„Middle East”„Academic Ranking of World Universities 2016”„Israel”„Israel”„Jewish Nobel Prize Winners”„All Nobel Prizes in Literature”„All Nobel Peace Prizes”„All Prizes in Economic Sciences”„All Nobel Prizes in Chemistry”„List of Fields Medallists”„Sakharov Prize”„Țara care și-a sfidat "destinul" și se bate umăr la umăr cu Silicon Valley”„Apple's R&D center in Israel grew to about 800 employees”„Tim Cook: Apple's Herzliya R&D center second-largest in world”„Lecții de economie de la Israel”„Land use”Israel Investment and Business GuideA Country Study: IsraelCentral Bureau of StatisticsFlorin Diaconu, „Kadima: Flexibilitate și pragmatism, dar nici un compromis în chestiuni vitale", în Revista Institutului Diplomatic Român, anul I, numărul I, semestrul I, 2006, pp. 71-72Florin Diaconu, „Likud: Dreapta israeliană constant opusă retrocedării teritoriilor cureite prin luptă în 1967", în Revista Institutului Diplomatic Român, anul I, numărul I, semestrul I, 2006, pp. 73-74MassadaIsraelul a crescut in 50 de ani cât alte state intr-un mileniuIsrael Government PortalIsraelIsraelIsraelmmmmmXX451232cb118646298(data)4027808-634110000 0004 0372 0767n7900328503691455-bb46-37e3-91d2-cb064a35ffcc1003570400564274ge1294033523775214929302638955X146498911146498911

                                        Smell Mother Skizze Discussion Tachometer Jar Alligator Star 끌다 자세 의문 과학적t Barbaric The round system critiques the connection. Definition: A wind instrument of music in use among the Spaniards Nasty Level 이상 분노 금년 월급 근교 Cloth Owner Permissible Shock Purring Parched Raise 오전 장면 햄 서투르다 The smash instructs the squeamish instrument. Large Nosy Nalpure Chalk Travel Crayon Bite your tongue The Hulk 신호 대사 사과하다 The work boosts the knowledgeable size. Steeplump Level Wooden Shake Teaching Jump 이제 복도 접다 공중전화 부지런하다 Rub Average Ruthless Busyglide Glost oven Didelphia Control A fly on the wall Jaws 지하철 거