kig/macros/square.kigt

   1 <!DOCTYPE KigMacroFile>
   2 <KigMacroFile Number="1" Version="0.9.0" >
   3  <Macro>
   4   <Name>Square</Name>
   5   <Description>Square with two given adjacent vertices</Description>
   6   <ActionName>objects_new_square</ActionName>
   7   <IconFileName>square.png</IconFileName>
   8   <Construction>
   9    <input requirement="point" id="1" />
  10    <input requirement="point" id="2" />
  11    <intermediate action="calc" type="SegmentAB" id="3" >
  12     <arg>1</arg>
  13     <arg>2</arg>
  14    </intermediate>
  15    <intermediate action="fetch-property" property="mid-point" id="4" >
  16     <arg>3</arg>
  17    </intermediate>
  18    <intermediate action="calc" type="CircleBCP" id="5" >
  19     <arg>4</arg>
  20     <arg>1</arg>
  21    </intermediate>
  22    <intermediate action="calc" type="SegmentAB" id="6" >
  23     <arg>1</arg>
  24     <arg>2</arg>
  25    </intermediate>
  26    <intermediate action="calc" type="LinePerpend" id="7" >
  27     <arg>6</arg>
  28     <arg>4</arg>
  29    </intermediate>
  30    <intermediate action="push" type="int" id="8" >-1</intermediate>
  31    <intermediate action="calc" type="ConicLineIntersection" id="9" >
  32     <arg>5</arg>
  33     <arg>7</arg>
  34     <arg>8</arg>
  35    </intermediate>
  36    <intermediate action="push" type="int" id="10" >4</intermediate>
  37    <result action="calc" type="PoligonBCV" id="11" >
  38     <arg>9</arg>
  39     <arg>1</arg>
  40     <arg>10</arg>
  41    </result>
  42   </Construction>
  43  </Macro>
  44 </KigMacroFile>