michael
Senior Member
member is offline
Posts: 335
|
 |
Button Suite program generator with sample
« Thread started 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
|
Logged