BBC BASIC for Windows
IDE and Compiler >> Tools and Utilities >> Button Suite program generator with sample
http://bb4w.conforums.com/index.cgi?board=addins&action=display&num=1509316584

Button Suite program generator with sample
Post by michael on Oct 29th, 2017, 10:36pm

If you prefer you can download the merged BUTTON SUITE:

https://1drv.ms/u/s!AmYwmTjbmULXlzsKdSzcwX6MzeHc

OR


(USE BBC4W for this program)
Here is a generated program that was created using "BUTTON SUITE.bbc". Keep in mind that the buttons within BUTTON SUITE were created using this tool,

Later on I will improve the generator so it creates an entire functional button for each creation so its ready to copy and paste within your program.

This program requires RETROLIB core.bbc included in this link:

https://1drv.ms/f/s!AmYwmTjbmULXlzraoTxb0O96gJ47

*********************************************
NOTE: BUTTON SUITE BBCSDL VERSION.bbc outputs a file called: @usr$+"TEMP.txt"

IMPORTANT: "RETROLIB core.bbc" and "BUTTON SUITE BBCSDL VERSION.bbc" will need to be loaded into BBCSDL and saved in the @usr$ directory
**********************************************
THE PUMPKIN BUTTON:
Code:
     
 REM IMPORTANT "RETROLIB core.bbc" must be loaded into BBCSDL and saved in @usr$ directory !!!
REM INSTALL@usr$+"RETROLIB core.bbc": REM use this for BBCSDL

 INSTALL"RETROLIB core.bbc":REM BBC4W version
      PROCgraphics(500,500):LET x%=100:LET y%=100:PROCsbox(x%,y%,x%+50,y%+50,"0"):GCOL 15
      ELLIPSE x%+26,y%+23,18,17
      LINE x%+23,y%+44,x%+24,y%+40
      LINE x%+23,y%+44,x%+28,y%+44
      LINE x%+29,y%+39,x%+28,y%+44
      LINE x%+29,y%+39,x%+28,y%+44
      LINE x%+15,y%+26,x%+20,y%+33
      LINE x%+15,y%+26,x%+21,y%+26
      LINE x%+20,y%+33,x%+21,y%+26
      LINE x%+29,y%+33,x%+28,y%+26
      LINE x%+29,y%+33,x%+35,y%+26
      LINE x%+30,y%+26,x%+35,y%+26
      LINE x%+26,y%+16,x%+15,y%+20
      LINE x%+26,y%+16,x%+37,y%+20
      LINE x%+38,y%+20,x%+29,y%+13
      LINE x%+23,y%+13,x%+29,y%+13
      LINE x%+23,y%+13,x%+29,y%+13
      LINE x%+23,y%+13,x%+15,y%+21
      MOVE 0,0:END
 


And another face button:

Code:
      INSTALL"RETROLIB core.bbc"
      PROCgraphics(500,500):LET x%=100:LET y%=100:PROCsbox(x%,y%,x%+50,y%+50,"0"):GCOL 15
  
      COLOUR 0,210,152,022:GCOL 0
      ELLIPSE x%+26,y%+22,20,17
      ELLIPSE x%+21,y%+27,4,5
      ELLIPSE x%+32,y%+27,4,5
      LINE x%+19,y%+18,x%+32,y%+18
      MOVE 0,0:END