Kleiner Hinweis zwischendurch, Du kannst Dir einige überflüssige Zeilen schenken!
...
subtract tSpinne1 from tLS
## put tLS into tLS
end if
end spinneWaagerechtSpinne1
on spinneSenkrechtSpinne1
...
end repeat
## put tTS - tSpinne1 into tNew
## put tNew into tTS
## put tHG - tSpinne1 into tNew2
## put tNew2 into tHG
## put tHBL - tSpinne1 into tNew3
## put tNew3 into tHBL
## Besser:
subtract tSpinne1 from tTs
subtract tSpinne1 from tHG
subtract tSpinne1 from tHBL
...
