to sepline
 pu fd 1 pd fd 2 pu fd 2 pd fd 2 pu fd 1
end

to shortline
 pu fd 2 pd fd 4 pu fd 2
end

to asterisk
 pu seth 0
 fd 2 rt 90
 sepline
 pu lt 90 fd 1 lt 90
 shortline
 pu rt 90 fd 1 rt 90
 pd fd 8
 pu lt 90 fd 1 lt 90
 shortline
 pu rt 90 fd 1 rt 90
 sepline
 pu rt 90 fd 6 rt 90 fd 8 seth 0
end

to astbox :ax :ay
 pu
 repeat :ax - 1 [asterisk pu fd 8 rt 90 fd 8]
 repeat :ay - 1 [asterisk pu rt 90 fd 8 rt 90 fd 8]
 repeat :ax - 1 [asterisk pu lt 90 fd 8 lt 90 fd 8]
 repeat :ay - 1 [asterisk pu fd 8 lt 90 fd 8]
end

to astshape
 pu
 setxy - 160 0
 astbox 10 10
 setxy ( - 160 ) ( - 48 )
 astbox 16 4
 setxy ( - 160 ) 48
 astbox 4 16
 pu home ht
end
