The program below is a high school problem, related to the area a horse can graze, given it is tethered to a rectangular barn. The level of difficulty is related to the length of rope.

I wanted to display some graphics of the field, barn and tethered horse - this latter being the most difficult. I experimented with a .png picture of a plain silouhette of a horse, imported this into Photoshop, then saved it as a .pdf file, importing this into Maple, I managed to import this into the worksheet, but I wanted a scaled down version of the horse in the program plots[display] section. I was unsuccessful in this. Undeterred, I decided to try and draw a version of a horse using the plots/plottools packages. The resulting "horse" looks more like a cat, warthog, mouse or chameleon!

I understand later versions of Maple are able to import graphic images. I'd appreciate some feedback as to how easy this is, and the quality of the resulting images in Maple output.

Thanks,

David . .

**restart:**

**# # # # # # # # # # # # # # # # # # # # # # # # # # # #**

**# Horse tethered to barn - what area of grass?**

**# # # # # # # # # # # # # # # # # # # # # # # # # # # #**

**with(plots):**

**with(plottools):**

**macro(palegreen=COLOR(RGB, .5607, .9372, .5607)):**

**col1:=`black`:**

**print(`A horse is tethered to the corner of a barn, 10 m wide and 20 m long. Find the area`);**

**print(`the horse can graze, if the length of rope is:`);**

**print(` i.) 5 m ii.) 25 m amd iii.) 50 m`);**

**#Length of rope**

**L:=10:**

**#Dims of barn**

**len:=20:wid:=10:**

**#Position of bottom left corner of barn**

**x_barn:=50:y_barn:=50:**

**len:=20:wid:=10:**

**#dimensions of field**

**flen:=120:fwid:=110:**

**rect_barn:=rectangle([x_barn,wid+y_barn], [len+x_barn,y_barn], color=brown):**

**rect_field:=rectangle([0,fwid], [flen,0], color=palegreen):**

**#Position of horse**

**x0:=37:y0:=32:**

**a := 4: b := 2.5:**

**belli := ellipse([x0,y0], a, b, filled=true, color=col1):**

**legf:=line([x0-1,y0-2], [x0-2,y0-6], color=col1, linestyle=1, thickness=1):**

**legf2:=line([x0-2,y0-2], [x0-3,y0-6], color=col1, linestyle=1, thickness=2):**

**rleg:=line([x0+1,y0-2], [x0+2,y0-6], color=col1, linestyle=1, thickness=2):**

**rleg2:=line([x0+2,y0-2], [x0+3,y0-6], color=col1, linestyle=1, thickness=2):**

**head := polygon([[x0-6,y0+3],[x0-5,y0+4], [x0-2,y0+5], [x0-3,y0+2]], color=brown, linestyle=3, thickness=2):**

**tail:=line([x0+6,y0-4], [x0+4,y0+1], color=col1, linestyle=1,thickness=2):**

**a := arc([x0+13,y0+3], 15, Pi/2..Pi+.1, color=blue):**

**plots[display](a,tail,head,belli,legf,legf2,rleg,rleg2,rect_barn,rect_field, scaling=constrained, axes=none);**