Для начала вот такой прикольчик. Никаких коментов нет. Копируем, вставляем, наслаждаемся.
x=Cum(1);
L1=LastValue(x);
y0=20;
y1=60;
y=40;
n=4;
d0=100;
dd=8;
d=d0;
Plot(LineArray(x[L1-d], y0, x[L1-d+2], y1, 0),"",1,4);
Plot(LineArray(x[L1-d+1], y1, x[L1-d+6], y1, 0),"",1,4);
d1=d-n;
Plot(LineArray(x[L1-d1], y0, x[L1-d1+2], y1, 0),"",1,4);

d=d0-dd;
Plot(LineArray(x[L1-d], y0, x[L1-d+2], y1, 0),"",1,4);
Plot(LineArray(x[L1-d+1], y, x[L1-d+5], y, 0),"",1,4);
Plot(LineArray(x[L1-d+2], y1, x[L1-d+6], y1, 0),"",1,4);
d1=d-n;
Plot(LineArray(x[L1-d1+1], y, x[L1-d1+2], y1, 0),"",1,4);

d=d-dd;
Plot(LineArray(x[L1-d], y0, x[L1-d+2],y1, 0),"",1,4);
Plot(LineArray(x[L1-d], y0, x[L1-d+4], y0, 0),"",1,4);
Plot(LineArray(x[L1-d+1], y, x[L1-d+4], y, 0),"",1,4);
Plot(LineArray(x[L1-d+2], y1, x[L1-d+6], y1, 0),"",1,4);

d=d-dd;
Plot(LineArray(x[L1-d], y0, x[L1-d+2],y1, 0),"",1,4);
Plot(LineArray(x[L1-d], y0, x[L1-d+3], y0, 0),"",1,4);
Plot(LineArray(x[L1-d+1], y, x[L1-d+4], y, 0),"",1,4);
Plot(LineArray(x[L1-d+2], y1, x[L1-d+5], y1, 0),"",1,4);
Plot(LineArray(x[L1-d+3], y0, x[L1-d+5], 30, 0),"",1,4);
Plot(LineArray(x[L1-d+4], y, x[L1-d+5], 30, 0),"",1,4);
Plot(LineArray(x[L1-d+4], y, x[L1-d+6], 50, 0),"",1,4);
Plot(LineArray(x[L1-d+5], y1, x[L1-d+6], 50, 0),"",1,4);

d=d-dd;
Plot(LineArray(x[L1-d], y0, x[L1-d+2],y1, 0),"",1,4);
Plot(LineArray(x[L1-d], y0, x[L1-d+4], y0, 0),"",1,4);
Plot(LineArray(x[L1-d+1], y, x[L1-d+4], y, 0),"",1,4);
Plot(LineArray(x[L1-d+2], y1, x[L1-d+6], y1, 0),"",1,4);

d=d-dd;
Plot(LineArray(x[L1-d], y0, x[L1-d+3],y1, 0),"",1,4);
Plot(LineArray(x[L1-d+4], y0, x[L1-d+6],y1, 0),"",1,4);
Plot(LineArray(x[L1-d-1], y0, x[L1-d+5], y0, 0),"",1,4);
Plot(LineArray(x[L1-d+2], y1, x[L1-d+6], y1, 0),"",1,4);