BBC BASIC for Windows
« BMPTOCODE example : NOTICE BOX (error msg) »

Welcome Guest. Please Login or Register.
Apr 5th, 2018, 10:19pm



ATTENTION MEMBERS: Conforums will be closing it doors and discontinuing its service on April 15, 2018.
Ad-Free has been deactivated. Outstanding Ad-Free credits will be reimbursed to respective payment methods.

If you require a dump of the post on your message board, please come to the support board and request it.


Thank you Conforums members.

BBC BASIC for Windows Resources
Online BBC BASIC for Windows documentation
BBC BASIC for Windows Beginners' Tutorial
BBC BASIC Home Page
BBC BASIC on Rosetta Code
BBC BASIC discussion group
BBC BASIC for Windows Programmers' Reference

« Previous Topic | Next Topic »
Pages: 1  Notify Send Topic Print
 thread  Author  Topic: BMPTOCODE example : NOTICE BOX (error msg)  (Read 378 times)
michael
Senior Member
ImageImageImageImage


member is offline

Avatar




PM


Posts: 335
xx BMPTOCODE example : NOTICE BOX (error msg)
« Thread started on: Apr 17th, 2016, 11:45pm »
The exclamation art is made with BMPTOCODE ( The BBC Basic version of BMPTOCODE is being worked on)

Now that I think about it I could modify this so it changes color with mouse presence!!

There is so much potential for this kind of art within code!!

Also the image was made with windows paint and the image is ( 256 BMP image that uses all colors on main palette except bottom right 2)

****I could probably make an executable and put it in DropBox and export it without conversion and make it generate BBC Basic code..**


(BMPTOCODE was a hard project and took me a long time to get to where it is with compression... and there is no way to compress it further, as I have tried)


BUT BMPTOCODE in its original form is flawed. ( a person who knows how to deal with the data can fix any cut offs with a colored block bellow the generated image)

It hasn't yet cut off the image itself... ( but time will tell)

MAKE SURE IN BBC BASIC OPTIONS TO DISABLE Lower Case Keywords ( OR you will have keyword errors ) (reboot BBC if you need to change that)

This took some trial and error. Now I need to make the width affected by text length and add a button..
I am working on a customizable button DEF PROC
This has some BMPTOCODE generated variables and is needing modifications. ( its just a showcase that will be replaced later)
Code:
      REM !!!  MAKE SURE IN BBC BASIC OPTIONS TO DISABLE  Lower Case Keywords  ( OR you will have keyword errors )
      REM SET GRAPHICS MODE TO 8 USING VDU
      VDU 22,8
      REM SET LINE THICKNESS TO 1
      VDU 23,23,1|
      REM Turn off the text cursor _
      OFF
      VDU 5 : REM Treat text as graphics (transparent background)
      PROC_color("b",0,0,0):CLG
      PROC_notice(100,500,"Syntax Error")
      WAIT 0
      END
      DEF PROC_notice(h,v,noticestring$)
      LOCAL ln%
      ln%=LEN(noticestring$)
      ln%=ln%*16.2
      PROC_color("f",255,255,255)
      REM boxfill(h,v,height,stringlength)
      RECTANGLE FILL h-20,v-180,500,290
      PROC_color("f",200,200,200):RECTANGLE FILL h-20,v-180,500,50
      PROC_color("f",150,150,150):RECTANGLE h-15,v-174,492,280
      MOVE h+60,v-10:PROC_color("f",0,0,0):PRINT noticestring$
      ost$="":r=0:g=0:b=0:a=0:c=0:t=0
      READ x,y
      REPEAT
        READ nst$,t
        IF nst$="0" THEN r=255:g=255:b=255  :REM 'black (set to white)             0   0   0
        IF nst$="1" THEN r=192:g=128:b=64  :REM' brown      192 128  64
        IF nst$="2" THEN r=64:g=64:b=192 :REM 'dark blue     64  64 192
        IF nst$="3" THEN r=128:g=128:b=128:REM' dark grey 128 128 128
        IF nst$="4" THEN r=128:g=0:b=0:REM 'dark red       128   0   0
        IF nst$="5" THEN r=224:g=192:b=0 :REM 'dark yellow  224   192   0
        IF nst$="6" THEN r=128:g=160:b=192:REM 'flat blue  128 160 192
        IF nst$="7" THEN r=32:g=192:b=64 : REM 'green        32 192  64
        IF nst$="8" THEN r=166:g=202:b=240: REM'light blue 166 202 240
        IF nst$="9" THEN r=192:g=192:b=192:REM 'light gray 192 192 192
        IF nst$="a" THEN r=192:g=224:b=0 :REM  'light green  192 224   0
        IF nst$="b" THEN r=224:g=32:b=64:REM 'light red    224  32  64
        IF nst$="c" THEN r=0:g=160:b=192:REM  'medblue        0 160 192
        IF nst$="d" THEN r=224:g=128:b=64 :REM 'orange       224 128 64
        IF nst$="e" THEN r=224:g=160:b=192:REM 'pink       224 160 192
        IF nst$="f" THEN r=160:g=64:b=192:REM 'purple      160 64 192
        IF nst$="g" THEN r=192:g=220:b=192:REM 'tan        192 220 192
        IF nst$="h" THEN r=255:g=255:b=255:REM 'white      255 255 255
        IF nst$="i" THEN r=255:g=255:b=0:REM 'yellow       255 255 0
        PROC_color("f",r,g,b)
        FOR u=0 TO t
          a=a+1: MOVE h+c,v-a:DRAW h+c,v-a:IF a>x  THEN c=c+1:a=0
        NEXT u
      UNTIL nst$="100000"
      MOVE h-20,v+110:PROC_color("f",0,0,0):PRINT "- Notice -"
      ENDPROC
      DATA 51,51
      DATA 0,303,4,2,0,45,4,6,0,42,4,8,0,39,4,11,0,37,4,13,0,34,4,16,0,32,4,12,b,0,4,4,0,29,4,13,5,1,b,0,4
      DATA 4,0,27,4,12,5,4,b,0,4,4,0,24,4,13,5,6,b,0,4,4,0,21,4,13,5,9,b,0,4,4,0,19,4,13,5,11,b,0,4,4
      DATA 0,16,4,13,5,14,b,0,4,4,0,14,4,13,5,16,b,0,4,4,0,11,4,13,5,19,b,0,4,4,0,9,4,12,5,22,b,0,4,4,0
      DATA 6,4,13,5,18,4,2,5,2,b,0,4,4,0,4,4,12,5,20,4,4,5,1,b,0,4,4,0,3,4,11,5,4,4,15,5,1,4,4,5,1
      DATA b,0,4,4,0,3,4,8,5,6,4,17,5,0,4,4,5,1,b,0,4,4,0,3,4,6,5,8,4,17,5,0,4,4,5,1,b,0,4,4,0
      DATA 3,4,6,b,1,5,6,4,17,5,0,4,4,5,1,b,0,4,4,0,3,4,8,b,2,5,4,4,15,5,1,4,4,5,1,b,0,4,4,0,3
      DATA 4,11,b,1,5,20,4,4,5,1,b,0,4,4,0,3,4,13,b,2,5,18,4,2,5,2,b,0,4,4,0,6,4,13,b,1,5,22,b,0,4
      DATA 4,0,9,4,12,b,2,5,19,b,0,4,4,0,11,4,13,b,1,5,17,b,0,4,4,0,14,4,12,b,1,5,15,b,0,4,4,0,16,4,13
      DATA b,1,5,12,b,0,4,4,0,19,4,12,b,1,5,10,b,0,4,4,0,21,4,13,b,1,5,7,b,0,4,4,0,24,4,13,b,0,5,5,b
      DATA 0,4,4,0,26,4,13,b,1,5,2,b,0,4,4,0,29,4,13,b,0,5,0,b,0,4,4,0,31,4,13,b,0,4,4,0,34,4,16,0,37
      DATA 4,13,0,39,4,11,0,42,4,8,0,44,4,6,0,47,4,2,100000,0
      REM this is the foreground and background tool.
      DEF PROC_color(fb$,r,g,b)
      IF fb$="f" OR fb$="F" THEN COLOUR 0,r,g,b : GCOL 0
      IF fb$="b" OR fb$="B" THEN COLOUR 1,r,g,b : GCOL 128+1
      ENDPROC
« Last Edit: Apr 21st, 2016, 11:04pm by michael » User IP Logged
I like making program generators and like reinventing the wheel
michael
Senior Member
ImageImageImageImage


member is offline

Avatar




PM


Posts: 335
xx Re: Looks like you have an error!! NOTICE BOX
« Reply #1 on: Apr 19th, 2016, 9:57pm »
notice project... This post will be reposted over when improvements are made to the button feature and size effect.
The exclamation point was made using a BBC BASIC modified version of my BMPTOCODE
User IP Logged
I like making program generators and like reinventing the wheel
michael
Senior Member
ImageImageImageImage


member is offline

Avatar




PM


Posts: 335
xx Re: BMPTOCODE example : NOTICE BOX (error msg)
« Reply #2 on: Apr 21st, 2016, 10:43pm »
Compression at its limit for a bmp image.
This is the template and example for BMPTOCODE along with the Notice Box construct.
User IP Logged
I like making program generators and like reinventing the wheel
Pages: 1  Notify Send Topic Print
« Previous Topic | Next Topic »

| |

This forum powered for FREE by Conforums ©
Terms of Service | Privacy Policy | Conforums Support | Parental Controls