(print "NICK VAN VLIET") zoom -100,-100 200,100 (defun b (p1)(command "insert" "*pipe" p1 1 0)) (setq p1 (list -50.0000 0.0000))(b p1 ) (setq p1 (list -50.0000 0.0000))(b p1 ) (setq p1 (list -45.0000 21.7940))(b p1 ) (setq p1 (list -45.0000 21.7940))(b p1 ) (setq p1 (list -40.0000 30.0000))(b p1 ) (setq p1 (list -40.0000 30.0000))(b p1 ) (setq p1 (list -35.0000 35.7070))(b p1 ) (setq p1 (list -35.0000 35.7070))(b p1 ) (setq p1 (list -30.0000 40.0000))(b p1 ) (setq p1 (list -30.0000 40.0000))(b p1 ) (setq p1 (list -25.0000 43.3010))(b p1 ) (setq p1 (list -25.0000 43.3010))(b p1 ) (setq p1 (list -20.0000 45.8260))(b p1 ) (setq p1 (list -20.0000 45.8260))(b p1 ) (setq p1 (list -15.0000 47.6970))(b p1 ) (setq p1 (list -15.0000 47.6970))(b p1 ) (setq p1 (list -10.0000 48.9900))(b p1 ) (setq p1 (list -10.0000 48.9900))(b p1 ) (setq p1 (list -5.0000 49.7490))(b p1 ) (setq p1 (list -5.0000 49.7490))(b p1 ) (setq p1 (list 0.0000 50.0000))(b p1 ) (setq p1 (list 0.0000 50.0000))(b p1 ) (setq p1 (list 5.0000 49.7490))(b p1 ) (setq p1 (list 5.0000 49.7490))(b p1 ) (setq p1 (list 10.0000 48.9900))(b p1 ) (setq p1 (list 10.0000 48.9900))(b p1 ) (setq p1 (list 15.0000 47.6970))(b p1 ) (setq p1 (list 15.0000 47.6970))(b p1 ) (setq p1 (list 20.0000 45.8260))(b p1 ) (setq p1 (list 20.0000 45.8260))(b p1 ) (setq p1 (list 25.0000 43.3010))(b p1 ) (setq p1 (list 25.0000 43.3010))(b p1 ) (setq p1 (list 30.0000 40.0000))(b p1 ) (setq p1 (list 30.0000 40.0000))(b p1 ) (setq p1 (list 35.0000 35.7070))(b p1 ) (setq p1 (list 35.0000 35.7070))(b p1 ) (setq p1 (list 40.0000 30.0000))(b p1 ) (setq p1 (list 40.0000 30.0000))(b p1 ) (setq p1 (list 45.0000 21.7940))(b p1 ) (setq p1 (list 45.0000 21.7940))(b p1 ) (setq p1 (list 50.0000 0.0000))(b p1 ) (setq p1 (list 50.0000 0.0000))(b p1 ) zoom e
