commit bb2a23db298688c19f9bc40c689c6987e2a52019 Author: Robert Lawrence Date: Sat Jul 30 11:20:16 2011 -0500 Initial Import diff --git a/.DS_Store b/.DS_Store new file mode 100644 index 0000000..58a7aca Binary files /dev/null and b/.DS_Store differ diff --git a/.rsfpdf.rbuistate b/.rsfpdf.rbuistate new file mode 100644 index 0000000..9424627 Binary files /dev/null and b/.rsfpdf.rbuistate differ diff --git a/App.rbbas b/App.rbbas new file mode 100644 index 0000000..932fa60 --- /dev/null +++ b/App.rbbas @@ -0,0 +1 @@ +#tag Class Protected Class App Inherits Application #tag Constant, Name = kEditClear, Type = String, Dynamic = False, Default = \"&Delete", Scope = Public #Tag Instance, Platform = Windows, Language = Default, Definition = \"&Delete" #Tag Instance, Platform = Linux, Language = Default, Definition = \"&Delete" #tag EndConstant #tag Constant, Name = kFileQuit, Type = String, Dynamic = False, Default = \"&Quit", Scope = Public #Tag Instance, Platform = Windows, Language = Default, Definition = \"E&xit" #tag EndConstant #tag Constant, Name = kFileQuitShortcut, Type = String, Dynamic = False, Default = \"", Scope = Public #Tag Instance, Platform = Mac OS, Language = Default, Definition = \"Cmd+Q" #Tag Instance, Platform = Linux, Language = Default, Definition = \"Ctrl+Q" #tag EndConstant #tag ViewBehavior #tag EndViewBehavior End Class #tag EndClass \ No newline at end of file diff --git a/Build Automation.rbbas b/Build Automation.rbbas new file mode 100644 index 0000000..f75999a --- /dev/null +++ b/Build Automation.rbbas @@ -0,0 +1 @@ +#tag BuildAutomation Begin BuildStepList Linux Begin BuildProjectStep Build End End Begin BuildStepList Mac OS X Begin BuildProjectStep Build End End Begin BuildStepList Windows Begin BuildProjectStep Build End End #tag EndBuildAutomation \ No newline at end of file diff --git a/EJEMPLO2.rbbas b/EJEMPLO2.rbbas new file mode 100644 index 0000000..59f13c5 --- /dev/null +++ b/EJEMPLO2.rbbas @@ -0,0 +1 @@ +#tag Class Protected Class EJEMPLO2 Inherits fpdf #tag Method, Flags = &h1 Protected Sub Footer() //Posición: a 1,5 cm del final self.SetY(-15) //Arial italic 8 self.SetFont("Arial","I",8) //Número de página self.Cell(0,10,"Page " + str(self.PageNo()) + "/{nb}",0,0,"C") End Sub #tag EndMethod #tag Method, Flags = &h1 Protected Sub Header() //Logo self.Image("demoinfo/logo_rpdf.png",10,8) //Arial bold 15 self.SetFont("Arial","B",15) //Movernos a la derecha self.Cell(80) //Título self.Cell(30,10,"Title",1,0,"C") //Salto de línea self.Ln(20) End Sub #tag EndMethod #tag ViewBehavior #tag ViewProperty Name="Index" Visible=true Group="ID" InitialValue="-2147483648" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Left" Visible=true Group="Position" InitialValue="0" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Name" Visible=true Group="ID" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Super" Visible=true Group="ID" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Top" Visible=true Group="Position" InitialValue="0" InheritedFrom="Object" #tag EndViewProperty #tag EndViewBehavior End Class #tag EndClass \ No newline at end of file diff --git a/EJEMPLO4.rbbas b/EJEMPLO4.rbbas new file mode 100644 index 0000000..7a701b1 --- /dev/null +++ b/EJEMPLO4.rbbas @@ -0,0 +1 @@ +#tag Class Protected Class EJEMPLO4 Inherits fpdf #tag Method, Flags = &h1 Protected Function AcceptPageBreak() As boolean //Método que acepta o no el salto automático de página if(me.col < 2) then //Go to next column me.SetCol(me.col+1) //reset Y0 me.SetY(me.y0) //go to the next page return false else //Back to first column me.SetCol(0) //Page Break return true end if End Function #tag EndMethod #tag Method, Flags = &h1 Protected Sub ChapterBody(charfile as string) //Abrir fichero de texto Dim f As FolderItem Dim t As TextInputStream dim txt as string f = new FolderItem f = GetFolderItem("demoinfo").child(charfile) if f = nil then return // Could not locate file t = f.OpenAsTextFile t.Encoding = Encodings.ASCII txt = t.readall t.close //Font me.SetFont("Times","",12) //Print text in 6cm column me.MultiCell(60,5,txt) me.Ln() //Cita en itálica me.SetFont("","I") me.Cell(0,5,"(fin del extracto)") //Volver a la primera columna me.SetCol(0) End Sub #tag EndMethod #tag Method, Flags = &h1 Protected Sub ChapterTitle(num as integer,label as string) dim title as string title = "Capitulo " + str(num) + " : " + label //Title me.SetFont("Arial","",12) me.SetFillColor(200,220,255) me.Cell(0,6,title,0,1,"L",1) me.Ln(4) //Guardar ordenada me.y0=me.GetY() End Sub #tag EndMethod #tag Method, Flags = &h1 Protected Sub Footer() //Pie de página me.SetY(-15) me.SetFont("Arial","I",8) me.SetTextColor(128) me.Cell(0,10,"Pagina " + str(me.PageNo), 0, 0,"C") End Sub #tag EndMethod #tag Method, Flags = &h1 Protected Sub Header() dim w as double me.SetFont("Arial","B",15) w = me.GetStringWidth(me.title) + 6 me.SetX( (210 - w) / 2) me.SetDrawColor(0,80,180) me.SetFillColor(230,230,0) me.SetTextColor(220,50,50) me.SetLineWidth(1) me.Cell(w,9,me.title, 1, 1,"C", 1) me.Ln(10) //Guardar ordenada me.y0 = me.GetY() End Sub #tag EndMethod #tag Method, Flags = &h0 Sub PrintChapter(num as integer, title as string, file as string) //Add Chapter me.AddPage() me.ChapterTitle(num,title) me.ChapterBody(file) End Sub #tag EndMethod #tag Method, Flags = &h1 Protected Sub SetCol(col as integer) dim x as double //Establecer la posición de una columna dada me.col = col x = 10 + col * 65 me.SetLeftMargin(x) me.SetX(x) End Sub #tag EndMethod #tag Property, Flags = &h21 #tag Note //Current Column #tag EndNote Private col As Integer #tag EndProperty #tag Property, Flags = &h21 #tag Note //Ordenada de Comienzo de Columna #tag EndNote Private y0 As Integer #tag EndProperty #tag ViewBehavior #tag ViewProperty Name="Index" Visible=true Group="ID" InitialValue="-2147483648" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Left" Visible=true Group="Position" InitialValue="0" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Name" Visible=true Group="ID" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Super" Visible=true Group="ID" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Top" Visible=true Group="Position" InitialValue="0" InheritedFrom="Object" #tag EndViewProperty #tag EndViewBehavior End Class #tag EndClass \ No newline at end of file diff --git a/Ejemplo1.pdf b/Ejemplo1.pdf new file mode 100644 index 0000000..70bfc07 Binary files /dev/null and b/Ejemplo1.pdf differ diff --git a/Ejemplo2.pdf b/Ejemplo2.pdf new file mode 100755 index 0000000..5c58c71 Binary files /dev/null and b/Ejemplo2.pdf differ diff --git a/Ejemplo3.pdf b/Ejemplo3.pdf new file mode 100755 index 0000000..346590c --- /dev/null +++ b/Ejemplo3.pdf @@ -0,0 +1,70 @@ +%PDF-1.3 +3 0 obj +<> +endobj +4 0 obj +<> +stream +x=1|N!4SH]`!@"Y!q}fv݋Tj"G~z|>%.Ny1Д!SZ\7ɗNy&g"5k2RR.?|=;?>H~-k%x&vĭNN]s]TY'U=˸ :>||}ĒR)"@ 75s  hl4蔥 Smp6`ЀƦMNY@VԜk\wM5B4M݈K46  hltҀjfTæwKk, lltʳ6@fV\c$A ԠЀj)KMq `ЀƦMNY@KVF3J4X"4iFh@cӠS4PeM5B4 +endstream +endobj +1 0 obj +<> +endobj +5 0 obj +<> +endobj +2 0 obj +<< +/ProcSet [/PDF /Text /ImageB /ImageC /ImageI] +/Font << +/F1 5 0 R +>> +/XObject << +>> +>> +endobj +6 0 obj +<< +/Producer (RPDF v8.03.11 by d2k) +/CreationDate (D:20080311164030) +>> +endobj +7 0 obj +<< +/Type /Catalog +/Pages 1 0 R +/OpenAction [3 0 R /FitH null] +/PageLayout /OneColumn +>> +endobj +xref +0 8 +0000000000 65535 f +0000000603 00000 n +0000000784 00000 n +0000000009 00000 n +0000000087 00000 n +0000000690 00000 n +0000000888 00000 n +0000000975 00000 n +trailer +<< +/Size 8 +/Root 7 0 R +/Info 6 0 R +>> +startxref +1303 +%%EOF diff --git a/Ejemplo4.pdf b/Ejemplo4.pdf new file mode 100755 index 0000000..2e4d1ad Binary files /dev/null and b/Ejemplo4.pdf differ diff --git a/Ejemplo5.pdf b/Ejemplo5.pdf new file mode 100755 index 0000000..66b6468 Binary files /dev/null and b/Ejemplo5.pdf differ diff --git a/MenuBar1.rbmnu b/MenuBar1.rbmnu new file mode 100644 index 0000000..252bf3e --- /dev/null +++ b/MenuBar1.rbmnu @@ -0,0 +1 @@ +#tag Menu Begin Menu MenuBar1 Begin MenuItem FileMenu SpecialMenu = 0 Text = "&File" Index = -2147483648 AutoEnable = True Begin QuitMenuItem FileQuit SpecialMenu = 0 Text = "#App.kFileQuit" Index = -2147483648 ShortcutKey = "#App.kFileQuitShortcut" Shortcut = "#App.kFileQuitShortcut" AutoEnable = True End End Begin MenuItem EditMenu SpecialMenu = 0 Text = "&Edit" Index = -2147483648 AutoEnable = True Begin MenuItem EditUndo SpecialMenu = 0 Text = "&Undo" Index = -2147483648 ShortcutKey = "Z" Shortcut = "Cmd+Z" MenuModifier = True AutoEnable = True End Begin MenuItem UntitledMenu1 SpecialMenu = 0 Text = "-" Index = -2147483648 AutoEnable = True End Begin MenuItem EditCut SpecialMenu = 0 Text = "Cu&t" Index = -2147483648 ShortcutKey = "X" Shortcut = "Cmd+X" MenuModifier = True AutoEnable = True End Begin MenuItem EditCopy SpecialMenu = 0 Text = "&Copy" Index = -2147483648 ShortcutKey = "C" Shortcut = "Cmd+C" MenuModifier = True AutoEnable = True End Begin MenuItem EditPaste SpecialMenu = 0 Text = "&Paste" Index = -2147483648 ShortcutKey = "V" Shortcut = "Cmd+V" MenuModifier = True AutoEnable = True End Begin MenuItem EditClear SpecialMenu = 0 Text = "#App.kEditClear" Index = -2147483648 AutoEnable = True End Begin MenuItem UntitledMenu0 SpecialMenu = 0 Text = "-" Index = -2147483648 AutoEnable = True End Begin MenuItem EditSelectAll SpecialMenu = 0 Text = "Select &All" Index = -2147483648 ShortcutKey = "A" Shortcut = "Cmd+A" MenuModifier = True AutoEnable = True End End End #tag EndMenu \ No newline at end of file diff --git a/Window1.rbfrm b/Window1.rbfrm new file mode 100644 index 0000000..8966ec8 --- /dev/null +++ b/Window1.rbfrm @@ -0,0 +1 @@ +#tag Window Begin Window Window1 BackColor = 16777215 Backdrop = "" BalloonHelp = "" CloseButton = True Composite = False Frame = 0 FullScreen = False HasBackColor = False Height = 355 ImplicitInstance= True LiveResize = False MacProcID = 0 MaxHeight = 32000 MaximizeButton = False MaxWidth = 32000 MenuBar = 2044205055 MenuBarVisible = True MinHeight = 270 MinimizeButton = False MinWidth = 420 Placement = 0 Resizeable = False Title = "rPDF Examples / Ejemplos" Visible = True Width = 441 Begin TextField EditField1 AcceptTabs = "" Alignment = 0 AutoDeactivate = True AutomaticallyCheckSpelling= False BackColor = 16777215 Bold = "" Border = True CueText = "" DataField = "" DataSource = "" Enabled = True Format = "" Height = 22 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 20 LimitText = 0 LockBottom = "" LockedInPosition= False LockLeft = True LockRight = True LockTop = "" Mask = "" Password = "" ReadOnly = "" Scope = 0 TabIndex = 0 TabPanelIndex = 0 TabStop = True Text = "Hello Word!" TextColor = 0 TextFont = "System" TextSize = 0 TextUnit = 0 Top = 26 Underline = "" UseFocusRing = True Visible = True Width = 401 End Begin PushButton Ejemplo3 AutoDeactivate = True Bold = "" ButtonStyle = 0 Cancel = "" Caption = "DEMO3" Default = "" Enabled = True Height = 22 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 41 LockBottom = "" LockedInPosition= False LockLeft = True LockRight = False LockTop = True Scope = 0 TabIndex = 1 TabPanelIndex = 0 TabStop = True TextFont = "System" TextSize = 0 TextUnit = 0 Top = 205 Underline = "" Visible = True Width = 80 End Begin PushButton Ejemplo2 AutoDeactivate = True Bold = "" ButtonStyle = 0 Cancel = "" Caption = "DEMO2" Default = "" Enabled = True Height = 22 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 41 LockBottom = "" LockedInPosition= False LockLeft = True LockRight = False LockTop = True Scope = 0 TabIndex = 2 TabPanelIndex = 0 TabStop = True TextFont = "System" TextSize = 0 TextUnit = 0 Top = 160 Underline = "" Visible = True Width = 80 End Begin PushButton Ejemplo1 AutoDeactivate = True Bold = "" ButtonStyle = 0 Cancel = "" Caption = "DEMO1" Default = "" Enabled = True Height = 22 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 20 LockBottom = "" LockedInPosition= False LockLeft = True LockRight = False LockTop = True Scope = 0 TabIndex = 3 TabPanelIndex = 0 TabStop = True TextFont = "System" TextSize = 0 TextUnit = 0 Top = 71 Underline = "" Visible = True Width = 80 End Begin Label StaticText1 AutoDeactivate = True Bold = "" DataField = "" DataSource = "" Enabled = True Height = 29 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 112 LockBottom = "" LockedInPosition= False LockLeft = "" LockRight = "" LockTop = "" Multiline = True Scope = 0 Selectable = False TabIndex = 4 TabPanelIndex = 0 Text = "Generate A4 Page and insert EditField text in it.\r\nGenerar una página A4 e insertar el contenido del EditField." TextAlign = 0 TextColor = 0 TextFont = "System" TextSize = 0 TextUnit = 0 Top = 71 Transparent = False Underline = "" Visible = True Width = 288 End Begin Label StaticText2 AutoDeactivate = True Bold = "" DataField = "" DataSource = "" Enabled = True Height = 33 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 133 LockBottom = "" LockedInPosition= False LockLeft = "" LockRight = "" LockTop = "" Multiline = True Scope = 0 Selectable = False TabIndex = 5 TabPanelIndex = 0 Text = "Insert a Header and Footer with a page count.\r\nInsertar Cabecera y Pie con contador de numero de hoja." TextAlign = 0 TextColor = 0 TextFont = "System" TextSize = 0 TextUnit = 0 Top = 160 Transparent = False Underline = "" Visible = True Width = 288 End Begin Label StaticText3 AutoDeactivate = True Bold = "" DataField = "" DataSource = "" Enabled = True Height = 32 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 134 LockBottom = "" LockedInPosition= False LockLeft = "" LockRight = "" LockTop = "" Multiline = True Scope = 0 Selectable = False TabIndex = 6 TabPanelIndex = 0 Text = "Simple Table\r\nTabla Simple" TextAlign = 0 TextColor = 0 TextFont = "System" TextSize = 0 TextUnit = 0 Top = 205 Transparent = False Underline = "" Visible = True Width = 287 End Begin PushButton Ejemplo4 AutoDeactivate = True Bold = "" ButtonStyle = 0 Cancel = "" Caption = "DEMO4" Default = False Enabled = True Height = 22 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 41 LockBottom = "" LockedInPosition= False LockLeft = True LockRight = False LockTop = True Scope = 0 TabIndex = 7 TabPanelIndex = 0 TabStop = True TextFont = "System" TextSize = 0 TextUnit = 0 Top = 249 Underline = "" Visible = True Width = 80 End Begin Label StaticText4 AutoDeactivate = True Bold = "" DataField = "" DataSource = "" Enabled = True Height = 32 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 134 LockBottom = "" LockedInPosition= False LockLeft = "" LockRight = "" LockTop = "" Multiline = True Scope = 0 Selectable = False TabIndex = 8 TabPanelIndex = 0 Text = "Multiple Columns\r\nColumnas Multiples" TextAlign = 0 TextColor = 0 TextFont = "System" TextSize = 0 TextUnit = 0 Top = 249 Transparent = False Underline = "" Visible = True Width = 287 End Begin GroupBox GroupBox1 AutoDeactivate = True Bold = "" Caption = "Untitled" Enabled = True Height = 100 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = -315 LockBottom = "" LockedInPosition= False LockLeft = "" LockRight = "" LockTop = "" Scope = 0 TabIndex = 9 TabPanelIndex = 0 TextFont = "System" TextSize = 0 TextUnit = 0 Top = 255 Underline = "" Visible = True Width = 100 End Begin GroupBox GroupBox2 AutoDeactivate = True Bold = "" Caption = "Subclassing" Enabled = True Height = 205 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 20 LockBottom = "" LockedInPosition= False LockLeft = "" LockRight = "" LockTop = "" Scope = 0 TabIndex = 10 TabPanelIndex = 0 TextFont = "System" TextSize = 0 TextUnit = 0 Top = 130 Underline = "" Visible = True Width = 401 Begin PushButton Ejemplo5 AutoDeactivate = True Bold = "" ButtonStyle = 0 Cancel = "" Caption = "DEMO5" Default = False Enabled = True Height = 22 HelpTag = "" Index = -2147483648 InitialParent = "GroupBox2" Italic = "" Left = 41 LockBottom = "" LockedInPosition= False LockLeft = True LockRight = False LockTop = True Scope = 0 TabIndex = 0 TabPanelIndex = 0 TabStop = True TextFont = "System" TextSize = 0 TextUnit = 0 Top = 294 Underline = "" Visible = True Width = 80 End Begin Label StaticText5 AutoDeactivate = True Bold = False DataField = "" DataSource = "" Enabled = True Height = 32 HelpTag = "" Index = -2147483648 InitialParent = "GroupBox2" Italic = "" Left = 134 LockBottom = "" LockedInPosition= False LockLeft = "" LockRight = "" LockTop = "" Multiline = True Scope = 0 Selectable = False TabIndex = 1 TabPanelIndex = 0 Text = "JPG Inclusion and Hyperlink\r\nIncrustar JPG y Marcadores" TextAlign = 0 TextColor = 0 TextFont = "System" TextSize = 0 TextUnit = 0 Top = 289 Transparent = False Underline = "" Visible = True Width = 267 End End End #tag EndWindow #tag WindowCode #tag EndWindowCode #tag Events Ejemplo3 #tag Event Sub Action() dim pdf as fpdf dim j,i as integer me.Enabled = False pdf = new FPDF("P") pdf.AddPage() pdf.SetFont("Courier","",8) //Cabecera for i = 1 to 4 pdf.Cell(40,7,"Cabecera " + str(i),1) next i pdf.Ln() //Datos for j = 1 to 10 for i = 1 to 4 pdf.cell(40,6,"Item " + str(i),1) next i pdf.ln() next j pdf.Output(me.Name + ".pdf") me.Enabled = true End Sub #tag EndEvent #tag EndEvents #tag Events Ejemplo2 #tag Event Sub Action() dim pdf as EJEMPLO2 dim j,i as integer me.Enabled = False pdf = new EJEMPLO2("P" ) pdf.AliasNbPages() pdf.AddPage() pdf.SetFont("Times","",12) for i = 1 to 40 pdf.cell(0,10,"Imprimiendo linea numero " + str(i),0,1) next i pdf.Output(me.Name + ".pdf") me.Enabled = true End Sub #tag EndEvent #tag EndEvents #tag Events Ejemplo1 #tag Event Sub Action() dim pdf as fpdf dim j,i as integer me.Enabled = False if EditField1.Text = "" then MsgBox "You must write some text / Debe Ingresar Un Texto" EditField1.SetFocus return end if pdf = new FPDF("P") pdf.AddPage() pdf.SetFont("Arial","B",16) pdf.Cell(40,10,EditField1.Text) pdf.Output(me.Name + ".pdf") me.Enabled = true End Sub #tag EndEvent #tag EndEvents #tag Events Ejemplo4 #tag Event Sub Action() dim pdf as EJEMPLO4 me.Enabled = False pdf = new EJEMPLO4("P") pdf.SetTitle("20000 Leguas de Viaje Submarino") pdf.SetAuthor("Julio Verne") pdf.PrintChapter(1,"UN RIZO DE HUIDA","20k_c1.txt") pdf.PrintChapter(2,"LOS PROS Y LOS CONTRAS","20k_c2.txt") pdf.Output(me.Name + ".pdf") me.Enabled = true End Sub #tag EndEvent #tag EndEvents #tag Events Ejemplo5 #tag Event Sub Action() dim pdf as fpdf dim link as string me.Enabled = False pdf = new fpdf("P") pdf.SetEnconding(Encodings.WindowsLatin1) //Primera página pdf.AddPage() pdf.SetFont("Arial","",20) pdf.Write(5,"Para saber qué hay de nuevo en este tutorial, pulse ") pdf.SetFont("","U") link = pdf.AddLink() pdf.Write(5,"aqui",link) pdf.SetFont("") //Segunda página pdf.AddPage() pdf.SetLink(link) pdf.Image("demoinfo/pie_chart.jpg",10,10,150,0,"","http://rpdf.diego2k.com.ar") pdf.Output(me.Name + ".pdf") me.Enabled = true End Sub #tag EndEvent #tag EndEvents \ No newline at end of file diff --git a/demoinfo/20k_c1.txt b/demoinfo/20k_c1.txt new file mode 100755 index 0000000..0b09f26 --- /dev/null +++ b/demoinfo/20k_c1.txt @@ -0,0 +1,10 @@ +The year 1866 was marked by a bizarre development, an unexplained and downright inexplicable phenomenon that surely no one has forgotten. Without getting into those rumors that upset civilians in the seaports and deranged the public mind even far inland, it must be said that professional seamen were especially alarmed. Traders, shipowners, captains of vessels, skippers, and master mariners from Europe and America, naval officers from every country, and at their heels the various national governments on these two continents, were all extremely disturbed by the business. +In essence, over a period of time several ships had encountered "an enormous thing" at sea, a long spindle-shaped object, sometimes giving off a phosphorescent glow, infinitely bigger and faster than any whale. +The relevant data on this apparition, as recorded in various logbooks, agreed pretty closely as to the structure of the object or creature in question, its unprecedented speed of movement, its startling locomotive power, and the unique vitality with which it seemed to be gifted. If it was a cetacean, it exceeded in bulk any whale previously classified by science. No naturalist, neither Cuvier nor Lacpde, neither Professor Dumeril nor Professor de Quatrefages, would have accepted the existence of such a monster sight unseen -- specifically, unseen by their own scientific eyes. +Striking an average of observations taken at different times -- rejecting those timid estimates that gave the object a length of 200 feet, and ignoring those exaggerated views that saw it as a mile wide and three long--you could still assert that this phenomenal creature greatly exceeded the dimensions of anything then known to ichthyologists, if it existed at all. +Now then, it did exist, this was an undeniable fact; and since the human mind dotes on objects of wonder, you can understand the worldwide excitement caused by this unearthly apparition. As for relegating it to the realm of fiction, that charge had to be dropped. +In essence, on July 20, 1866, the steamer Governor Higginson, from the Calcutta & Burnach Steam Navigation Co., encountered this moving mass five miles off the eastern shores of Australia. Captain Baker at first thought he was in the presence of an unknown reef; he was even about to fix its exact position when two waterspouts shot out of this inexplicable object and sprang hissing into the air some 150 feet. So, unless this reef was subject to the intermittent eruptions of a geyser, the Governor Higginson had fair and honest dealings with some aquatic mammal, until then unknown, that could spurt from its blowholes waterspouts mixed with air and steam. +Similar events were likewise observed in Pacific seas, on July 23 of the same year, by the Christopher Columbus from the West India & Pacific Steam Navigation Co. Consequently, this extraordinary cetacean could transfer itself from one locality to another with startling swiftness, since within an interval of just three days, the Governor Higginson and the Christopher Columbus had observed it at two positions on the charts separated by a distance of more than 700 nautical leagues. +Fifteen days later and 2,000 leagues farther, the Helvetia from the Compagnie Nationale and the Shannon from the Royal Mail line, running on opposite tacks in that part of the Atlantic lying between the United States and Europe, respectively signaled each other that the monster had been sighted in latitude 42 degrees 15' north and longitude 60 degrees 35' west of the meridian of Greenwich. From their simultaneous observations, they were able to estimate the mammal's minimum length at more than 350 English feet; this was because both the Shannon and the Helvetia were of smaller dimensions, although each measured 100 meters stem to stern. Now then, the biggest whales, those rorqual whales that frequent the waterways of the Aleutian Islands, have never exceeded a length of 56 meters--if they reach even that. +One after another, reports arrived that would profoundly affect public opinion: new observations taken by the transatlantic liner Pereire, the Inman line's Etna running afoul of the monster, an official report drawn up by officers on the French frigate Normandy, dead-earnest reckonings obtained by the general staff of Commodore Fitz-James aboard the Lord Clyde. In lighthearted countries, people joked about this phenomenon, but such serious, practical countries as England, America, and Germany were deeply concerned. +In every big city the monster was the latest rage; they sang about it in the coffee houses, they ridiculed it in the newspapers, they dramatized it in the theaters. The tabloids found it a fine opportunity for hatching all sorts of hoaxes. In those newspapers short of copy, you saw the reappearance of every gigantic imaginary creature, from "Moby Dick," that dreadful white whale from the High Arctic regions, to the stupendous kraken whose tentacles could entwine a 500-ton craft and drag it into the ocean depths. They even reprinted reports from ancient times: the views of Aristotle and Pliny accepting the existence of such monsters, then the Norwegian stories of Bishop Pontoppidan, the narratives of Paul Egede, and finally the reports of Captain Harrington -- whose good faith is above suspicion--in which he claims he saw, while aboard the Castilian in 1857, one of those enormous serpents that, until then, had frequented only the seas of France's old extremist newspaper, The Constitutionalist. diff --git a/demoinfo/20k_c2.txt b/demoinfo/20k_c2.txt new file mode 100755 index 0000000..096dbd1 --- /dev/null +++ b/demoinfo/20k_c2.txt @@ -0,0 +1,23 @@ +During the period in which these developments were occurring, I had returned from a scientific undertaking organized to explore the Nebraska badlands in the United States. In my capacity as Assistant Professor at the Paris Museum of Natural History, I had been attached to this expedition by the French government. After spending six months in Nebraska, I arrived in New York laden with valuable collections near the end of March. My departure for France was set for early May. In the meantime, then, I was busy classifying my mineralogical, botanical, and zoological treasures when that incident took place with the Scotia. +I was perfectly abreast of this question, which was the big news of the day, and how could I not have been? I had read and reread every American and European newspaper without being any farther along. This mystery puzzled me. Finding it impossible to form any views, I drifted from one extreme to the other. Something was out there, that much was certain, and any doubting Thomas was invited to place his finger on the Scotia's wound. +When I arrived in New York, the question was at the boiling point. The hypothesis of a drifting islet or an elusive reef, put forward by people not quite in their right minds, was completely eliminated. And indeed, unless this reef had an engine in its belly, how could it move about with such prodigious speed? +Also discredited was the idea of a floating hull or some other enormous wreckage, and again because of this speed of movement. +So only two possible solutions to the question were left, creating two very distinct groups of supporters: on one side, those favoring a monster of colossal strength; on the other, those favoring an "underwater boat" of tremendous motor power. +Now then, although the latter hypothesis was completely admissible, it couldn't stand up to inquiries conducted in both the New World and the Old. That a private individual had such a mechanism at his disposal was less than probable. Where and when had he built it, and how could he have built it in secret? +Only some government could own such an engine of destruction, and in these disaster-filled times, when men tax their ingenuity to build increasingly powerful aggressive weapons, it was possible that, unknown to the rest of the world, some nation could have been testing such a fearsome machine. The Chassepot rifle led to the torpedo, and the torpedo has led to this underwater battering ram, which in turn will lead to the world putting its foot down. At least I hope it will. +But this hypothesis of a war machine collapsed in the face of formal denials from the various governments. Since the public interest was at stake and transoceanic travel was suffering, the sincerity of these governments could not be doubted. Besides, how could the assembly of this underwater boat have escaped public notice? Keeping a secret under such circumstances would be difficult enough for an individual, and certainly impossible for a nation whose every move is under constant surveillance by rival powers. +So, after inquiries conducted in England, France, Russia, Prussia, Spain, Italy, America, and even Turkey, the hypothesis of an underwater Monitor was ultimately rejected. +After I arrived in New York, several people did me the honor of consulting me on the phenomenon in question. In France I had published a two-volume work, in quarto, entitled The Mysteries of the Great Ocean Depths. Well received in scholarly circles, this book had established me as a specialist in this pretty obscure field of natural history. My views were in demand. As long as I could deny the reality of the business, I confined myself to a flat "no comment." But soon, pinned to the wall, I had to explain myself straight out. And in this vein, "the honorable Pierre Aronnax, Professor at the Paris Museum," was summoned by The New York Herald to formulate his views no matter what. +I complied. Since I could no longer hold my tongue, I let it wag. I discussed the question in its every aspect, both political and scientific, and this is an excerpt from the well-padded article I published in the issue of April 30. + +"Therefore," I wrote, "after examining these different hypotheses one by one, we are forced, every other supposition having been refuted, to accept the existence of an extremely powerful marine animal. +"The deepest parts of the ocean are totally unknown to us. No soundings have been able to reach them. What goes on in those distant depths? What creatures inhabit, or could inhabit, those regions twelve or fifteen miles beneath the surface of the water? What is the constitution of these animals? It's almost beyond conjecture. +"However, the solution to this problem submitted to me can take the form of a choice between two alternatives. +"Either we know every variety of creature populating our planet, or we do not. +"If we do not know every one of them, if nature still keeps ichthyological secrets from us, nothing is more admissible than to accept the existence of fish or cetaceans of new species or even new genera, animals with a basically 'cast-iron' constitution that inhabit strata beyond the reach of our soundings, and which some development or other, an urge or a whim if you prefer, can bring to the upper level of the ocean for long intervals. +"If, on the other hand, we do know every living species, we must look for the animal in question among those marine creatures already cataloged, and in this event I would be inclined to accept the existence of a giant narwhale. +"The common narwhale, or sea unicorn, often reaches a length of sixty feet. Increase its dimensions fivefold or even tenfold, then give this cetacean a strength in proportion to its size while enlarging its offensive weapons, and you have the animal we're looking for. It would have the proportions determined by the officers of the Shannon, the instrument needed to perforate the Scotia, and the power to pierce a steamer's hull. +"In essence, the narwhale is armed with a sort of ivory sword, or lance, as certain naturalists have expressed it. It's a king-sized tooth as hard as steel. Some of these teeth have been found buried in the bodies of baleen whales, which the narwhale attacks with invariable success. Others have been wrenched, not without difficulty, from the undersides of vessels that narwhales have pierced clean through, as a gimlet pierces a wine barrel. The museum at the Faculty of Medicine in Paris owns one of these tusks with a length of 2.25 meters and a width at its base of forty-eight centimeters! +"All right then! Imagine this weapon to be ten times stronger and the animal ten times more powerful, launch it at a speed of twenty miles per hour, multiply its mass times its velocity, and you get just the collision we need to cause the specified catastrophe. +"So, until information becomes more abundant, I plump for a sea unicorn of colossal dimensions, no longer armed with a mere lance but with an actual spur, like ironclad frigates or those warships called 'rams,' whose mass and motor power it would possess simultaneously. +"This inexplicable phenomenon is thus explained away--unless it's something else entirely, which, despite everything that has been sighted, studied, explored and experienced, is still possible!" diff --git a/demoinfo/logo_rpdf.png b/demoinfo/logo_rpdf.png new file mode 100755 index 0000000..af9278b Binary files /dev/null and b/demoinfo/logo_rpdf.png differ diff --git a/demoinfo/paises.txt b/demoinfo/paises.txt new file mode 100755 index 0000000..aa8886c --- /dev/null +++ b/demoinfo/paises.txt @@ -0,0 +1,15 @@ +Austria;Vienna;83859;8075 +Belgium;Brussels;30518;10192 +Denmark;Copenhagen;43094;5295 +Finland;Helsinki;304529;5147 +France;Paris;543965;58728 +Germany;Berlin;357022;82057 +Greece;Athens;131625;10511 +Ireland;Dublin;70723;3694 +Italy;Roma;301316;57563 +Luxembourg;Luxembourg;2586;424 +Netherlands;Amsterdam;41526;15654 +Portugal;Lisbon;91906;9957 +Spain;Madrid;504790;39348 +Sweden;Stockholm;410934;8839 +United Kingdom;London;243820;58862 diff --git a/demoinfo/pie_chart.jpg b/demoinfo/pie_chart.jpg new file mode 100755 index 0000000..150a328 Binary files /dev/null and b/demoinfo/pie_chart.jpg differ diff --git a/fpdf.rbo b/fpdf.rbo new file mode 100755 index 0000000..0c8e80c Binary files /dev/null and b/fpdf.rbo differ diff --git a/rsfpdf.rbres b/rsfpdf.rbres new file mode 100644 index 0000000..a6d4df6 Binary files /dev/null and b/rsfpdf.rbres differ diff --git a/rsfpdf.rbvcp b/rsfpdf.rbvcp new file mode 100644 index 0000000..79f16b8 --- /dev/null +++ b/rsfpdf.rbvcp @@ -0,0 +1 @@ +Type=Desktop RBProjectVersion=2011.02 MinIDEVersion=20110100 Class=App;App.rbbas;&h64F77FFF;&h0;false Window=Window1;Window1.rbfrm;&h601087FF;&h0;false MenuBar=MenuBar1;MenuBar1.rbmnu;&h79D817FF;&h0;false Class=EJEMPLO2;EJEMPLO2.rbbas;&h59332FFF;&h0;false Class=EJEMPLO4;EJEMPLO4.rbbas;&h18AF7FF;&h0;false Class=fpdf;fpdf.rbo;&h5FB20FFF;&h0;false Module=zlib;zlib.rbo;&h4AAE27FF;&h0;false BuildSteps=Build Automation;Build Automation.rbbas;&h5759A003;&h0;false DefaultWindow=Window1 AppMenuBar=MenuBar1 MajorVersion=0 MinorVersion=0 SubVersion=4 NonRelease=3 Release=2 InfoVersion= LongVersion= ShortVersion= WinCompanyName= WinInternalName= WinProductName= AutoIncrementVersionInformation=True BuildFlags=&h80 BuildLanguage=&h0 DebugLanguage=&h0 Region=0 WindowsName=rPDF Test MacCarbonMachName=rpdf_test LinuxX86Name=rpdf_test MacCreator= MDI=0 MDICaption= DefaultEncoding=&h0 AppIcon=rsfpdf.rbres;&h0 OSXBundleID= DebuggerCommandLine= UseGDIPlus=False UseBuildsFolder=True IsWebProject=False \ No newline at end of file diff --git a/zlib.rbo b/zlib.rbo new file mode 100755 index 0000000..e510149 Binary files /dev/null and b/zlib.rbo differ diff --git a/zlib1.dll b/zlib1.dll new file mode 100755 index 0000000..1cf8a47 Binary files /dev/null and b/zlib1.dll differ