# Question:Intersectplot line quality

## Question:Intersectplot line quality

Maple 2024

I am using intersectplot  to make projective coordinate plots. Everything intersects the plane z=1. I find the plot quality poor, i.e. dotty dashy lines and circle. This seem to be the best linestyle=solid can do here. gridrefine can't be applied here.
Any suggestions to improve quality here?
Maybe intersectplot is not the best aprroach here but so far it is all if have figured out.

 > restart
 >
 >
 > with(plottools)
 (1)
 > with(plots)
 (2)
 >
 >
 > DistCircle:=x^2+y^2=1
 (3)
 > pt1:=[1/4,3/4]
 (4)
 > pt2:=[7/8,-1/3]
 (5)
 > pt3:=[-3/2,3/7]
 (6)
 > pt4:=[3/5,-4/5]
 (7)
 > pt5:=[-1/10,-3/2]
 (8)
 >
 > L12:=-(13*x)/12 - (5*y)/8 + 71/96; #LnPeqns(pt1,pt2);
 (9)
 > L13:=-(9*x)/28 + (7*y)/4 - 69/56; #LnPeqns(pt1,pt3);
 (10)
 > L23:=(16*x)/21 + (19*y)/8 + 1/8; #LnPeqns(pt2,pt3);
 (11)
 > L35:=(27*x)/14 + (7*y)/5 + 321/140; #LnPeqns(pt5,pt3)
 (12)
 > nullline:=3/5*x-4/5*y-1
 (13)
 > ptplt:=point([pt1,pt2,pt3,pt4,pt5],color="Green",symbol=solidcircle,symbolsize=10): txtplt:=textplot([pt4[],typeset("pt4")],align={below,right}):
 > plt1:=display(txtplt,implicitplot([DistCircle,L12,L13,L23,L35,nullline],x=-2..2,y=-1.5...1.5,color=[red,blue,blue,blue,blue,cyan]),ptplt,scaling=constrained)
 >
 > # Projective Geometry Version
 > DistCirclez:=x^2+y^2-z^2;  #a Cone
 >
 (14)
 > pt1p:=[pt1[],1]; pt2p:=[pt2[],1]; pt3p:=[pt3[],1]; pt4p:=[pt4[],1]; pt5p:=[pt5[],1];
 (15)
 >
 >
 >
 > L12p:=(13*x)/12 + (5*y)/8 - (71*z)/96;#LnPeqns([pt1p,pt2p,[0,0,0]]);
 (16)
 > L13p:=(13*x)/12 + (5*y)/8 - (71*z)/96;#LnPeqns([pt1p,pt3p,[0,0,0]]);
 (17)
 > L23p:=(9*x)/28 - (7*y)/4 + (69*z)/56;#LnPeqns([pt2p,pt3p,[0,0,0]]);
 (18)
 > L35p:=(27*x)/14 + (7*y)/5 + (321*z)/140;#LnPeqns([pt3p,pt5p,[0,0,0]]);
 (19)
 > L04p:=3/5*x-4/5*y-1*z;
 (20)
 > ptpltp:=point([pt1p,pt2p,pt3p,pt4p,pt5p],symbol=solidsphere, symbolsize=8,color="green"): intp1:=intersectplot(DistCirclez,z=1,x=-2.5..2.5,y=-2.5..2.5,z=0..1,linestyle=solid):#unit circle at z=1 intp12p:=intersectplot(L12p,z=1,x=-2.5..2.5,y=-2.5..2.5,z=0..1,color=blue): intp13p:=intersectplot(L13p,z=1,x=-2.5..2.5,y=-2.5..2.5,z=0..1,color=blue): intp23p:=intersectplot(L23p,z=1,x=-2.5..2.5,y=-2.5..2.5,z=0..1,color=blue): intp35p:=intersectplot(L35p,z=1,x=-2.5..2.5,y=-2.5..2.5,z=0..1,color=blue): intp04p:=intersectplot(L04p,z=1,x=-2.5..2.5,y=-2.5..2.5,z=0..1,color=cyan):
 >
 > display(ptpltp,intp1,intp12p,intp13p,intp23p,intp35p,intp04p,scaling=constrained,caption="Projective Co-ords on plane z=1",axes=normal,axis[3]=[tickmarks=[1]])
 >