Christmas Cards 2017

Anything QL Software or Programming Related.
User avatar
pjw
Gold Card
Posts: 384
Joined: Fri Jul 11, 2014 8:44 am
Location: Norway

Christmas Cards 2017

Postby pjw » Tue Nov 28, 2017 11:24 pm

Time of the year again, guys (and any gals). I thought we had quite some fun last year. It started off with some nice animated Christmas cards and ended up with a full-blown video program!

Hardly a Christmas card, but I thought Id kick off with this little "screen saver" that demos the much under-used ALPHA_BLEND facility. SMSQ/E with 8 or 16 bit colour only, though, and preferably something more than 512x256 screen real estate. That means a Qx0 or Aurora system. No hardship, however, if you dont have one of those, as anyone here with a half decent PC of some flavour has access to the free QPC2 and SMSQmulator emulators! Happy progging!

Code: Select all

10 rem Able 8, pjw, November 28th 2017
11 :
12 bsz% = 80:              rem Block size
13 time% = 5:              rem Time out
14 :
15 ch% = FOPEN("con_")
16 :
17 xl% = SCR_XLIM(#ch%) - bsz%
18 yl% = SCR_YLIM(#ch%) - bsz%
19 :
20 WINDOW#ch%, SCR_XLIM(#ch%), SCR_YLIM(#ch%), 0, 0
21 :
22 REPeat lp
23  x = RND(0 TO 255): ALPHA_BLEND#ch%; x
24  BLOCK#ch%; bsz%, bsz%, RND(0 TO xl%), RND(0 TO yl%), RND(0 TO 7)
25  IF CODE(INKEY$(#ch%; time%)) = 27: EXIT lp
26 END REPeat lp
27 CLOSE#ch%
28 QUIT
29 :

Should be compatible with CueDark


Per
For every complex problem there is an answer that is clear, simple, and wrong.
- H. L. Mencken
User avatar
vanpeebles
Commissario Pebbli
Posts: 1930
Joined: Sat Nov 20, 2010 7:13 pm
Location: North East UK

Re: Christmas Cards 2017

Postby vanpeebles » Wed Nov 29, 2017 9:50 pm

That took me AGES last year! :lol:


User avatar
pjw
Gold Card
Posts: 384
Joined: Fri Jul 11, 2014 8:44 am
Location: Norway

Re: Christmas Cards 2017

Postby pjw » Wed Nov 29, 2017 11:33 pm

vanpeebles wrote:That took me AGES last year! :lol:

You mean your Christmas card?


Per
For every complex problem there is an answer that is clear, simple, and wrong.
- H. L. Mencken
User avatar
vanpeebles
Commissario Pebbli
Posts: 1930
Joined: Sat Nov 20, 2010 7:13 pm
Location: North East UK

Re: Christmas Cards 2017

Postby vanpeebles » Thu Nov 30, 2017 7:54 am

Yes, this thread brought back memories :D


User avatar
pjw
Gold Card
Posts: 384
Joined: Fri Jul 11, 2014 8:44 am
Location: Norway

Re: Christmas Cards 2017

Postby pjw » Sun Dec 03, 2017 7:00 pm

vanpeebles wrote:Yes, this thread brought back memories :D

Memories butter no parsnips! ;) I rather hope youre all beavering away at
making the most colourful, interesting, clever, imaginative, artistic, amazing,
breath-taking, mind-blowing, or whatever, "Xmas cards". Ever!!! Whether
youre the proud sysadmin of a humble 8MHz AH ROM microdrive-eating ozone-
smelling BBQL, or the super-secret yotta-flop SMSQ/E Qray computer, hidden
somewhere in the bowls of CERN, all, Im sure, would be equally welcome. Last
year it started with Cristian's humble (humble in requirements, not skill or
imagination!) four-colour animated fire place and ended up with Marcel's
butch girlie punk band video. Maybe theres nothing left to do? Maybe we can
just pack it in and move on the Atari ST instead?


Per
For every complex problem there is an answer that is clear, simple, and wrong.
- H. L. Mencken
User avatar
vanpeebles
Commissario Pebbli
Posts: 1930
Joined: Sat Nov 20, 2010 7:13 pm
Location: North East UK

Re: Christmas Cards 2017

Postby vanpeebles » Mon Dec 04, 2017 8:17 am

pjw wrote:
vanpeebles wrote:Yes, this thread brought back memories :D

Memories butter no parsnips! ;)


Hahahaha, I like it! :D


User avatar
vanpeebles
Commissario Pebbli
Posts: 1930
Joined: Sat Nov 20, 2010 7:13 pm
Location: North East UK

Re: Christmas Cards 2017

Postby vanpeebles » Mon Dec 04, 2017 8:20 am

Image

Here is a reminder of mine from last years, this is the gif version of the QL animation!


User avatar
NormanDunbar
Gold Card
Posts: 477
Joined: Tue Dec 14, 2010 9:04 am
Location: Leeds, West Yorkshire, UK
Contact:

Re: Christmas Cards 2017

Postby NormanDunbar » Mon Dec 04, 2017 8:30 am

I missed last year's fun. Is there a link to the thread, I can only find this thread and Rich;
's 'all I want for Christmas' in a search.

Thanks.

Cheers,
Norm.


Why do they put lightning conductors on churches?
How come Tarzan never grew a beard?
If at first you don't succeed, don't take up skydiving!
User avatar
pjw
Gold Card
Posts: 384
Joined: Fri Jul 11, 2014 8:44 am
Location: Norway

Re: Christmas Cards 2017

Postby pjw » Mon Dec 04, 2017 10:36 am

vanpeebles wrote:Here is a reminder of mine from last years, this is the gif version of the QL animation!

Ah, sorry, vanpeebles, I mis-attributed the Christmas card. I guess it all started with this topic:http://www.qlforum.co.uk/viewtopic.php?f=3&t=1709#p14916


Per
For every complex problem there is an answer that is clear, simple, and wrong.
- H. L. Mencken

Return to “Software & Programming”

Who is online

Users browsing this forum: No registered users and 3 guests