Spring Banner Contest! (2023) - Printable Version

Code: (Select All)
'$INCLUDE:'SaveImage.BI'



Const SaveTextAs256Color = 0 'Flag to Save as 256 color file or 32-bit color file, when converting SCREEN 0 to an image

'                             Set to TRUE (any non-zero value) to save text screens in 256 color mode.

'                             Set to FALSE (zero) to save text screens in 32-bit color mode.



_Title "B+ Spring Banner 10, space to take snap" ' b+ 2023-03-12

' mod 1 start banner

' mod 2 add sun and rays

' mod 3 no overlap!

' mod 4 plasma coloring? don't like random bland!

' mod 5 number of petals determines color also twirl flower petals randomly

' mod 6 more flowers!

' mod 7 clean logo both sides of title

' mod 8 new draw flower with special pallet, only one screen option now

' mod 9 WuLine install for suns rays

' mod 10 RotoZoom mod DrawFlower



' mod 11 just background, logo and title  Banner Basics



Const XMAX = 1400 '                                                          screen banner specs

Const YMAX = 256





Screen _NewImage(XMAX, YMAX, 32)

_ScreenMove 0, 100

Randomize Timer '  oh we can have different flower arrangements



Dim As Long logo, spring, fnt, wallpaper

Dim k$

ReDim savefile As String

savefile = "Spring Banner 11 by b+.png" ' ---------------> name of out put image to spec

logo = _LoadImage("peLogo.png") ' -----------------------> here is logo for QB64pe Phoenix Edition

spring = _LoadImage("spring.jpg") ' ---------------------> here is a nice background I snatched

fnt = _LoadFont("ARLRDBD.TTF", 100) ' -------------------> here is font Big Bold Round like cloud

wallpaper = _NewImage(XMAX, YMAX, 32)

_PutImage , spring, wallpaper, (0, 400)-(_Width(spring), _Height(spring)) 'use full width but just some sky

_Font fnt, wallpaper

_PrintMode _KeepBackground , wallpaper

_Dest wallpaper

_PutImage (25, 5), logo, wallpaper

_PutImage (_Width - 25 - _Width(logo), 5), logo, wallpaper

_Dest wallpaper

Color _RGB32(26, 50, 230)

s$ = "QB64 Phoenix Edition"

_PrintString ((_Width - _PrintWidth(s$)) / 2, 20), s$, wallpaper

_Dest 0



Dim result '                                                                    save image or NOT

While _KeyDown(27) = 0 ' <<<<<<<<<<<<< allow escape from screen

    _PutImage , wallpaper&, 0

    k$ = InKey$

    _Display

    If k$ = " " Then

        result = SaveImage(savefile, 0, 0, 0, _Width - 1, _Height - 1)

        If result = 1 Then 'file already found on drive

            Kill savefile 'delete the old file

            result = SaveImage(savefile, 0, 0, 0, _Width - 1, _Height - 1) 'save the new one again

        End If

        If result >= 0 Then Cls: Print "Save Failed": Beep: End ' <<<<<<<<<<<<<<<<<  beep = failed

    ElseIf Len(k$) Then

        Exit While

    End If

    _Display

    _Limit 60

Wend

'$INCLUDE:'SaveImage.BM'