function dmptruck
%TRUCK   - Shows truck image

%  Same as truck.m but modified for the Eval GUI.
 
%  Damian Packard
%  Modified by Yama Habibzai, 7-19-96
%  Copyright (c) 1984-98 by The MathWorks, Inc. All Rights Reserved
%  $Revision: 1.2 $ $Date: 1998/09/01 19:01:56 $



f = figure; 
  load dumpfv
  load payload
  % truck
  cla,p=patch('faces',f,'verti',v,'facecolor',[.7 .7 .7],'edgecolor','none', 'clip', 'off');
        lighting g
 
  % Payload
  %   Peaks
  surface('xda',d{1},'yda',d{2},'zda',d{3}*3-3.6,'cdata',d{3}*3-3.6, 'clip', 'off');

  %   L-Shaped Membrane
  surface('xda',([1:43]*.1-17), 'yda',([1:43]*.15-4)', 'zdata',(al-1.5)*.7,'cdata',(al-1.5)*.7,...
          'facelighting','g',...
          'edgecolor','none', 'clip', 'off');
 
  % knot
  surface('xda',atx*.6-6, 'yda',aty*.6, 'zdata',atz*.6+4,'cdata',atz*.6+4,...
          'facelighting','g',...
          'edgecolor','none', 'clip', 'off');
 
  light
 
 
view(125,0);
set(gca,'projectiontype','pers', 'cameraviewangle', 20, 'cameraposition', [25 20.19 5])

set(gca,'projectiontype','orthographic')

axis off; 
set(gcf, 'numbertitle', 'off', 'name', 'Dump Truck');

%==============
%The close button
a = uicontrol('style', 'push',...
'position', [450 25 60 30], 'string', 'Close',...
'callback', 'close');

 

