Question: Plotting a simply connected domain and multiple paths

I am trying to create a diagram in Maple using its plotting tools and simulate a simply connected domain and multiple paths between two points.

My first try is the following

with(plots); with(plottools)

 

 

curveDomainPts := [[-1, 0], [-.7, 1.2], [0, 1.5], [.7, 1.2], [1.2, 0], [.7, -1.2], [0, -1.4], [-.7, -1.2], [-1, 0]]; domain := polygon(curveDomainPts, color = "LightBlue", transparency = .4); z0 := [-.8, .6]; z := [.9, -.4]; curve1_pts := [[-.8, .6], [-.3, 1.0], [.4, .5], [.9, -.4]]; curve2_pts := [[-.8, .6], [-.7, 0.], [.2, -.6], [.9, -.4]]; curve1 := pointplot(curve1_pts, color = red, linestyle = dot, thickness = 2, connect = true); curve2 := pointplot(curve2_pts, color = green, linestyle = dot, thickness = 2, connect = true); pt1 := pointplot([z0], symbol = solidcircle, symbolsize = 15, color = black); pt2 := pointplot([z], symbol = solidcircle, symbolsize = 15, color = black); label1 := textplot([z0[1], z0[2]-.1, z__0], font = [Helvetica, Bold, 14]); label2 := textplot([z[1], z[2]-.1, "z"], font = [Helvetica, Bold, 14]); display(domain, curve1, curve2, pt1, pt2, label1, label2, scaling = constrained, axes = none, title = "Curved Domain with Arbitrary Paths")

 
 

NULL

I would like to ask if I could create something like that in Maple or should I use another software to draw it?

Download curved_domain.mw

Please Wait...