film := proc(d)                      
       local i, j, n, F;             
       n := nops(d);                
       F := array(1..n);             
       for i from 1 to n do           
           F[i] := polygonplot(d[i]);
       od;
       convert(F,list);
    end: