home *** CD-ROM | disk | FTP | other *** search
/ ANews 3 / AnewsCD3.iso / DP / Programmation / PureBasic_Demo / Examples / Sources / BitMap&Drawing.pb < prev    next >
Text File  |  1999-10-10  |  2KB  |  69 lines
  1. ;
  2. ; ***********************************************
  3. ;
  4. ; BitMap & 2D Drawing example file for Pure Basic
  5. ;
  6. ;       © 1999 - Fantaisie Software -
  7. ;
  8. ; ***********************************************
  9. ;
  10. ;
  11.  
  12. InitBitMap(1)   ; We will need 2 bitmaps...
  13. InitScreen(0)   ; ... and 1 screen
  14.  
  15. AllocateBitMap(0,320,200*2,5)  ; Create our bitmaps
  16. AllocateBitMap(1,320,200*2,5)  ;
  17.  
  18. If OpenScreen(0, 320, 200, 5, 0) ; Open a little screen 320*320 - 32 colours
  19.  
  20.   UseBitMap(0)  ; Set the bitmap 0 as used bitmap
  21.  
  22.   SetDrawingOutput(BitMapRastPort())  ; Set the 2D Drawing output to the bitmap 0
  23.  
  24.   FrontColour(1)         ; Change the front colour to 1
  25.   BoxFill(30,30,60,60)   ; Draw a box of this colour !
  26.  
  27.   FrontColour(2)         ;
  28.   Circle(60,60,50)       ; A circle...
  29.  
  30.   Ellipse(200,50,10,30)  ; ... followed by an ellipse
  31.  
  32.   FrontColour(4)
  33.   Line(200,200,250,300)
  34.  
  35.   FrontColour(5)             ; Look, we print some text using the default font.
  36.   Locate(200,200)            ;
  37.   PrintText("Hello World")   ;
  38.  
  39.   UseBitMap(1)               ; Ok it's finished for this bitmap, now draw the bitmap 1
  40.  
  41.   SetDrawingOutput(BitMapRastPort())
  42.  
  43.   FrontColour(2)
  44.  
  45.   For k = 0 to 200 Step 2  ; A line of plots.
  46.     Plot(k,k)              ;
  47.   Next                     ;
  48.  
  49.   NPrint("Length in pixel of 'I'm Here': " +Str(TextLength("I'm Here")))
  50.  
  51.   Time = 100
  52.  
  53.   Repeat
  54.     ShowBitMap(db,ScreenID(),0,y) ; VWait is automatically done !
  55.  
  56.     db = 1-db               ; Look the double buffering routine. db is alternatively 0 and 1
  57.     Time = Time-1           ;
  58.  
  59.     If y<200
  60.       y=y+1
  61.     Else
  62.       y = 200
  63.     EndIf
  64.   Until Time = 0
  65.  
  66. EndIf
  67.  
  68. End      ; Finish the program and free all stuffs.
  69.