h1 = 30: h2 = 60: h3 = 90: 
v1 = 140: v2=120: v3=100: v4=80: v5=60: v6=45: v7=20
dim poly (10,2), poly1(10,2), poly2(10,2), poly3(10,2)
degrees
graph equalscales,vscale=15.6,voffset=-2.3,hoffset=6.9,noaxes
shape linecolor=(0,0,0),lineweight=1.5
shape hradius=10, vradius=7

//Rectangles -------------------------------------------

r$="Rectangles"
text string=r$,x=h1-20,y=v1+10
shape filltype=solid
shape center=(h1,v1),fillcolor=(255,0,0), rectangle
shape center=(h1+5,v1+5), fillcolor=(0,0,255), rectangle

shape filltype=hatch
shape center=(h2,v1),fillcolor=(255,0,0), hatch=right, rectangle
shape center=(h2+5,v1+5), fillcolor=(0,0,255), hatch=left,rectangle

shape filltype = none
shape center=(h3,v1), rectangle
shape center=(h3+5,v1+5), rectangle

//Ellipses ------------------------------------------

e$="Ellipses"
text string=e$,x=h1-20,y=v2+10
shape filltype=solid
shape center=(h1,v2),fillcolor=(255,0,0), ellipse
shape center=(h1+5,v2+5), fillcolor=(0,0,255), ellipse

shape filltype=hatch
shape center=(h2,v2),fillcolor=(255,0,0), hatch=right, ellipse
shape center=(h2+5,v2+5), fillcolor=(0,0,255), hatch=left,ellipse

shape filltype = none
shape center=(h3,v2), ellipse
shape center=(h3+5,v2+5), ellipse

// Arc --------------------------------------------

a$="Arc/Lines"
text string=a$,x=h1-20,y=v3+10
shape filltype=solid
shape center=(h1,v3),startangle=0,endangle=120,arc

shape linestart=(h2-10, v3+7),lineend=(h2+10,v3-7),line
shape linestart=(h3-10, v3-7),lineend=(h3+10,v3+7),line

// Chords ---------------------------------------------

c$="Chords"
text string=c$,x=h1-20,y=v4+10
shape filltype=solid
shape center=(h1,v4),startangle=0,endangle=120,chord
shape filltype=hatch, hatch=diagcross
shape center=(h2,v4),startangle=0,endangle=120,chord
shape filltype=none
shape center=(h3,v4),startangle=0,endangle=120,chord

// Pie Segments----------------------------------------

p$="Pie"
text string=p$,x=h1-20,y=v5+10
shape center=(h1,v5)
shape filltype=solid,fillcolor=(0,0,255)
shape startangle=0,endangle=75, pie
shape fillcolor=(255,0,0)
shape startangle=75,endangle=120, pie

shape center=(h2,v5)
shape filltype=hatch, fillcolor=(0,0,255), hatch=cross
shape startangle=0,endangle=75, pie
shape fillcolor=(255,0,0),hatch=diagcross
shape startangle=75,endangle=120, pie

shape center=(h3,v5)
shape filltype=none
shape startangle=0,endangle=75, pie
shape startangle=75,endangle=120, pie

// Polygons --------------------------------------

pl$ = "Polygons"
text string=pl$, x=h1-20, y=v6+10

r1 = 10
r2 = 3.9
for i = 0 to 8 step 2
  poly (i,0) = r1 * cos (36 * i)
  poly (i,1) = r1 * sin (36 * i)
  poly (i+1,0) = r2 * cos (36 * (i+1))
  poly (i+1,1) = r2 * sin (36 * (i+1))
next
shape polycount=10
for i=0 to 9
  poly1(i,0) = poly(i,0) + h1
  poly1(i,1) = poly(i,1) + v6
  poly2(i,0) = poly(i,0) + h2
  poly2(i,1) = poly(i,1) + v6
  poly3(i,0) = poly(i,0) + h3
  poly3(i,1) = poly(i,1) + v6
next

shape filltype=solid, fillcolor=(216,180,0)
shape polypoints=poly1
shape polygon 

shape filltype=hatch, hatch=horizontal
shape polypoints=poly2, polygon

shape filltype=none
shape polypoints=poly3, polygon

// Big Pie Chart -------------------------------------

pc$="Pie Chart"
text string=pc$,x=h1-20,y=v7+10
shape center=(h2-13,v7),radius=15
shape filltype=solid,fillcolor=(255,0,0)
shape startangle=0,endangle=45,pie
shape fillcolor=(255,200,0)
shape startangle=45,endangle=100,pie
shape fillcolor=(0,0,255),filltype=hatch,hatch=right
shape startangle=100,endangle=140,pie
shape filltype=solid,fillcolor=(255,0,200)
shape startangle=140,endangle=200,pie
shape fillcolor=(0,255,200)
shape startangle=200,endangle=245,pie
shape fillcolor=(255,150,200)
shape startangle=245,endangle=305,pie
shape fillcolor=(0,255,0),filltype=hatch,hatch=cross
shape startangle=305,endangle=360,pie