# DashThrustQry # Line CartoScript illustrating dashed line # with secondary symbol with different repeat interval. # Draws dashed line with triangle symbols # (geologic line style for thrust fault). # Script from Using CartoScripts tutorial. dashSize = 16; # length of dashes halfDash = dashSize * 0.5; # triangle spacing and dimensions spacing = dashSize * 6; quartSpace = spacing * 0.25; triWidth = dashSize; halfTri = triWidth * 0.5; height = dashSize * 0.6; # Set line color and width LineStyleSetColor(255,0,0); LineStyleSetLineWidth(2); # Initialize variable to control placement of triangles cumL = spacing; # Draw dashed fault line and triangles while (LineStyleRoll(halfDash) <> 1) { dist = LineStyleGetDistanceTo(3); # distance to end of line cumL = cumL + dashSize; if (dist > quartSpace and cumL >= spacing) { LineStyleDropAnchor(1); LineStyleRoll(halfTri); LineStyleMoveTo(0,0); LineStyleMoveTo(90, height); LineStyleDropAnchor(2); LineStyleRoll(-halfTri); LineStyleRecordPolygon(); LineStyleRollPen(triWidth); LineStyleLineToAnchor(2); LineStyleLineToAnchor(1); LineStyleDrawPolygon(1); cumL = 0; } else { LineStyleRollPen(dashSize); cumL = cumL + dashSize; } }