folder MPEG7... contains 1400 shape-files (point lists, *.pl), the class name is the filename before the dash '-', e.g. filename :'apple-01.pl' => class = apple
I added some utilities:
---
readPlist:
readPlist(filename, <show>):  reads a *.pl file into a n x 2 matrix  <and plots the shape>

---
plotSlist:
%PLOTSLIST(s,<markOn>,<color>,<closePolygon>) draws polygon given by slist
%S: polygonal list
% optional:
%  markOn: mark vertices (default: off)
%  color: plot color of segments (default: blue)
%  closePolygon: connect first and last vertex (default: on)

---
evolution: Shape abstraction
%EVOLUTION(slist, number,<maxvalue>,<keepEndpoints>,<processUntilConvex>,<doNotNormalize>,<show>)
% discrete curve evolution of slist to n points
%input: slist, number of vertices in resulting list
%       optional: maxvalue: stop criterion,if >0.0 value overrides number
%       optional: keepEndpoints. if set to 1, endpoints are NOT deleted
%       optional: processUntilConvex. if set to 1, evolution continues until
%                 shape is convex
%       optional: doNotNormalize: shortcuts normalization by arclength
%       optional: show: displayflag
%output: s=simplificated list
%			value= vector containing values of remaining vertices in point-order
%			delval= vector containing values of deleted vertices in order of deletion
