text2png

[bigbass]

This is something I wrote originally in gtkdialog
but I wanted to port it to BaCon just as a fun exercise
to see what would be needed now in 100% BaCon!

make sure you compile both apps and put them in
the same place they are dependent on each other


*uses just pango-view as the backend to keep things light




 ' bacon-text2png.bac


' Include the files for making a GUI.
INCLUDE "hug.bac"
INIT


CONST Single_quote$ = CHR$(39)
CONST Double_quote$ = CHR$(34)
CONST Dollar_sign$ = CHR$(36)



' short hand also
CONST sq$ = CHR$(39)
CONST dq$ = CHR$(34)
CONST ds$ = CHR$(36)

' initiate app with markup off
SET(My_toggle, 0)


'-----------------------
SUB toggle_demo()
'-----------------------
IF GET(My_toggle) = 1 THEN

PRINT GET(My_toggle)
TEXT(My_toggle, "Enabled_Markup")
ELSE
TEXT(My_toggle, "Disabled_Markup")
END IF

PRINT GRAB$(My_toggle)
PRINT GET(My_toggle)

END SUB



'-----------------------
SUB TEXT_OUT
'-----------------------
PRINT GRAB$(EDIT_BOX)
IMAGE_TXT$ = GRAB$(EDIT_BOX)
PRINT GRAB$(My_entry)
TMP2_PNG_NAME$ = GRAB$(My_entry)
PRINT CURDIR$

' we have to get all the selected data to the system
' because pango-view will be called with these values
' use system concat to avoid exporting out

'The text color
Combobox_selected$ = GRAB$(My_combobox)

'The background color
Combobox_selected2$ = GRAB$(My_combobox2)

'Set font
Combobox_selected3$ = GRAB$(My_combobox3)

'The dpi size of fonts
Combobox_selected4$ = GRAB$(My_combobox4)



IF GET(My_toggle) = 1 THEN
PRINT GET(My_toggle)

' with markup
' carry command over several lines just to make it easier to read
SYSTEM CONCAT$("pango-view", \
" --foreground=", dq$, Combobox_selected$, dq$, \
" --background=",dq$,Combobox_selected2$,dq$,  \
" --font=",dq$, Combobox_selected3$, dq$, \
" --dpi=",dq$, Combobox_selected4$, dq$, \
" --markup", " -t " , dq$,IMAGE_TXT$,dq$,  " -q ", " -o "  ,CURDIR$ ,"/", TMP2_PNG_NAME$ )


ELSE

' without markup
' carry command over several lines just to make it easier to read
SYSTEM CONCAT$("pango-view", \
" --foreground=", dq$, Combobox_selected$, dq$, \
" --background=",dq$,Combobox_selected2$,dq$,  \
" --font=",dq$, Combobox_selected3$, dq$, \
" --dpi=",dq$, Combobox_selected4$, dq$, \
" -t " ,dq$,IMAGE_TXT$,dq$ ,  " -q ", " -o "  ,CURDIR$ ,"/", TMP2_PNG_NAME$ )

END IF


PRINT GET(My_toggle)

' launch the viewer app here
SYSTEM  CONCAT$(".", "/recent-image2"," &")


ENDSUB


'-----------------------
SUB My_combobox_demo()
'-----------------------
Combobox_selected$ = GRAB$(My_combobox)
PRINT Combobox_selected$
END SUB


'-----------------------
SUB My_combobox_demo2()
'-----------------------
Combobox_selected2$ = GRAB$(My_combobox2)
PRINT Combobox_selected2$
END SUB


'-----------------------
SUB My_combobox_demo3()
'-----------------------
Combobox_selected3$ = GRAB$(My_combobox3)
PRINT Combobox_selected3$
END SUB


'-----------------------
SUB My_combobox_demo4()
'-----------------------
Combobox_selected4$ = GRAB$(My_combobox4)
PRINT Combobox_selected4$
END SUB



' 1.) Create your main working window, 350 pixels wide x 200 pixels high
Mainwin = WINDOW( "BaCon Text to png ", 450, 400 )


My_label = MARK( "Type or paste something in the box ", 300, 30 )
ATTACH( Mainwin, My_label, -10, 100)
FONT(My_label, "sans 10")



'======================
'---toggle
'======================
My_toggle = TOGGLE("Markup_Disabled", 120, 25)
ATTACH( Mainwin, My_toggle, 230, 60 )
CALLBACK(My_toggle, toggle_demo)



'======================
'---entry box
'======================
My_entry = ENTRY("out.png", 120, 25)
ATTACH( Mainwin, My_entry, 20, 50 )


My_entrylabel = MARK( "Name of output file ", 300, 30 )
ATTACH( Mainwin, My_entrylabel, -60, 20 )


'======================
'---edit box
'======================
EDIT_BOX = EDIT(410, 90)
ATTACH( Mainwin, EDIT_BOX, 20, 130 )



'======================
'---button
'======================
My_btn = STOCK("gtk-apply", 80, 25)
ATTACH( Mainwin, My_btn, 230, 20 )
CALLBACK( My_btn, TEXT_OUT)


'======================
'---button
'======================
' Create a button.
My_chk = STOCK("gtk-quit", 80, 25)
ATTACH( Mainwin, My_chk, 345, 20 )
' Make button do something
CALLBACK( My_chk, QUIT)


'======================
'---combo box static
'======================
Menu_label = MARK("The text color            " , 220, 30)
ATTACH( Mainwin, Menu_label, 10, 240 )

My_combobox = COMBO("black", 180, 30)
TEXT(My_combobox ,"blue" )
TEXT(My_combobox ,"green" )
TEXT(My_combobox ,"red" )
TEXT(My_combobox ,"yellow" )
TEXT(My_combobox ,"brown" )
TEXT(My_combobox ,"grey" )
TEXT(My_combobox ,"cyan" )
TEXT(My_combobox ,"orange" )
TEXT(My_combobox ,"white" )
ATTACH( Mainwin, My_combobox, 250, 240 )
CALLBACK(My_combobox, My_combobox_demo)

 
 

'======================
'---combo box static 2
'======================
Menu_label2 = MARK("The background color" , 220, 30)
ATTACH( Mainwin, Menu_label2, 10, 280 )

My_combobox2 = COMBO("transparent", 180, 30)
TEXT(My_combobox2 ,"black" )
TEXT(My_combobox2 ,"blue" )
TEXT(My_combobox2 ,"green" )
TEXT(My_combobox2 ,"yellow" )
TEXT(My_combobox2 ,"red" )
TEXT(My_combobox2 ,"brown" )
TEXT(My_combobox2 ,"grey" )
TEXT(My_combobox2 ,"cyan" )
TEXT(My_combobox2 ,"orange" )
TEXT(My_combobox2 ,"white" )
ATTACH( Mainwin, My_combobox2, 250, 280 )
CALLBACK(My_combobox2, My_combobox_demo2)
 

'======================
'---combo box static 3
'======================
Menu_label3 = MARK("Set font                   " , 220, 30)
ATTACH( Mainwin, Menu_label3, 10, 320 )

My_combobox3 = COMBO("DejaVuSans", 180, 30)
TEXT(My_combobox3 ,"DejaVuSans-Bold" )
TEXT(My_combobox3 ,"DejaVuSans-Oblique" )
TEXT(My_combobox3 ,"DejaVuSans-BoldOblique" )
TEXT(My_combobox3 ,"DejaVuSansCondensed-BoldOblique" )
TEXT(My_combobox3 ,"DejaVuSansCondensed-Bold" )
TEXT(My_combobox3 ,"DejaVuSansCondensed-Oblique" )
TEXT(My_combobox3 ,"DejaVuSansCondensed" )
TEXT(My_combobox3 ,"DejaVuSans-ExtraLight" )
TEXT(My_combobox3 ,"DejaVuSansMono-BoldOblique" )
TEXT(My_combobox3 ,"DejaVuSansMono-Bold" )
TEXT(My_combobox3 ,"DejaVuSansMono-Oblique" )
TEXT(My_combobox3 ,"DejaVuSansMono" )
TEXT(My_combobox3 ,"DejaVuSerif-BoldItalic" )
TEXT(My_combobox3 ,"DejaVuSerif-Bold" )
TEXT(My_combobox3 ,"DejaVuSerifCondensed-BoldItalic" )
TEXT(My_combobox3 ,"DejaVuSerifCondensed-Bold" )
TEXT(My_combobox3 ,"DejaVuSerifCondensed-Italic" )
TEXT(My_combobox3 ,"DejaVuSerifCondensed" )
TEXT(My_combobox3 ,"DejaVuSerif-Italic" )
TEXT(My_combobox3 ,"DejaVuS" )
ATTACH( Mainwin, My_combobox3, 250, 320 )
CALLBACK(My_combobox3, My_combobox_demo3)

   
'======================
'---combo box static 4
'======================
Menu_label4 = MARK("The dpi size of fonts " , 220, 30)
ATTACH( Mainwin, Menu_label4, 10, 360 )

My_combobox4 = COMBO("72", 180, 30)
TEXT(My_combobox4 ,"96" )
TEXT(My_combobox4 ,"150" )
TEXT(My_combobox4 ,"175" )
TEXT(My_combobox4 ,"200" )
TEXT(My_combobox4 ,"225" )
TEXT(My_combobox4 ,"250" )
TEXT(My_combobox4 ,"300" )
TEXT(My_combobox4 ,"325" )
TEXT(My_combobox4 ,"350" )
TEXT(My_combobox4 ,"400" )

ATTACH( Mainwin, My_combobox4, 250, 360 )
CALLBACK(My_combobox4, My_combobox_demo4)


DISPLAY










' recent-image2.bac

INCLUDE "hug.bac"
INIT


   

Mainwin = WINDOW( "BaCon image", 450, 400 )


My_label = MARK( "The numbered values are in HUG syntax X,Y" ,400,30)

' Attach the label to the main window
ATTACH( Mainwin, My_label, 0, 340)


' update with the most recent *.png file

TMP_PNG_NAME$ = CHOP$(EXEC$("ls -t $PWD/*.png | head -1"))
PRINT "TMP_PNG_NAME-->", TMP_PNG_NAME$

'get this out to bash
SETENVIRON "TMP_PNG_NAME",TMP_PNG_NAME$


' clean file name to just basename

TMP2_PNG_NAME$ = CHOP$(EXEC$("basename $TMP_PNG_NAME"))
PRINT "TMP2_PNG_NAME --> ",TMP2_PNG_NAME$


'get this out to bash
SETENVIRON "TMP2_PNG_NAME",TMP2_PNG_NAME$

'get pixel size
HUG_IMAGE_SIZE$ = CHOP$(EXEC$("file $TMP_PNG_NAME | cut -f2 -d','| sed 's/ x /,/g'"))
PRINT HUG_IMAGE_SIZE$



'put pixel size x in arrary 0 and pixel size y in array 1
SPLIT HUG_IMAGE_SIZE$ BY "," TO cords$ SIZE dim
PRINT cords$[0]
PRINT cords$[1]


The_image_ = IMAGE(TMP_PNG_NAME$, VAL(cords$[0]), VAL(cords$[1]))
ATTACH( Mainwin, The_image_, 0, 0)


together_again$ = CONCAT$("Your image size in pixels is --> ",HUG_IMAGE_SIZE$)

My_label = MARK( together_again$ ,400,30)

' Attach the label to the main window
ATTACH( Mainwin, My_label, 0, 320)



'--- BUTTON ---
Close_btn = STOCK("gtk-close", 100, 25)
ATTACH(Mainwin, Close_btn, 320, 365)
CALLBACK(Close_btn, QUIT)

DISPLAY


[Deleted]

You may want to take this a step further by using the GD library.




import gd.bas

brush = gd::Create(10,10)
white = gd::Color(brush,255,255,255)
black = gd::Color(brush,0,240,0)
gd::Line brush,0,0,10,10,black
gd::Line brush,0,10,10,0,black

' gd::SavePng(brush,"brush.png")

image = gd::Create(400,300)

white = gd::Color(image,255,255,255)
gd::SetTransparentColor image,white
black = gd::Color(image,0,0,0)
red =  gd::Color(image,255,0,0)
blue =  gd::Color(image,0,0,255)
green = gd::Color(image,0,255,0)

gd::Point image,0,0,black

gd::Rectangle image,200,50,250,100,red
gd::FilledRectangle image,225,75,275,125,green

gd::Rectangle image,324,190,376,290,black
gd::SetTile image,brush
gd::FilledRectangle image,322,189,374,289,red

gd::Circle image,350,50,40,blue
gd::FillToBorder image,350,50,blue,green
gd::Fill image,201,51,blue

gd::SetBrush image,brush
gd::Line image,300,200,300,350,gd::Brushed

gd::SetColor image,black

gd::SetFont image,gd::FontTiny
gd::print image,0,0,"THIS PICTURE WAS CREATED FROM ScriptBasic USING THE MODULE GD/PNG"
gd::print image,0,10,"x=",gd::SizeX(image)," y=",gd::SizeY(image)
gd::print image,100,100,"Tiny ",12*3+55

gd::SetFont image,gd::FontSmall
gd::print image,100,120,"Small ",55*63

gd::SetFont image,gd::FontMedium
gd::print image,100,150,"Medium ",24/19

gd::SetFont image,gd::FontLarge
gd::print image,100,190,"Large ",sin(3.1)

gd::SetFont image,gd::FontGiant
gd::print image,100,240,"Giant ",log(1000)


for i=0 to 65 step 5
 gd::Line image,i,20,65-i,75
next i

LineStyle[0] = black
LineStyle[1] = black
LineStyle[2] = undef
LineStyle[3] = undef
LineStyle[4] = red
LineStyle[5] = green
LineStyle[6] = blue
LineStyle[7] = undef
LineStyle[8] = red
LineStyle[9] = red

gd::LineStyle image,LineStyle

gd::Line image,0,90,100,90,undef

for i=0 to 65 step 5
 gd::Line image,i,100,65-i,165,undef
next i


ImagePng = gd::Png(image)

gd::Destroy image

fn = 0
open "test.png" for output as fn
binmode fn
print#fn,ImagePng
undef ImagePng
close#fn

print "done\n"


[bigbass]

Hello jrs

Thanks for the suggestion and snippet
maybe you could help with a ported to bacon version it could be a fun exercise too
that would be a nice example that could be added to the widget page



This GUI is to show that you dont need imagemagik or gimp
or some other paint app to produce a image or viewer in png format

it can be done without heavy backend dependencies

also I would like to secretly make a text input GUI for all of the cool stuff
vovchik has done with images someday. He inspired me for the need
of a small image making app

some small devices like mp3 players cant read text files but they can read
images of text and images are small in byte size a mico mini PDF idea

Joe

[Deleted]

My plate is kinda full at the moment but did want to pass the option along.

[bigbass]

Thanks ! this is another option but yes if someone would like to add the gd library
it can be easily done also

*I will replace the back end later to show a GUI for the gd libray
to have more options to draw also


I took Peter's original gd-demo.bac
and made a very small adjustment to output the PNG format
instead of JPEG

'
' Demonstration for the GD library
'
' (c) PvE, May 2010 - GPL

'-----------------------------------------------

' small adjustment to output PNG instead of JPEG . bigbass 3-19-2013
' commented out the gdImageArc and the gdImageRectangle
' dependency ---> www.basic-converter.org/gd.bac



' Include context
INCLUDE "gd.bac"



DECLARE black, white, red, blue TYPE int

' Create image
im = gdImageCreate(200, 50)

' Background color (first allocated)
white = gdImageColorAllocate(im, 255, 255, 255)

' Allocate more clors
black = gdImageColorAllocate(im, 0, 0, 0)
red = gdImageColorAllocate(im, 255, 0, 0)
blue = gdImageColorAllocate(im, 0, 0, 255)

' Inscribe an ellipse, a rectangle and some text in the image
'gdImageArc(im, 200, 150, 350, 250, 0, 360, black)
'gdImageRectangle(im, 75, 75, 200, 150, black)
gdImageString(im, gdFontGetMediumBold(), 10, 10, "Hello BaCon world!", black)

' Fill using some colors
'gdImageFill(im, 100, 100, blue)
'gdImageFill(im, 250, 150, red)


' Write PNG using default quality
OPEN "gd-demo.png" FOR WRITING AS png
gdImagePng(im, png)
CLOSE FILE png

' Show image
PRINT "Show image in Firefox (Y/N)?";
key = GETKEY
PRINT

IF key EQ 89 OR key EQ 121 THEN
SYSTEM "firefox -new-tab gd-demo.png"
ELSE
PRINT "Use a PNG viewer to view 'gd-demo.png'!"
END IF

' Destroy image
gdImageDestroy(im)

[Deleted]

Glad to see those GD/PNG seeds sprouting.