Wallpaper

to max
  make "x xcor
  make "y ycor
  stringart  :x :y setpc random 15
  stringart2 :x :y setpc random 15
  stringart3 :x :y setpc random 15
  stringart4 :x :y setpc random 15
  setxy :X :Y
end

TO STRINGART :X :Y
  REPEAT 10 [
    PENUP
    SETXY :X + (REPCOUNT * 10) :Y + 0
    PENDOWN
    SETXY :X + 0 :Y + (110 - REPCOUNT * 10)
  ]
END

TO STRINGART2 :X :Y
  REPEAT 10 [
    PENUP
    SETXY :X + (REPCOUNT * 10) :Y + 0
    PENDOWN
    SETXY :X + 0 :Y + (-110 - REPCOUNT * -10)
  ]
END

TO STRINGART3 :X :Y
  REPEAT 10 [
    PENUP
    SETXY :X + (REPCOUNT * -10) :Y + 0
    PENDOWN
    SETXY :X + 0 :Y + (110 - REPCOUNT * 10)
  ]
END

TO STRINGART4 :X :Y
  REPEAT 10 [
    PENUP
    SETXY :X + (REPCOUNT * -10) :Y + 0
    PENDOWN
    SETXY :X + 0 :Y + (-110 - REPCOUNT * -10)
  ]
END

to wallpaper
  repeat 675989972 [ repeat 5 [max fd 200] rt 90 fd 200 lt 90]
end

wallpaper