Row[{Graphics[{Lighter@LightGray,EdgeForm[Gray],Polygon[vanishPrts],Texture[image],Polygon[{{0,0},{350,0},{350,350},{0,350}},VertexTextureCoordinates{{0,0},{1,0},{1,1},{0,1}}],Thickness[0.004],Magenta,lines,EdgeForm[Directive[Thick,Black]],Opacity[0.1],LightGray,Rectangle@@bounds2D,Opacity[1],Thickness[0.002],Gray,DotDashed,InfiniteLine/@linePrts,PointSize[0.01],Blue,Point/@intersectionPrtsCorner,Red,Point/@vanishPrts,Black,Line[{{0.`,251.78831260059732`},{350.`,199.52013084486055`}}]},PlotRange1300{{-1,1},{-1,1}},Frame->True,ImageSize->450,ImagePadding25,PlotLabel->Style["estimate vanishing points position",16,Bold]],Column[Table[Graphics[{Lighter@LightGray,EdgeForm[Gray],Polygon[vanishPrts],Thickness[0.002],Gray,DotDashed,InfiniteLine/@linePrts,PointSize[0.03],Blue,Point/@intersectionPrts,Red,Point/@vanishPrts},PlotRangeTranspose@{vanishPrts[[i]]-100{1,1},vanishPrts[[i]]+100{1,1}},Frame->True,ImageSize->140,ImagePadding20],{i,3}],Alignment->Center,Spacings->1]}]