Warning, /education/kig/macros/square.kigt is written in an unsupported language. File is not indexed.

0001 <!DOCTYPE KigMacroFile>
0002 <KigMacroFile Number="1" Version="0.9.0" >
0003  <Macro>
0004   <Name>Square</Name>
0005   <Description>Square with two given adjacent vertices</Description>
0006   <ActionName>objects_new_square</ActionName>
0007   <IconFileName>square.png</IconFileName>
0008   <Construction>
0009    <input requirement="point" id="1" />
0010    <input requirement="point" id="2" />
0011    <intermediate action="calc" type="SegmentAB" id="3" >
0012     <arg>1</arg>
0013     <arg>2</arg>
0014    </intermediate>
0015    <intermediate action="fetch-property" property="mid-point" id="4" >
0016     <arg>3</arg>
0017    </intermediate>
0018    <intermediate action="calc" type="CircleBCP" id="5" >
0019     <arg>4</arg>
0020     <arg>1</arg>
0021    </intermediate>
0022    <intermediate action="calc" type="SegmentAB" id="6" >
0023     <arg>1</arg>
0024     <arg>2</arg>
0025    </intermediate>
0026    <intermediate action="calc" type="LinePerpend" id="7" >
0027     <arg>6</arg>
0028     <arg>4</arg>
0029    </intermediate>
0030    <intermediate action="push" type="int" id="8" >-1</intermediate>
0031    <intermediate action="calc" type="ConicLineIntersection" id="9" >
0032     <arg>5</arg>
0033     <arg>7</arg>
0034     <arg>8</arg>
0035    </intermediate>
0036    <intermediate action="push" type="int" id="10" >4</intermediate>
0037    <result action="calc" type="PoligonBCV" id="11" >
0038     <arg>9</arg>
0039     <arg>1</arg>
0040     <arg>10</arg>
0041    </result>
0042   </Construction>
0043  </Macro>
0044 </KigMacroFile>