PDF Generation and Mystery Mania

Code: (Select All)

Commands:

SUB pdfAddPage

SUB pdfLoadFont (nm AS STRING, fnt AS STRING)

SUB pdfSetPosition (x AS LONG, y AS LONG)

SUB pdfAddText (s AS STRING)

SUB pdfAddTextBlock (l AS LONG, s AS STRING)

SUB pdfBeginText

SUB pdfEndText

SUB pdfNextLine

SUB pdfSetRenderMode (m AS LONG)

SUB pdfSetGrayScaleStroke (g AS SINGLE)

SUB pdfSetGrayScaleNonStroke (g AS SINGLE)

SUB pdfSetStrokeWidth (sw AS LONG)

SUB pdfSetCharacterSpacing (s AS SINGLE)

SUB pdfSetWordSpacing (s AS SINGLE)

SUB pdfSetHorizontalScaling (s AS LONG)

SUB pdfSetLeading (l AS SINGLE)

SUB pdfSetRise (l AS LONG)

SUB pdfRotateText (x AS LONG, y AS LONG, deg AS SINGLE)

SUB pdfSetMatrix (a AS SINGLE, b AS SINGLE, c AS SINGLE, d AS SINGLE, e AS SINGLE, f AS SINGLE)

SUB pdfSetFontSize (nm AS STRING, sz AS LONG)

SUB pdfBeginPath (x AS LONG, y AS LONG)

SUB pdfAppendLine (x1 AS LONG, y1 AS LONG)

SUB pdfAppendBezier123 (x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG)

SUB pdfAppendBezier23 (x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG)

SUB pdfAppendBezier13 (x1 AS LONG, y1 AS LONG, x3 AS LONG, y3 AS LONG)

SUB pdfClosePath

SUB pdfRectangle (x AS LONG, y AS LONG, w AS LONG, h AS LONG)

SUB pdfStrokePath

SUB pdfCloseStrokePath

SUB pdfFillPath

SUB pdfFillEO

SUB pdfFillStroke

SUB pdfFillStrokeEO

SUB pdfCloseFillStroke

SUB pdfCloseFillStrokeEO

SUB pdfEndPath

SUB pdfSetColorStroke (r AS SINGLE, g AS SINGLE, b AS SINGLE)

SUB pdfSetColorNonStroke (r AS SINGLE, g AS SINGLE, b AS SINGLE)

SUB pdfPushGraphicsStack

SUB pdfPopGraphicsStack

SUB pdfGen (filename AS STRING)



Fonts Supported:

Courier

Courier-Bold       

Courier-Oblique   

Courier-BoldOblique

Times-Roman

Times-Bold

Times-Italic

Times-BoldItalic

Symbol

ZapfDingbats

Helvetica         

Helvetica-Bold     

Helvetica-Oblique

'Simple PDF with Image Example '$INCLUDE:'pdfGen.bi' 'Always Add page, you need a page to work on pdfAddPage 'Always Load a Font, "F1" is it Identifier 'Only the built in fonts work, for now pdfLoadFont "F1", PDF_FONT_TIMES_ROMAN 'Load some Images, "Im1" and "Im2" are the identifiers pdfLoadImage "IMG.png", "Im1" pdfLoadImage "img2.png", "Im2" 'Push the current graphic state to the stack pdfPushGraphicsStack 'Set the Matrix to 100% scale in the X,Y and Translate to 245 ,340 pdfSetImageMatrix 100, 0, 0, 100, 245, 340 'Draw the Image "Im1" pdfPutImage "Im1" 'Return the graphics state pdfPopGraphicsStack 'Push the current graphic state to the stack pdfPushGraphicsStack 'Set the Matrix to 200% scale in the X,Y and Translate to 50 ,250 pdfSetImageMatrix 200, 0, 0, 200, 50, 250 'Draw the Image "Im2" pdfPutImage "Im2" 'Return the graphics state pdfPopGraphicsStack 'Begin a Text Block, only do text stuff here pdfBeginText 'Set font "F1" to size 36 pdfSetFontSize "F1", 36 'Move relative from 0,0 to 200,650. All positions are relative. 'To reset the position back to 0,0 end the text block and begin a new one. pdfSetPosition 200, 650 'Draw some text pdfAddText "Image Example" 'End the text block. Always end the text block! pdfEndText 'Generate The PDF pdfGen "pdfGenTest.pdf" SYSTEM '$INCLUDE:'pdfGen.bm'

'some simple pdf text experimenting '$Include:'pdfGen.bi' 'Always Add page, you need a page to work on pdfAddPage 'Always Load a Font, "F1" is it Identifier 'Only the built in fonts work, for now pdfLoadFont "F1", PDF_FONT_TIMES_ROMAN 'Begin a Text Block, only do text stuff here pdfBeginText 'Set font "F1" to size 36 pdfSetFontSize "F1", 36 'End the text block. Always end the text block! Dim atext$(9) a$ = "ABC 1" For x = 1 To 9 atext$(x) = a$ If x > 1 Then atext$(x) = atext$(x - 1) + Str$(x) Next x pat 10, 360, 40, "XYZ123" pagearray 10, 10, 28, 30, atext$() For x = 10 To 550 Step 110 pagearray x, 400, 12, 14, atext$() Next x pat 300, 760, 12, "Page 1" pdfAddPage pagearray 50, 40, 36, 40, atext$() pat 300, 760, 12, "Page 2" 'Generate The PDF pdfGen "pdfGenTest.pdf" System '$Include:'pdfGen.bm' Sub pat (x, y, typesize, txt$) 'setup to print at coordinates from top left corner 'x =0 to 600 y= 0 to 780 pdfSetFontSize "F1", typesize pdfSetPosition x, 780 - y pdfAddText txt$ 'End the text block. Always end the text block! pdfEndText End Sub Sub pagearray (x, y, typesize, leading, txtarray$()) tlines = UBound(txtarray$) pdfSetFontSize "F1", typesize XPos = x YPos = y For t = 1 To tlines pat XPos, YPos, typesize, txtarray$(t) YPos = YPos + leading Next t End Sub