function ramp=make_ramp_stimulus(height,duration)
%the name of the function explains the function of the function

uplength=duration/2;
incr=height/uplength;
ramp=[incr:incr:height];
ramp=[ramp fliplr(ramp)];
ramp=[ramp;zeros(1,duration)];
test_sequence=zeros(2,5000);
%test_sequence(1:2,3000:3999)=-.25;
ramp=[test_sequence ramp zeros(2,10000)];
ramp=[ramp';ramp';ramp';ramp';ramp'];
ramp=[ramp;ramp;ramp;ramp;ramp];
% size(ramp)
% figure(6)
% plot(ramp)