dP=10^8/2;frames=Table[PrintTemporary[P];displacement=NDSolveValue[{SolidMechanicsPDEComponent[vars,pars]SolidBoundaryLoadValue[x1,vars,pars,"Pressure"{P,0}],SolidFixedCondition[x0,vars,pars]},{u[x,y],v[x,y]},{x,y}∈Ω];strain=SolidMechanicsStrain[vars,pars,displacement];stress=SolidMechanicsStress[vars,pars,strain,displacement];vms=VonMisesStress[vars,pars,stress];Labeled[Show[StreamPlot[Normalize[{1,1}],{x,y}∈Ω,StreamMarkers"Segment",StreamColorFunctionNone,StreamStyleGray,FrameFalse],VectorDisplacementPlot[{displacement,vms},{x,y}∈Ω,VectorSizesFull,FrameFalse,ColorFunctionScalingFalse,ColorFunctioncolorFunction],PlotRange{{0,2.15},{-0.1,1}},AspectRatioAutomatic,ImageSize{550,300}],Style["Deformation of hyperelastic fiber-reinforced material","Output",FontFamily"Source Sans Pro",15,Gray]],{P,0,9*10^8,dP}];frames=Join[frames,Reverse[frames]];frames=Rasterize[#1,"Image",ImageResolution144]&/@frames;