Вращающийся квадрат

 

Вчера увидел программу с замудренным кодом, решил повторить программу.

  10 LET l=8: LET s=175: DIM x(4): DIM y(4): DIM a(4): DIM b(4)
  20 LET x(1)=0: LET y(1)=0
  21 LET x(2)=s: LET y(2)=0
  22 LET x(3)=s: LET y(3)=s
  23 LET x(4)=0: LET y(4)=s
  30 FOR n=0 TO 10
  40 FOR i=1 TO 4
  50 LET j=i+1: IF j=5 THEN LET j=1
  51 PLOT 40+x(i),y(i): DRAW x(j)-x(i),y(j)-y(i)
  55 LET a(i)=(x(i)+l*x(j))/(1+l)
  56 LET b(i)=(y(i)+l*y(j))/(1+l)
  57 NEXT i
  60 FOR i=1 TO 4
66 LET x(i)=a(i): LET y(i)=b(i)
  68 NEXT i
  70 NEXT n

тут