updated house drawing with ask for penwidth

[dgd]

I'd like students to make a series of houses that would recognize the
boarders of an adjacent house... squeeze as many houses in as you
can... :) Any tips?
------------

# house.logo

reset
$penwidth = ask "Penwidth"
penup
forward 50
pendown
pw $penwidth #penwidth
go 200, 200

# house body

turnleft 90
forward 100
turnright 90
forward 100
turnleft 90

forward 30
turnright 140
forward 105
turnright 80
forward 105
turnright 140
forward 30


turnleft 90
forward 100

# attic window

go 120, 90
turnleft 90
forward 60
turnleft 90

repeat 90 {
forward 1.05
turnleft 2
}

# attic window middle line

go 150, 90
turnright 180
forward 30

# attic window diagonal lines

tr 45
go 135, 77
forward 10
go 135, 82
forward 10

go 160, 79
forward 10
go 160, 84
forward 10
tl 45

# door

go 120,200
forward 50
tr 90
forward 30
tr 90
forward 50

# door knob

go 145, 175

repeat 24 {
forward 1
tr 15
}

# window

go 160,140
tr 180
forward 25
tr 90
forward 25
tr 90
forward 25
tr 90
forward 25
tr 90

# window centre lines

go 172.5,140
forward 25
tr 90

go 160,127.5
forward 25

# window diagonal lines
#pw 1
tl 45
go 164, 134
forward 5
go 164, 138
forward 5

go 177, 121
forward 5
go 177, 125
forward 5
tr 45

go 230,150