% kids2_ plots Figure 2.34
% Copyright S. Nakamura, 1995
hold off, clear, clf
set(gcf, 'NumberTitle','off','Name', 'Figure 2.34')
hold off, clear, clg
axis ([-6 17 -6 17])
hold on
%axis('square')
axis('off')
x0=-3;x1=0;y0=2;y1=2;
Body=10 ;
Rarm1=10; Rarm2=30;
Larm1=30; Larm2=90;
Rleg1=90; Rleg2=30;
Lleg1=30; Lleg2=80;
human_([x0,y0],[x1,y1], Body, ...
Rarm1,Rarm2,Larm1,Larm2, ...
Rleg1,Rleg2,Lleg1,Lleg2 )
human_([1,0],[4,1], Body, ...
Rarm1,Rarm2,Larm1,Larm2, ...
Rleg1,Rleg2,Lleg1,Lleg2 )
human_([6,1],[9,1], -Body, ...
Rarm1,Rarm2,Larm1,Larm2, ...
Rleg1,Rleg2,Lleg1,Lleg2 )
human_([-4,1],[-1.5,1], Body*1.1, ...
-Rarm1,Rarm2,Larm1,Larm2, ...
Rleg1,Rleg2,Lleg1,Lleg2 )
human_([-6,4],[-3.9,4], Body, ...
Rarm1,Rarm2,Larm1,Larm2, ...
Rleg1,Rleg2,Lleg1,Lleg2 )
human_([8,0.5],[12.5,0.5], Body, ...
-Rarm1,Rarm2*2,Larm1,Larm2, ...
Rleg1,Rleg2,Lleg1,Lleg2 )
human_([11,-2.5],[16,-2], 2*Body, ...
-Rarm1,Rarm2,Larm1,-Larm2, ...
Rleg1,Rleg2,Lleg1,Lleg2 )
xlabel('They are going back.')
