In[]:=
p={{0,0},{1,-1},{1,1},{4,0}};​​q={{0,0},{1,-1},{4,0},{1,1}};​​Graphics[Polygon@p,ImageSize->150]​​Graphics[Polygon@q,ImageSize->150]
Out[]=
Out[]=