# ประตู

#Elevation 500.mm

var w = 800.mm

# กรอบ

rect 0.mm,0.mm,50.mm,100.mm

rect $w+50.mm,0.mm,50.mm,100.mm

# บาน

rect $w,100.mm,50.mm,$w

line 50.mm,0.mm , $w+50.mm, 0.mm

line 50.mm,50.mm , $w+50.mm, 50.mm

line 50.mm,100.mm , $w, 100.mm

# วงสวิง

arc $w+50.mm, 100.mm , $w , 90.degrees , 180.degrees , 10

# สัญลักษณ์

circle $w / 2 + 100.mm , $w / 2 , 120.mm, "None" , 24

text $w / 2 +40.mm, $w / 2 -60.mm , "D1" , 125.mm