summaryrefslogtreecommitdiff
path: root/graphics/epix/samples/pascal.xp
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/epix/samples/pascal.xp')
-rw-r--r--graphics/epix/samples/pascal.xp53
1 files changed, 0 insertions, 53 deletions
diff --git a/graphics/epix/samples/pascal.xp b/graphics/epix/samples/pascal.xp
deleted file mode 100644
index 7c597077a0..0000000000
--- a/graphics/epix/samples/pascal.xp
+++ /dev/null
@@ -1,53 +0,0 @@
-/* -*-ePiX-*- */
-#include "epix.h"
-using namespace ePiX;
-
-int main()
-{
- picture(P(-2,-2),P(2,2), "3 x 3in");
-
- begin();
- set_crop();
-
- P V(2,-0.25), W(3,1);
- P P1(-1.5,-1), P2(P1 + V), P3(P1 + 1.5*V); // points
- P Q1(-1,1), Q2(Q1 + 0.5*W), Q3(Q1 + W);
-
- Segment L12(P1, Q2), L13(P1, Q3);
- Segment L21(P2, Q1), L23(P2, Q3);
- Segment L31(P3, Q1), L32(P3, Q2);
-
- // points of intersection
- P R1(L12*L21), R2(L13*L31), R3(L32*L23);
-
- dot(P1, P(0,-2), "$P_1$", b);
- dot(P2, P(0,-2), "$P_2$", b);
- dot(P3, P(0,-2), "$P_3$", b);
-
- dot(Q1, P(0,2), "$Q_1$", t);
- dot(Q2, P(0,2), "$Q_2$", t);
- dot(Q3, P(0,2), "$Q_3$", t);
-
- red();
- L12.draw();
- L21.draw();
- L13.draw();
-
- L31.draw();
- L32.draw();
- L23.draw();
-
- green();
- Line(P1,P3);
- Line(Q1,Q3);
-
- blue();
- dot(R1, P(4,2), "$p_1$", r);
- dot(R2, P(4,2), "$p_2$", r);
- dot(R3, P(4,2), "$p_3$", r);
-
- dashed();
- Line(R1,R3);
-
- end();
-}