Quartam Software Forums

Code: Select all

private command p_qrtPDF_AssertDashes @pDashes
   if pDashes is "solid" then exit p_qrtPDF_AssertDashes
   replace space with empty in pDashes
   repeat for each item tDash in pDashes
      if tDash is not an integer then throw "qrtPDFErr: invalid dashes"
   end repeat
end p_qrtPDF_AssertDashes

Code: Select all

command qrtPDF_SetLineOptions pDocID, pCap, pJoin, pDashes, pPhase
   p_qrtPDF_AssertDocID pDocID
   p_qrtPDF_AssertCap pCap
   p_qrtPDF_AssertJoin pJoin
   p_qrtPDF_AssertDashes pDashes
   if pPhase is empty or pPhase is "solid" then put 0 into pPhase
   p_qrtPDF_AssertNumber "phase", pPhase
   --
   put pCap into sDocumentsA[pDocID][kp_LineCap]
   put pJoin into sDocumentsA[pDocID][kp_LineJoin]
   put pDashes into sDocumentsA[pDocID][kp_LineDashes]
   put pPhase into sDocumentsA[pDocID][kp_LinePhase]
   switch pCap
      case "butt"
         p_qrtPDF_ATB pDocID, "0 J"
         break
      case "join"
         p_qrtPDF_ATB pDocID, "1 J"
         break
      case "square"
         p_qrtPDF_ATB pDocID, "2 J"
         break
   end switch
   switch pJoin
      case "miter"
         p_qrtPDF_ATB pDocID, "0 j"
         break
      case "round"
         p_qrtPDF_ATB pDocID, "1 j"
         break
      case "bevel"
         p_qrtPDF_ATB pDocID, "2 j"
         break
   end switch
   if pDashes is "solid" then
      p_qrtPDF_ATB pDocID, "[] 0 d"
   else if pDashes is not empty then
      local tDashes
      repeat for each item tDash in pDashes
         put format("%2.f", tDash) & space after tDashes
      end repeat
      delete char -1 of tDashes
      p_qrtPDF_ATB pDocID, format("[%s] %2.f d", tDashes, pPhase)
   end if
end qrtPDF_SetLineOptions