/usr/share/drgeo/examples/scheme/pappo.scm is in drgeo 1.1.0-10.2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | (new-figure "Pappo")
(define (circle n)
(let*((r (Numeric "" free 0 0 (/ 15 ( + 6 (* n n )))))
(c (Point "" free (* 5 (/ 15 ( + 6 (* n n ))))
(* 2 (* n (/ 15 ( + 6 (* n n )))))))
(p (Circle "" center-radius c r )))
(send r masked)
(if (> n 0)
(circle (- n 1)))))
(circle 10)
(lets Point "A" free 5 0)
(lets Point "O" free 0 0)
(lets Point "B" free 15 0)
(lets Point "M" middle-2pts B O)
(lets Circle "" 2points M O)
(lets Circle "" 2points A O)
(lets Line "" 2points A O)
|