(defun c:przejscie()
(command "_arx" "_l" "geomcal")
(setvar "osmode" 0)
(setq p1 (getpoint "\n podaj miejsce wyspy azylu: "))
(setq p2 (cal "p1+[-1.5,0]"))
(command "_line" p1 p2 "")
(setq p3 (cal "p1+[-3,1.5]"))
(setq p4 (cal "p1+[-1.5,3]"))
(setq p5 (cal "p1+[0,3]"))
(command "_line" p4 p5 "")
(command "_arc" p2 p3 p4)
(setq p6 (cal "p1+[4,3]"))
(setq p7 (cal "p1+[5.5,3]"))
(command "_line" p6 p7 "")
(setq p8 (cal "p1+[7,1.5]"))
(setq p9 (cal "p1+[5.5,0]"))
(setq p10 (cal "p1+[4,0]"))
(command "_line" p9 p10 "")
(command "_arc" p7 p8 p9)
(setq p11 (cal "p1+[-53,-2]"))
(setq p12 (cal "p1+[-21.83,-2]"))
(command "_line" p11 p12 "")
(setq p13 (cal "p1+[-20.33,-2.04]"))
(setq p14 (cal "p1+[-18.84,-2.15]"))
(command "_arc" p12 p13 p14)
(setq p15 (cal "p1+[-6.82,-3.35]"))
(command "_line" p14 p15 "")
(setq p16 (cal "p1+[-5.33,-3.46]"))
(setq p17 (cal "p1+[-3.83,-3.5]"))
(command "_arc" p15 p16 p17)
(setq p18 (cal "p1+[7.83,-3.5]"))
(command "_line" p17 p18 "")
(setq p19 (cal "p1+[9.33,-3.46]"))
(setq p20 (cal "p1+[10.82,-3.35]"))
(command "_arc" p18 p19 p20)
(setq p21 (cal "p1+[22.84,-2.15]"))
(command "_line" p20 p21 "")
(command "_line" p20 p21 "")
(setq p22 (cal "p1+[24.33,-2.04]"))
(setq p23 (cal "p1+[25.83,-2]"))
(command "_arc" p21 p22 p23)
(setq p24 (cal "p1+[57,-2]"))
(command "_line" p23 p24 "")
(setq p25 (cal "p1+[4,-0.5]"))
(command "_pline" p1 ".x" p1 ".y" p25 p25 p10 "_c")
(setq p26 (cal "p1+[0,-1]"))
(setq p27 (cal "p1+[4,-1.5]"))
(command "_pline" p26 ".x" p26 ".y" p27 p27 ".x" p27 ".y" p26 "_c")
(setq p28 (cal "p1+[0,-2]"))
(setq p29 (cal "p1+[4,-2.5]"))
(command "_pline" p28 ".x" p28 ".y" p29 p29 ".x" p29 ".y" p28 "_c")
(setq p30 (cal "p1+[0,-3]"))
(setq p31 (cal "p1+[4,-3.5]"))
(command "_pline" p30 ".x" p30 ".y" p31 p31 ".x" p31 ".y" p30 "_c")
(command "_mirror" p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p1 p10 "" p3 p8 "n")
(setq p32 (cal "p1+[-2.83,0.25]"))
(setq p33 (cal "p1+[-2.33,-0.5]"))
(command "_pline" p32 ".x" p32 ".y" p33 p33 ".x" p33 ".y" p32 "_c")
(setq p34 (cal "p1+[-2.83,-0.75]"))
(setq p35 (cal "p1+[-2.33,-1.5]"))
(command "_pline" p34 ".x" p34 ".y" p35 p35 ".x" p35 ".y" p34 "_c")
(setq p36 (cal "p1+[-2.83,-1.75]"))
(setq p37 (cal "p1+[-2.33,-2.5]"))
(command "_pline" p36 ".x" p36 ".y" p37 p37 ".x" p37 ".y" p36 "_c")
(setq p38 (cal "p1+[-2.83,-2.75]"))
(setq p39 (cal "p1+[-2.33,-3.5]"))
(command "_pline" p38 ".x" p38 ".y" p39 p39 ".x" p39 ".y" p38 "_c")
(setq p40 (cal "p1+[6.33,6.5]"))
(setq p41 (cal "p1+[6.83,5.75]"))
(command "_pline" p40 ".x" p40 ".y" p41 p41 ".x" p41 ".y" p40 "_c")
(setq p42 (cal "p1+[6.33,5.5]"))
(setq p43 (cal "p1+[6.83,4.75]"))
(command "_pline" p42 ".x" p42 ".y" p43 p43 ".x" p43 ".y" p42 "_c")
(setq p44 (cal "p1+[6.33,4.5]"))
(setq p45 (cal "p1+[6.83,3.75]"))
(command "_pline" p44 ".x" p44 ".y" p45 p45 ".x" p45 ".y" p44 "_c")
(setq p46 (cal "p1+[6.33,3.5]"))
(setq p47 (cal "p1+[6.83,2.75]"))
(command "_pline" p46 ".x" p46 ".y" p47 p47 ".x" p47 ".y" p46 "_c")
(setq p48 (cal "p1+[-0.5,-4.5]"))
(command "_circle" p48 "0.2" "")
(setq p49 (cal "p1+[-0.5,-4.3]"))
(setq p50 (cal "p1+[-1.2,-3.8]"))
(command "_line" p49 p50 "")
(setq p51 (cal "p1+[0.2,-3.8]"))
(command "_line" p50 p51 "")
(command "_line" p49 p51 "")
(setq p52 (cal "p1+[4.5,1]"))
(command "_circle" p52 "0.2" "")
(setq p53 (cal "p1+[4.5,0.8]"))
(setq p54 (cal "p1+[5.2,0.3]"))
(command "_line" p53 p54 "")
(setq p55 (cal "p1+[3.8,0.3]"))
(command "_line" p54 p55 "")
(command "_line" p53 p55 "")
(setq p56 (cal "p1+[-0.5,2]"))
(command "_circle" p56 "0.2" "")
(setq p57 (cal "p1+[-0.5,2.2]"))
(setq p58 (cal "p1+[-1.2,2.7]"))
(command "_line" p57 p58 "")
(setq p59 (cal "p1+[0.2,2.7]"))
(command "_line" p58 p59 "")
(command "_line" p57 p59 "")
(setq p60 (cal "p1+[4.5,7.5]"))
(command "_circle" p60 "0.2" "")
(setq p61 (cal "p1+[4.5,7.3]"))
(setq p62 (cal "p1+[5.2,6.8]"))
(command "_line" p61 p62 "")
(setq p63 (cal "p1+[3.8,6.8]"))
(command "_line" p62 p63 "")
(command "_line" p61 p63 "")
(setq p64 (cal "p1+[-1.25,7.25]"))
(command "_circle" p64 "0.2" "")
(setq p65 (cal "p1+[-2.17,4.75]"))
(command "_circle" p65 "0.2" "")
(command "_line" p64 p65 "")
(setq p66 (cal "p1+[-1.97,4.75]"))
(setq p67 (cal "p1+[-1.07,5.25]"))
(command "_line" p66 p67 "")
(setq p68 (cal "p1+[-1.07,4.25]"))
(command "_line" p67 p68 "")
(command "_line" p66 p68 "")
(setq p69 (cal "p1+[5.25,-4.25]"))
(command "_circle" p69 "0.2" "")
(setq p70 (cal "p1+[6.17,-1.75]"))
(command "_circle" p70 "0.2" "")
(command "_line" p69 p70 "")
(setq p71 (cal "p1+[5.97,-1.75]"))
(setq p72 (cal "p1+[5.07,-2.25]"))
(command "_line" p71 p72 "")
(setq p73 (cal "p1+[5.07,-1.25]"))
(command "_line" p72 p73 "")
(command "_line" p71 p73 "")
)