Rope Snippet

                rx,ry,rz=cx1-cx0,cy1-cy0,cz1-cz0
                if a0 then
                    m=(1-r/(rx*rx+ry*ry+rz*rz))/2
                    cx1,cy1,cz1=cx1-rx*m,cy1-ry*m,cz1-rz*m
                else
                    m=(1-r/(rx*rx+ry*ry+rz*rz))/4
                    mx,my,mz=rx*m,ry*m,rz*m
                    cx0,cy0,cz0=cx0+mx,cy0+my,cz0+mz
                    cx1,cy1,cz1=cx1-mx,cy1-my,cz1-mz
                end
                rx,ry,rz=cx3-cx2,cy3-cy2,cz3-cz2
                m=(1-r/(rx*rx+ry*ry+rz*rz))/4
                mx,my,mz=rx*m,ry*m,rz*m
                cx2,cy2,cz2=cx2+mx,cy2+my,cz2+mz
                cx3,cy3,cz3=cx3-mx,cy3-my,cz3-mz
                rx,ry,rz=cx5-cx4,cy5-cy4,cz5-cz4
                m=(1-r/(rx*rx+ry*ry+rz*rz))/4
                mx,my,mz=rx*m,ry*m,rz*m
                cx4,cy4,cz4=cx4+mx,cy4+my,cz4+mz
                cx5,cy5,cz5=cx5-mx,cy5-my,cz5-mz
                rx,ry,rz=cx7-cx6,cy7-cy6,cz7-cz6
                m=(1-r/(rx*rx+ry*ry+rz*rz))/4
                mx,my,mz=rx*m,ry*m,rz*m
                cx6,cy6,cz6=cx6+mx,cy6+my,cz6+mz
                cx7,cy7,cz7=cx7-mx,cy7-my,cz7-mz
                rx,ry,rz=cx2-cx1,cy2-cy1,cz2-cz1
                m=(1-r/(rx*rx+ry*ry+rz*rz))/4
                mx,my,mz=rx*m,ry*m,rz*m
                cx1,cy1,cz1=cx1+mx,cy1+my,cz1+mz
                cx2,cy2,cz2=cx2-mx,cy2-my,cz2-mz
                rx,ry,rz=cx4-cx3,cy4-cy3,cz4-cz3
                m=(1-r/(rx*rx+ry*ry+rz*rz))/4
                mx,my,mz=rx*m,ry*m,rz*m
                cx3,cy3,cz3=cx3+mx,cy3+my,cz3+mz
                cx4,cy4,cz4=cx4-mx,cy4-my,cz4-mz
                rx,ry,rz=cx6-cx5,cy6-cy5,cz6-cz5
                m=(1-r/(rx*rx+ry*ry+rz*rz))/4
                mx,my,mz=rx*m,ry*m,rz*m
                cx5,cy5,cz5=cx5+mx,cy5+my,cz5+mz
                cx6,cy6,cz6=cx6-mx,cy6-my,cz6-mz
                rx,ry,rz=cx8-cx7,cy8-cy7,cz8-cz7
                if a1 then
                    m=(1-r/(rx*rx+ry*ry+rz*rz))/2
                    cx7,cy7,cz7=cx7+rx*m,cy7+ry*m,cz7+rz*m
                else
                    m=(1-r/(rx*rx+ry*ry+rz*rz))/4
                    mx,my,mz=rx*m,ry*m,rz*m
                    cx7,cy7,cz7=cx7+mx,cy7+my,cz7+mz
                    cx8,cy8,cz8=cx8-mx,cy8-my,cz8-mz
                end