Board Logo
« Hey... 2017! »

Welcome Guest. Please Login or Register.
Nov 20th, 2017, 10:26pm


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


« Previous Topic | Next Topic »
Pages: 1  Notify Send Topic Print
 thread  Author  Topic: Hey... 2017!  (Read 363 times)
Facundo
Board Moderator


member is offline

Avatar




PM

Gender: Male
Posts: 1301
thumbup Hey... 2017!
« Thread started on: Dec 31st, 2016, 9:36pm »

Happy new year !
User IP Logged

cundo aka MSlayer
bplus
Senior Member
ImageImageImageImageImage


member is offline

Avatar




PM

Gender: Male
Posts: 1213
thumbup Re: Hey... 2017!
« Reply #1 on: Jan 1st, 2017, 10:54am »

Happy new prime year!

User IP Logged

B+
zzz000abc
Full Member
ImageImageImageImage


member is offline

Avatar




PM

Gender: Male
Posts: 256
thumbup Re: Hey... 2017!
« Reply #2 on: Jan 1st, 2017, 9:03pm »

Here is mine:
Code:
rr=0:gg=120:bb=0
open"newyearwishes"for graphics as#nw
#nw "trapclose [quit]"
while 1
on error goto[quit]
if gg<200 then bb=bb+15 else bb=bb-18
if bb<150 then rr=rr+30 else rr=rr-20
if bb>230 then bb=50:if rr>240 then rr=20:gg=160:if gg>220 then gg=100
#nw "discard;color ";rr;" ";gg;" ";bb
#nw "place 10 100;down;font 26;\Happy New Year "
#nw "place 70 180;font 52;\2017 "
#nw "flush"
scan
timer 250,[t1]
wait
[t1]
timer 0
wend
wait
[quit]
close#nw
end
 
« Last Edit: Jan 1st, 2017, 10:50pm by zzz000abc » User IP Logged

tenochtitlanuk ( John F)
Full Member
ImageImageImageImage


member is offline

Avatar




PM

Gender: Male
Posts: 422
thumbup Re: Hey... 2017!
« Reply #3 on: Jan 2nd, 2017, 04:57am »

Yup, Have a great New Year everyone!

Like your message zzz000abc. And I learned ( after a decade+ with JB/LB) that you can use 'font' with just size, without naming font to use!

My tweaked version below cycles the colours more smoothly with sine waves going up and down at different speeds.
Code:
WindowWidth  =300
WindowHeight =300

open "New Year wishes" for graphics_nsb as #nw

nomainwin
#nw "trapclose [quit]"
on error goto [quit]

theta =1

#nw "down ; fill darkblue ; backcolor darkblue"

while 1
    theta =theta +0.01
    r     =int( 155 +100 *cos(  7.1 *theta))
    g     =int( 155 +100 *cos( 13.1 *theta))
    b     =int( 155 +100 *sin( 21.3 *theta))
    #nw "color "; r; " "; g; " "; b
    #nw "place 10 100; font bold 26"
    #nw "\Happy New Year"
    #nw "place 70 180; font bold 52"
    #nw "\2017 "
    #nw "flush"
    scan
    timer 150, [t1]
    wait
  [t1]
    timer 0
wend

wait

[quit]
    close #nw
    end
 
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!
tsh73
JB-Supporter


member is offline

Avatar




PM

Gender: Male
Posts: 3614
thumbup Re: Hey... 2017!
« Reply #4 on: Jan 2nd, 2017, 2:23pm »

It's really interesting but there are prime numbers and composite numbers. But. In Russian "prime" for numbers is "prostoy" literally translated as "simple".
User Image

So wish you simple 2017!
« Last Edit: Jan 2nd, 2017, 2:27pm by tsh73 » 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)
Pages: 1  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