diff options
Diffstat (limited to 'kig/examples/fregier.kigt')
| -rw-r--r-- | kig/examples/fregier.kigt | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/kig/examples/fregier.kigt b/kig/examples/fregier.kigt new file mode 100644 index 00000000..7f986fec --- /dev/null +++ b/kig/examples/fregier.kigt @@ -0,0 +1,61 @@ +<!DOCTYPE KigMacroFile> +<KigMacroFile Number="1" Version="0.4.0" > + <Macro> + <Name>fregier</Name> + <Description></Description> + <Construction> + <input requirement="conic" id="1" /> + <input requirement="point" id="2" /> + <intermediate action="calc" type="ConicPolarLine" id="3" > + <arg>1</arg> + <arg>2</arg> + </intermediate> + <intermediate action="calc" type="LinePerpend" id="4" > + <arg>3</arg> + <arg>2</arg> + </intermediate> + <intermediate action="push" type="int" id="5" >1</intermediate> + <intermediate action="calc" type="ConicLineIntersection" id="6" > + <arg>1</arg> + <arg>4</arg> + <arg>5</arg> + </intermediate> + <intermediate action="calc" type="MidPoint" id="7" > + <arg>2</arg> + <arg>6</arg> + </intermediate> + <intermediate action="calc" type="LinePerpend" id="8" > + <arg>4</arg> + <arg>7</arg> + </intermediate> + <intermediate action="push" type="int" id="9" >-1</intermediate> + <intermediate action="calc" type="ConicLineIntersection" id="10" > + <arg>1</arg> + <arg>8</arg> + <arg>9</arg> + </intermediate> + <intermediate action="calc" type="RayAB" id="11" > + <arg>2</arg> + <arg>10</arg> + </intermediate> + <intermediate action="calc" type="LinePerpend" id="12" > + <arg>11</arg> + <arg>2</arg> + </intermediate> + <intermediate action="push" type="int" id="13" >1</intermediate> + <intermediate action="calc" type="ConicLineIntersection" id="14" > + <arg>1</arg> + <arg>12</arg> + <arg>13</arg> + </intermediate> + <intermediate action="calc" type="SegmentAB" id="15" > + <arg>10</arg> + <arg>14</arg> + </intermediate> + <result action="calc" type="LineLineIntersection" id="16" > + <arg>15</arg> + <arg>4</arg> + </result> + </Construction> + </Macro> +</KigMacroFile> |