PureBasic Forums - English

Code: Select all

;file 1 "triangle.pbi"
DeclareModule triangle
  Global color = RGB(30, 255, 255)
  Declare draw(x, y, length) ;draws triangle with sides of (length) from top (centered) point (x, y)
EndDeclareModule

Module triangle
  Procedure draw(x, y, length) ;draws triangle with sides of (length) from top (centered) point (x, y)
    Protected height = length * Sin(30)
    Line(x, y, length / 2, height, color)                        ;right
    Line(x - (length / 2) - 1, y + height - 1, length, 1, color) ;bottom
    Line(x, y, -length / 2, height, color)                       ;left
  EndProcedure
EndModule

;=================================
;file 2 "box.pbi"
DeclareModule box
  Global color = RGB(255, 255, 30)
  Declare draw(x, y, length) ;draw box with sides of (length / 2) from top-left corner (x, y)
EndDeclareModule
  
Module box
  Procedure draw(x, y, length)  ;draw box with sides of (length / 2) from top-left corner (x, y)
    length / 2
    Line(x, y, 1, length, color)              ;left
    Line(x, y + length - 1, length, 1, color) ;bottom
    Line(x + length - 1, y, 1, length, color) ;right
    Line(x, y, length, 1, color)              ;top
  EndProcedure
EndModule

;=================================
;file 3 "my_box.pbi"  
DeclareModule box
  Global color = RGB(255, 30, 255)
  Declare draw(x, y, length) ;draw box with sides of (length) from top-left corner (x, y)
EndDeclareModule
  
Module box
  Procedure draw(x, y, length)  ;draw box with sides of (length) from top-left corner (x, y)
    Line(x, y, 1, length, color)              ;left
    Line(x, y + length - 1, length, 1, color) ;bottom
    Line(x + length - 1, y, 1, length, color) ;right
    Line(x, y, length, 1, color)              ;top
  EndProcedure
EndModule  

;=================================
;start of the main file, "main.pb"

;Normally select only one of the modules and change the line with "ImportModule ... As shape" to refer to it
Include "triangle.pbi"

ImportModule triangle As shape  ;Now the module is known as both 'triangle' and 'shape' going forward.
;
;Routines that are designed for a module named 'shape' will operate without further tailoring.
;     The alternative would be to edit the code each time the UseModule is used, or to replace the full
;module named (i.e. replace triangle::draw() with box::draw()) everywhere it is used.  Alternatively
;the module being added would have to be renamed so that it matches with the code that uses it.
;     If ImportModule ... As ... is used instead it would allow code to be tailored by swapping some modules
;in and out as long as their public members were the same.  This would allow the module name to carry
;some distinguising elements.

UseModule shape
Define i
CreateImage(1, 200, 200, 24, 0)
StartDrawing(ImageOutput(1))
  For i = 1 To 15
    draw(i * 10, i * 10, 40)
  Next
StopDrawing()

UnuseModule shape

;-----------------------------------------------
;Another issue, name clashes ...

;Include "box.pbi"
;;If both modules box and my_box were included we would need to rename one of them to avoid a name clash.
;RenameModule box, small_box ;Now the box module would be known only as small_box.
;Include "my_box.pbi"