Board Logo
« Simple Curves »

Welcome Guest. Please Login or Register.
Jan 21st, 2018, 12:49am


Conforums Terms of Service | Membership Rules | Home | Search | Recent Posts | Notification | Format Your Message | Installation FAQ

Please use the forums Search feature before asking.
Please post code using the code box described in Format Your Messages.
This will keep indentation, separate it better form the message and prevent gibberish.
If the code is too long for one post or additional files are needed, upload a ZIP archive to the Just BASIC Files Archive Site.

« Previous Topic | Next Topic »
Pages: 1 2 3  Notify Send Topic Print
 veryhotthread  Author  Topic: Simple Curves  (Read 4033 times)
DAVEG
Full Member
ImageImageImageImage


member is offline

Avatar




PM

Gender: Male
Posts: 276
xx Re: Simple Curves
« Reply #15 on: Feb 21st, 2014, 12:54am »

My attempt the routine was taken from a demo program written
years ago which it self was cobbled together original thread posting.
Link to thread
It could be speeded up if rewritten.
You can then enter your own name.
Code:
'curve text DaveG feb14 v1.00
global woc1 ,pi , rads , bmpt , bmps , scale

winw1 = 800    'window width
winh1 = 300    'window height
winx1 = 10     'window x posn
winy1 = 10                   'window y posn
woc1 = 0                    'window open/close flag
point = 24       'point size
wpsize = int(point*11/12+1) 'av width of point size
psize = int(point*31/20)    'av height of point size
pi =asn(1)*2                'pi
rads = 360/ pi /2           'radians
xorg = winw1/2-5            'x origin
yorg = winh1/2-25     'y origin
bmph=1:bmpw=1:bmpc=8:bmpt=0:bmps=0  'bmp variables
dim bmpa(1,1):dim bmpw(95):dim sent(11):dim bmps(1,1)             'arrays for bmps
dim col(2,3)       'bmp info data
dim numr$(numn-1)   'number data array
'dim scol$(2,1)      'colour data array
col(0,0)=4:col(0,1)=2:col(0,2)=1:col(0,3)=0 'bmp file info
col(1,0)=3:col(1,1)=2:col(1,2)=1:col(1,3)=0


point=64
type$="EUROSTILE"
modi$="bold"
wpsize = int(point*11/12+1) 'av width of point size
psize = int(point*31/20)    'av height of point size
gosub [owindow1]
#1 "font ";type$;" ";point;" ";modi$

gosub [getbmp]
ind=0
while 0=0
    gosub [cwindow1]
    if ind<1 then
        sent$="DAVEG"
        fcol$="green"
        bcol$="trans"
    else
        print
        print "suggest 15 chacter limit and upper case"
        input "input sentence ? ";sent$
        print "input 'trans' to make colour transparent"
        input "colour ? ";fcol$
        input "back colour ? ";bcol$
        fcol$=lower$(fcol$)
        bcol$=lower$(bcol$)
    end if

    gosub [owindow1]
    gosub [printsentence]
    #1 "color red" :#1 "backcolor black"
    #1 "font ariel 12 bold"
    #1 "place 20 30"
    #1 "\left click to continue"
    call clickwait "#1"
    ind=1
wend
wait
end

[owindow1]
    WindowWidth = winw1 : WindowHeight = winh1
    UpperLeftX = winx1 : UpperLeftY = winy1

    open "Text Demo" for graphics_nsb as #1
    #1 "trapclose quit"
    #1 "font ariel ";point;" bold"
    #1 "down"
    woc1 = 1
    #1 "flush"
return

[cwindow1]
    if woc1=1 then close #1 : woc1=0
return

sub quit a$         'texit programme
    call timewait 20
    if woc1=1 then close #1
    end
end sub

sub timewait n      'wait n milliseconds
    timer n , [jump1]
    wait
  [jump1]
    timer 0
end sub

sub clickwait w$        'left click wait
    #w$ "when leftButtonUp [jump1]"
    wait
  [jump1]
    #w$ "when leftButtonUp"
end sub

'---------------bit map routines---------------------------------------------
[getbmp]            'find detaials of digit bmps
    px=20
    #1 "color red" : #1 "backcolor black"
    #1 "down" : #1 "size 1"
    #1 "cls" : #1 "fill blue"

    #1 "getbmp alpha 20 20 1 1" 'get bmp details
    bmpsave "alpha" ,"alpha.bmp"
    unloadbmp "alpha"
    open "alpha.bmp" for binary as #10 :oc10=1
    seek #10,10 :r=asc(input$(#10,1))   'get bmp start pos
    seek #10,11 :bmps=asc(input$(#10,1))*256+r
    seek #10,28 : r=asc(input$(#10,1))
    select case r       'for bmp 16/24/32
        case 32 : bmpt=0
        case 24 : bmpt=1
        case 16 : bmpt=2
        case else : bmpt=99
    end select
    close #10
    if bmps>100 then bmpt=99
    if bmpt = 99 then return

    #1 "place ";px;" ";20+psize
    print #1 , "\ " : gosub [getheight]
    bmph=ph : gosub [getwidth] : bmpw(0)=pw
    #1 "cls" : #1 "fill blue"; : #1 "place ";px;" ";20+psize
    print #1 , "\W" : gosub [getwidth] : bmpw=int(pw*1.10) 'width of W+safety margin
    redim bmpa(96,bmph*bmpw)
    for a= 0 to 95
        #1 "cls" : #1 "fill blue"; : #1 "place ";px;" ";20+psize
        if a <> 60 then 'to print "\" chr
            print #1 , "\";chr$(32+a)
        else
            print #1 , "|";chr$(32+a)
        end if
        gosub [getwidth]
        bmpw(a)=pw : gosub [getmap]
    next a
return

[getheight]         'get pixel height of letter
    x=px+1 : y=20
    b=255 :z=0
    while b>0 'find start
        #1 "getbmp pirate12 ";x;" ";y;" 1 1"
        t$=GetPixel$("pirate12")
        b=B(t$)
        scan
        z=z+1:y=y+1
    wend
    py=y
    z=0 : y=py
    while b=0       'find height
        #1 "getbmp pirate12 ";x;" ";y;" 1 1"
        t$=GetPixel$("pirate12")
        b=B(t$)
        scan
        z=z+1:y=y+1
    wend
    ph=z-1
return

[getwidth]      'get pixel width of letter
    x=px : y=py+1
    b=0 : z=0
    while b=0' or r <> 0
        #1 "getbmp pirate12 ";x;" ";y;" 1 1"
        t$=GetPixel$("pirate12")
        b=B(t$)' : r =R(t$)
        scan
        z=z+1:x=x+1
    wend
    pw=z-1
return

[getmap]        'get bmp of letter
    if pw=0 then return
    #1 "getbmp alpha ";px;" ";py;" ";pw;" ";ph
    bmpsave "alpha" ,"alpha.bmp"
    unloadbmp "alpha"
    open "alpha.bmp" for binary as #10 :oc10=1
    p=col(bmpt,1)+bmps
    k=0
    if bmpt=1 then      'to make up width to multiples of 4
        k=pw*col(bmpt,0)
        l= k mod 4
        k=(4-l) mod 4
    end if
    for n= 0 to ph-1
        if bmpt=2 then      'to make up width to multiples of 4
            k=pw : l = pw mod 2
            k=k+l
            for m= 0 to k-1
                seek #10,p : c=asc(input$(#10,1))
                seek #10,p+1 : c=asc(input$(#10,1))*256+c
                b = c mod 32 *8 : c=int(c/32)
                g = c mod 64 *4 : c=int(c/64)
                r=c*8
                bmpa(a , m*bmph +bmph-1-n ) = r
                p=p+2
            next m
        else
            for m= 0 to pw-1    '24/32 bit map
                seek #10,p
                bmpa(a , m*bmph +bmph-1-n ) = asc(input$(#10 , 1 ))  'turn right way round ie flip horizotally
                p=p+col(bmpt,0)
            next m
            p=p+k  'add on multiple
        end if
        scan
    next n
    close #10 : oc10=0
    kill "alpha.bmp"
return

[printsentence]
    s=len(sent$)
    redim sent(s)
    c=0
    for a= 1 to s   'find length of sentence
        b=asc(mid$(sent$,a,1))
        b=b-32
        sent(a)=b
        c=c+bmpw(b)
    next a
    redim bmps(bmph,c)
    d=0
    for a= 1 to s   'copy characters to setence array
        e=sent(a)
        pw=bmpw(e)
        for x = 0 to pw-1
            for y= 0 to bmph-1
                bmps(y,d)=bmpa(e,x*bmph+y)
            next y
            d=d+1
            scan
        next x
    next a
    #1 "cls"    'draw background
    #1 "down"
    #1 "fill darkgray"
    #1 "color lightgray"
    #1 "size 5"
    for x=0 to winw1 step 10
        #1 "place ";x;" 0"
        #1 "goto ";x;" ";winh1
    next x
    pw=bmpw(a)
    if bcol$<>"trans" then #1 "color ";bcol$
    ccol$=bcol$
    c1=0 :#1 "size 1"
    r2=bmph/4+(c*c)/(2*bmph)'formula to distort rext to cinerama
    d1=r2+bmph/4
    for x=0 to c
        k1=x-c/2
        k2=sqr(r2*r2-k1*k1)
        k3=d1-k2
        sc1=k3/(bmph/2)
        for y =0 to bmph-1
            r1=bmps(y,x)
            if c1=0 and r1>0 then ccol$=fcol$:c1=1
            if c1=1 and r1=0 then ccol$=bcol$:c1=0
            if ccol$<>"trans" then #1 "color ";ccol$
            newX = k1    'calc new X
            newY = sc1*(bmph/2-y) 'oldX * sind + oldY * cosd
            if ccol$<>"trans" then #1 "set ";xorg+newX;" ";yorg-newY 'print only if not trans
        next y
        scan
    next x
    #1 "flush"
return

'kcdan functions
function B(retpix$)
    B=val(word$(retpix$,3))
end function

function GetPixel$(pixelbmp$)
    bmpsave pixelbmp$,"kgetpixcrox.dat32"
    unloadbmp pixelbmp$
    open "kgetpixcrox.dat32" for binary as #rawrsdf
        if bmpt=2 then
            seek #rawrsdf,bmps : c=asc(input$(#rawrsdf,1))
            seek #rawrsdf,bmps+1 : c=asc(input$(#rawrsdf,1))*256+c
            b = c mod 32*8 : c=int(c/32)
            g = c mod 64*4 : c=int(c/64)
            r=c*8
        else
            seek #rawrsdf,col(bmpt,1)+bmps : r=asc(input$(#rawrsdf,1))
            seek #rawrsdf,col(bmpt,2)+bmps : g=asc(input$(#rawrsdf,1))
            seek #rawrsdf,col(bmpt,3)+bmps : b=asc(input$(#rawrsdf,1))
        end if
    close #rawrsdf
    kill "kgetpixcrox.dat32"
    GetPixel$=r;" ";g;" ";b
end function
 
User IP Logged

Mallot1
Full Member
ImageImageImageImage


member is offline

Avatar

Mallot1


Homepage PM

Gender: Male
Posts: 194
thumbup Re: Simple Curves
« Reply #16 on: Jun 26th, 2014, 5:41pm »

Do you just want to see a curved name, or do have to programmatically curve our name?
User IP Logged

User Image
User Image
Game Development Blog: http://mallot1development.wordpress.com
High Flyer! cheesy http://gamegrapestudios.com/highflyer
Welopez
Moderator
ImageImageImageImageImage


member is offline

Avatar

Never let your beliefs get in the way of learning.


PM

Gender: Male
Posts: 4407
xx Re: Simple Curves
« Reply #17 on: Jun 26th, 2014, 6:47pm »

Quote:
Btw why would someone like to skin a cat anyway? :|


In the days of sail (200-300 years ago), ships discipline was often enforced using the 'cat o' nine tails,' a short braided leather whip with nine thongs. The 'cat' was usually kept in a leather bag when not in use. It also gave rise to several phrases currently in use today... although few people are aware of their origin.

"Cat got your tongue?" A sailor may be afraid to speak lest he be flogged.

"Let the cat out of the bag." Remove the cat from the bag; someone may be getting flogged.

"There is more than one way to skin a cat." Remove the cat from the bag (skin the cat). There are many violations for which a sailor can be flogged.

There are probably many more of which I am not aware.
User IP Logged

JB 1.01
Win7 64bit, 4 GB RAM, Pentium 6200@2.13 GHz (laptop)
WinXP, 1 GB RAM, Intel N270@1.6 GHz (netbook)
tsh73
JB-Supporter


member is offline

Avatar




PM

Gender: Male
Posts: 3636
xx Re: Simple Curves
« Reply #18 on: Jun 27th, 2014, 12:19am »

Quote:
Do you just want to see a curved name, or do have to programmatically curve our name?

Task description says: Quote:
Simple task, display your name on screen in a curve. It can be letter by letter curved, it can be multiple names in a curve. We don't care it just needs to look errr..... not straight. It can be colored it can move it can flash but essentially the letters or name cannot be in a straight line.


So it should be JB code that provides "not straight" text. Basically anything other the just Code:
print "Mallot1" 
will do ;)

But the main point of the contest is to have fun and amuse others.
User IP Logged

Q: "And if I took your codes and compile them, and sell them for a profit"?
A: Go ahead. I had my share of good then I coded it for fun, if you can make better use of it - please do.
(enjoying JB 1.01 on WinXP, netbook and desktop)
reecely
Guest
xx Re: Simple Curves
« Reply #19 on: Jun 27th, 2014, 9:54pm »

Took about 10 seconds to come up with this:
Code:
    print "    e"
    print "  e   c"
    print "R       e"
 

It would probably look better if my name was longer and I had an even amount of letters, but ::)
User IP Logged

bplus
Senior Member
ImageImageImageImageImage


member is offline

Avatar




PM

Gender: Male
Posts: 1255
xx Re: Simple Curves
« Reply #20 on: Aug 19th, 2015, 3:57pm »

Hello, (this took longer than I care to confess!)

Code:
'curvy name.txt Just Basic challenge found 2015-08-19
phrase$="Hello JB from bplus...  "
d=len(phrase$)
pi = asn(1) * 2
crow=15 : ccol=40 : r=13
dim col(d)
dim row(d)
dm=d-1
for i=0 to dm
    t=2*cos(i/d*2*pi+pi)
    col(i)=ccol+t*r
    t=sin(i/d*2*pi+pi)
    row(i)=crow+t*r
next
for j=1 to 100
    for i=0 to dm
        m=(i+j) mod dm
        locate col(i),row(i): print mid$(phrase$,m+1,1)
        t=time$("milliseconds")
        while time$("milliseconds")<t+5
            scan
        wend
    next
next j
 


Why is the variables challenge locked?

B+
« Last Edit: Aug 19th, 2015, 4:06pm by bplus » User IP Logged

B+
Facundo
Board Moderator


member is offline

Avatar




PM

Gender: Male
Posts: 1303
xx Re: Simple Curves
« Reply #21 on: Oct 24th, 2016, 5:54pm »

Two years late, I was reading about the skin and the cat explanation by Welopez.


Code:
nomainwin

    WindowWidth = 640 : WindowHeight = 480
    UpperLeftX = INT((DisplayWidth-WindowWidth)/2)
    UpperLeftY = INT((DisplayHeight-WindowHeight)/2)

    Open "Graphic" for graphics_nf_nsb as #main
        #main "trapclose [quit]"

        #main "font Courier_New 20 50 bold"
        #main "backcolor white;color red"
        #main "down;fill white;flush"
        myName$ = "FaCuNdO: JustBASIC rules!"
        #main "place 0 24"

        #main "|"; myName$
        lenght = Len(myName$)
        for x = 1 to 20*lenght step 2
         idx=idx+1
         #main "getbmp bmp";idx ;" ";x;" ";0;" ";2;" ";24
        next

        #main "cls"

        for i = 1 to idx
            y = y + sin( i/10 )
         #main "drawbmp bmp"; i;" ";i*2 + 10 ;" ";20 + int(y)
        next

    wait



    [quit]
    for i = 1 to idx
    unloadbmp "bmp";i
    next
    close #main : end



 
User IP Logged

cundo aka MSlayer
bplus
Senior Member
ImageImageImageImageImage


member is offline

Avatar




PM

Gender: Male
Posts: 1255
xx Re: Simple Curves
« Reply #22 on: Oct 24th, 2016, 6:44pm »

I shall float this modification:
Code:
nomainwin

    WindowWidth = 640 : WindowHeight = 480
    UpperLeftX = INT((DisplayWidth-WindowWidth)/2)
    UpperLeftY = INT((DisplayHeight-WindowHeight)/2)

    Open "Graphic" for graphics_nf_nsb as #main
        #main "trapclose [quit]"

        #main "font Courier_New 20 50 bold"
        #main "backcolor white;color red"
        #main "down;fill white;flush"
        myName$ = "FaCuNdO: JustBASIC rules!"
        #main "place 0 24"

        #main "|"; myName$
        lenght = Len(myName$)
        for x = 1 to 20*lenght step 2
         idx=idx+1
         #main "getbmp bmp";idx ;" ";x;" ";0;" ";2;" ";24
        next

         #main "cls"
        a = 0
        call hue 255, 255, 255
        while 1

            for i = 1 to idx
                scan
                y = y + sin( i/10 + a )
                call fbox i*2 + 50, 150 , i*2 + 52, 250
                #main "drawbmp bmp"; i;" ";i*2 + 50 ;" ";200 + int(y)
            next

            a = a + .5
        wend
    wait



    [quit]
    for i = 1 to idx
    unloadbmp "bmp";i
    next
    close #main : end


sub fbox x0,y0,x1,y1
    #main "place ";x0;" ";y0
    #main "boxfilled ";x1;" ";y1
end sub

sub hue r, g, b 'fore and back
    #main "color ";r;" ";g;" ";b
    #main "backcolor ";r;" ";g;" ";b
end sub
 
« Last Edit: Oct 24th, 2016, 6:59pm by bplus » User IP Logged

B+
tsh73
JB-Supporter


member is offline

Avatar




PM

Gender: Male
Posts: 3636
xx Re: Simple Curves
« Reply #23 on: Oct 25th, 2016, 03:28am »

Nice. But it really needs
Code:
#main "discard" 

just after
Code:
while 1 
User IP Logged

Q: "And if I took your codes and compile them, and sell them for a profit"?
A: Go ahead. I had my share of good then I coded it for fun, if you can make better use of it - please do.
(enjoying JB 1.01 on WinXP, netbook and desktop)
Rod
Administrator
ImageImageImageImageImage


member is offline

Avatar

Graphics = Goosebumps!


PM

Gender: Male
Posts: 3151
xx Re: Simple Curves
« Reply #24 on: Oct 25th, 2016, 05:00am »

Nice, more folks should try.
User IP Logged

bplus
Senior Member
ImageImageImageImageImage


member is offline

Avatar




PM

Gender: Male
Posts: 1255
xx Re: Simple Curves
« Reply #25 on: Oct 25th, 2016, 6:54pm »

Speaking of cat expressions:
Code:
nomainwin

    WindowWidth = 700 : WindowHeight = 480
    UpperLeftX = INT((DisplayWidth-WindowWidth)/2)
    UpperLeftY = INT((DisplayHeight-WindowHeight)/2)

    Open "Graphic" for graphics_nf_nsb as #main
        #main "trapclose [quit]"

        #main "font Courier_New 20 50 bold"
        #main "backcolor white;color red"
        #main "down;fill white;flush"
        myName$ = "Look at what the cat dragged in!"
        #main "place 0 24"

        #main "|"; myName$
        lenght = Len(myName$)
        for x = 1 to 20*lenght step 2
         idx=idx+1
         #main "getbmp bmp";idx ;" ";x;" ";0;" ";2;" ";30
        next

         #main "cls"
        a = 0
        call hue 255, 255, 255
        while 1
            b = 0 : y = 0
            #main "discard"
            for i = 1 to idx
                b = b + .015
                scan
                y = y + b * sin( i/10 + a )
                call fbox i*2 + 30, 100 , i*2 + 32, 300
                #main "drawbmp bmp"; i;" ";i*2 + 30;" ";200 + int(y)
            next

            a = a + .5
        wend
    wait



    [quit]
    for i = 1 to idx
    unloadbmp "bmp";i
    next
    close #main : end


sub fbox x0,y0,x1,y1
    #main "place ";x0;" ";y0
    #main "boxfilled ";x1;" ";y1
end sub

sub hue r, g, b 'fore and back
    #main "color ";r;" ";g;" ";b
    #main "backcolor ";r;" ";g;" ";b
end sub
 
User IP Logged

B+
bplus
Senior Member
ImageImageImageImageImage


member is offline

Avatar




PM

Gender: Male
Posts: 1255
xx Re: Simple Curves
« Reply #26 on: Oct 25th, 2016, 7:36pm »

Sky-writing anyone?
Code:
nomainwin

    WindowWidth = 600 : WindowHeight = 760
    UpperLeftX = INT((DisplayWidth-WindowWidth)/2)
    UpperLeftY = INT((DisplayHeight-WindowHeight)/2)

    Open "Graphic" for graphics_nf_nsb as #main
        #main "trapclose [quit]"

        #main "font Courier_New 20 50 bold"
        #main "backcolor blue;color red"
        #main "down;fill blue;flush"
        myName$ = "You will have to look up!"
        #main "place 0 24"

        #main "|"; myName$
        lenght = Len(myName$)
        for x = 1 to 20*lenght step 2
         idx=idx+1
         #main "getbmp bmp";idx ;" ";x;" ";0;" ";2;" ";30
        next

         #main "cls"
        'a = 0
        call hue 255, 255, 255
        'while 1
            b = 1.0000000001 : y = 690
            #main "discard"
            for i = 1 to idx
                b = b + .015
                scan
                y = y-b^1.0000000001
                'call fbox i*2 + 30, 100 , i*2 + 32, 300
                #main "drawbmp bmp"; i;" ";i*2 + 30;" "; int(y)
            next
            #main "font ariel 12"
            #main "backcolor ";0;" ";0;" ";255
            #main "color ";160;" ";160;" ";160
            call stext 3, 710, "-\-f"
            'a = a + .5
        'wend
    wait

    [quit]
    for i = 1 to idx
    unloadbmp "bmp";i
    next
    close #main : end


sub fbox x0,y0,x1,y1
    #main "place ";x0;" ";y0
    #main "boxfilled ";x1;" ";y1
end sub

sub hue r, g, b 'fore and back
    #main "color ";r;" ";g;" ";b
    #main "backcolor ";r;" ";g;" ";b
end sub

sub stext x,y,message$ 'note: have to reset fore or back color after ink
    #main "place ";x;" ";y;";|";message$
end sub
 
« Last Edit: Oct 25th, 2016, 7:38pm by bplus » User IP Logged

B+
tsh73
JB-Supporter


member is offline

Avatar




PM

Gender: Male
Posts: 3636
xx Re: Simple Curves
« Reply #27 on: Oct 26th, 2016, 12:35am »

Wow, it curves really nice.
But there is no "ariel" font - only 'arial" wink
User IP Logged

Q: "And if I took your codes and compile them, and sell them for a profit"?
A: Go ahead. I had my share of good then I coded it for fun, if you can make better use of it - please do.
(enjoying JB 1.01 on WinXP, netbook and desktop)
bplus
Senior Member
ImageImageImageImageImage


member is offline

Avatar




PM

Gender: Male
Posts: 1255
xx Re: Simple Curves
« Reply #28 on: Oct 26th, 2016, 09:41am »

on Oct 26th, 2016, 12:35am, tsh73 wrote:
Wow, it curves really nice.
But there is no "ariel" font - only 'arial" wink


laugh Font changed size without error message, curious...
User IP Logged

B+
tenochtitlanuk ( John F)
Full Member
ImageImageImageImage


member is offline

Avatar




PM

Gender: Male
Posts: 430
xx Re: Simple Curves
« Reply #29 on: Oct 26th, 2016, 4:19pm »

Another variation- squeezing the text out onto a page like toothpaste from a tube- under mouse control. Easy to add various bells and whistles to this one... I added ability to save screen, change colour, random font size change.
NB Microsofties- change to your choice of MS font. I use Ubuntu...

User Image
Code:
  nomainwin

  message$  ="Squirting text like paint from a tube!"
  l         =len( message$)
  i         =1
  oldX      =0
  oldY      =0

  WindowWidth   =500
  WindowHeight  =500

  menu #wg, "Options", "Save", [save], "Size", [size], "Color", [colour]
  open "Paint something!" for graphics_nsb as #wg

  #wg "when leftButtonMove [paint]"
  #wg "down ; fill 200 200 200 ; backcolor 200 200 200"
  #wg "font Ubuntu_Mono 24 bold"
  wait

[paint]
  newX      =MouseX
  newY      =MouseY
  if abs( newX -oldX) <30 or abs( newY -oldeY) <20 then wait


  #wg "set "; newX; " "; newY
  #wg "\"; mid$( message$, int( i), 1)
  i         =i +1
  if i >l then i =1: #wg "color "; int( 256 *rnd( 1)); " "; int( 256 *rnd( 1)); " "; int( 256 *rnd( 1))
  oldX      =newX
  oldY      =newY
  scan
  wait

[save]
  #wg "getbmp scr 0 0 500 500"
  bmpsave "scr", "message" +str$( time$( "seconds")) +".bmp"
  wait

[size]  '   Select random size ( change fontname to a MS font if needed or add font dialogue)
  #wg "font Ubuntu_Mono "; str$( int( 50 *rnd( 1) +10)) +" bold"
  wait

[colour]    '   Choose a colour for the text
  colordialog "red", colourChosen$
  #wg "color "; colourChosen$
  wait
 
User IP Logged

Visit my LB/JB pages at http://www.diga.me.uk/index.html
I use XP and Ubuntu Linux on old machines!
Pages: 1 2 3  Notify Send Topic Print
« Previous Topic | Next Topic »

Conforums Terms of Service | Membership Rules | Home | Search | Recent Posts | Notification | Format Your Message | Installation FAQ

Donate $6.99 for 50,000 Ad-Free Pageviews!

| |

This forum powered for FREE by Conforums ©
Sign up for your own Free Message Board today!
Terms of Service | Privacy Policy | Conforums Support | Parental Controls