kig/macros/circle_by_point_and_diameter.kigt

   1 <!DOCTYPE KigMacroFile>
   2 <KigMacroFile Number="1" Version="0.9.0" >
   3  <Macro>
   4   <Name>Circle by Point &amp;&amp; Segment (as the Diameter)</Name>
   5   <Description>A circle defined by its center and the length of a segment as the diameter</Description>
   6   <ActionName>objects_new_circlebpd</ActionName>
   7   <IconFileName>circlebpd</IconFileName>
   8   <Construction>
   9    <input requirement="point" id="1">
  10     <UseText>Construct a circle with this center</UseText>
  11     <SelectStatement>Select the center of the new circle...</SelectStatement>
  12    </input>
  13    <input requirement="segment" id="2">
  14     <UseText>Construct a circle with the diameter given by the length of this segment</UseText>
  15     <SelectStatement>Select the segment whose length gives the diameter of the new circle...</SelectStatement>
  16    </input>
  17    <intermediate action="fetch-property" property="end-point-A" id="3" >
  18     <arg>2</arg>
  19    </intermediate>
  20    <intermediate action="fetch-property" property="mid-point" id="4" >
  21     <arg>2</arg>
  22    </intermediate>
  23    <intermediate action="calc" type="SegmentAB" id="5" >
  24     <arg>3</arg>
  25     <arg>4</arg>
  26    </intermediate>
  27    <intermediate action="fetch-property" property="length" id="6" >
  28     <arg>5</arg>
  29    </intermediate>
  30    <result action="calc" type="CircleBPR" id="7" >
  31     <arg>1</arg>
  32     <arg>6</arg>
  33    </result>
  34   </Construction>
  35  </Macro>
  36 </KigMacroFile>