The Batman Forever Group said " you (CPC Scene) have the worst demos", clearly a challenge.
So are there any demo writers out there who are up to the challenge?
Here is a suggestion, could you write something like this?
http://www.youtube.com/watch?v=4-a85ZbuTxM (http://www.youtube.com/watch?v=4-a85ZbuTxM)
This seems like an animation and a good idea for an OpenGL demo on a PC. I remember an Nvidia demo with balls and machines playing music or something like that.
As for the challenge I guess there are people who will try to do much better than their previous effort now. It will just take some time.
Doing this on CPC ?
Well, not sure this can be done in "real" 3D...Yet a clever tiles and sprites job may get something like this, minus the rotating camera view.
Personnaly I would more be into some Kraftwerk stuff...
Get the Maaaan Machineeeee samples... in DMA channels.
Quote from: Optimus on 23:25, 08 May 11
I remember an Nvidia demo with balls and machines playing music or something like that.
Yes, that one is also on youtube, but I figured it would not be possible
not even on a plus. ;D
Quote from: MacDeath on 23:31, 08 May 11
Doing this on CPC ?
Well, not sure this can be done in "real" 3D...Yet a clever tiles and sprites job may get something like this, minus the rotating camera view.
Personnaly I would more be into some Kraftwerk stuff...
Get the Maaaan Machineeeee samples... in DMA channels.
Yes, it might be possible, there is not much movement if you do not have a moving camera, so multiplexing hardware sprites should be sufficient to handle what movement there is, while DMA handles the sound, if you were to put the demo in a 512KB cartridge, then you might be able to load screen data fast enough to have the rotating camera view as well.
I don't mean make an exact copy, just something
like it, a bit of animation matched to some copyright-free music.
If there is time available, use mode 2 graphics with pallette changes every line or 6, I don't know which because I am not a programmer.
To be fair to the demo programmers, I think they were writing for the CPC whilst the BF demo was written for the plus.
Steve, you seem to have a good starting point. I just can't wait seeing YOUR answer to Batman Group!
But your Demo would be not a lot more than a simple movie player...
I mean the Batman Demo also have realtime stuffs...
QuoteIf there is time available, use mode 2 graphics with pallette changes every line or 6, I don't know which because I am not a programmer.
To be fair to the demo programmers, I think they were writing for the CPC whilst the BF demo was written for the plus.
Mode2 + shittons of rasters ?
erk... you are still limited to 2 colours per scanline, which is actually very... small...
Ok you may get the Batman's "true colours" part quite a bit more impressive on PLUS due to Hardware rasters and 4096 palette...
Anyway Demo is not only about running some video.
To get some stuff calculated enable something that don't need 5 disks...
And a Demo on PLUS cartridge is not really practicle... until some decent solution become widely available (and cheap).
Also i told about Kraftwerk... I was thinking something like that :
http://youtu.be/mDH-Ocs-Dj4 (http://youtu.be/mDH-Ocs-Dj4)
Quote from: norecess on 02:22, 09 May 11
Steve, you seem to have a good starting point. I just can't wait seeing YOUR answer to Batman Group!
If you can wait for me to learn programming, then I will certainly give it a try.
Quote from: MacDeath on 08:55, 09 May 11
But your Demo would be not a lot more than a simple movie player...
I agree, it must calculate in real-time, not just be a simple animation player
Quote
Mode2 + shittons of rasters ?
erk... you are still limited to 2 colours per scanline, which is actually very... small...
Ok you may get the Batman's "true colours" part quite a bit more impressive on PLUS due to Hardware rasters and 4096 palette...
You are probably right, so let's make it mode 1
Quote
Anyway Demo is not only about running some video.
To get some stuff calculated enable something that don't need 5 disks...
And a Demo on PLUS cartridge is not really practicle... until some decent solution become widely available (and cheap).
True, we don't want a simple video player, the cartridge idea was simply a possibilty if programmable cartridges become available, if not we will need 512k ram to play it and load it from SD card.
Quote
Also i told about Kraftwerk... I was thinking something like that :
http://youtu.be/mDH-Ocs-Dj4 (http://youtu.be/mDH-Ocs-Dj4)
I like kraftwerk as well, but their lawyers may have severe punishments in mind for anyone who violates their copyrights.
On reflection, I think it is unreasonable to expect the 4Mhz Z80 to calculate much in real-time, these animations are created by very powerful computers so the best we can hope for is that the Z80 can display the animation in real-time from pre-calculated data, Although just to prove it is more than a simple "movie player", I do hope to make the demo interactive in some way so that the performance changes in response to the actions or input of the viewer.
QuoteI like kraftwerk as well, but their lawyers may have severe punishments in mind for anyone who violates their copyrights.
;D
Come on, Demo on CPC/PLUS are freewares... I don't think they would sue anyone for that.
Just need to ask their kind permission.
I was wondering whether my demo should use add-ons like the drum machine and digiblaster?, or a demo running on two cpc's for 6 channel sound?
Quote from: steve on 02:02, 10 May 11
I was wondering whether my demo should use add-ons like the drum machine and digiblaster?, or a demo running on two cpc's for 6 channel sound?
Well a lot of people don't have a drum machine.
More people have digiblaster.
But, it can be said that if it doesn't run on a stock (no extra hardware) cpc6128 or 6128+ then it's not a real cpc/+ demo.
Then it's more "wild" category, or more "enhanced".
Otherwise, we could do all kinds of crazy mods just to get the power to make the demo run...
so keep it cpc6128 or 6128+ ;)
Now you know why code has to be so good ;)
There is a homemade plan to get a second AY...
It's in a book on "making your own extension for your CPC464"...
I was seeing for this with my Arduino...(it can emulate a SID, so an AY may not be that difficult)
Don't remember where to find this book but I downloaded it.
http://cpcrulez.fr/book_micro_application-11_montages_extensions.htm (http://cpcrulez.fr/book_micro_application-11_montages_extensions.htm)
http://www.phenixinformatique.com/modules/TDMDownloads/singlefile.php?com_mode=flat&com_order=1&lid=47&cid=2 (http://www.phenixinformatique.com/modules/TDMDownloads/singlefile.php?com_mode=flat&com_order=1&lid=47&cid=2)
this one I think...
Quote18. Générateur de sons
This one actually permit the addition of a second AY on the extention port.
This was more a good excuse to include some stuff about the actual CPC's AY PSG... yet having it twice is not that bad too...
Anyway, Demos with peripheral are somewhat silly... because more than often too few poeple may have them.
Those are to be optionnal support, managed like PC softwares, from the time you could have between 4-5 video settings (Hercules, CGA, EGA, VGA and custom like Tandy or Amstrad PC1512) and 3-4 different sound settings (Beeper, Soundblaster, Ad-Lib and so on).
The same may be done on CPC...
Then you Demo would be on 2 Disk or a well full 720K 3"1/2 disk perhaps...
So yeah... perhaps 2-3 Sound extension may be accounted (Digivocal ? Digidrum ? additionnal AY ?) and so on...
A sweet way may be to actually use Arduinos or equivalent : reprogrammable CPC-Friendly card... (in 5V ?).
Just give what needed to code it into what you need and some explanation on the way to connect it to the CPC or extras (Sound output for an AY emulation).
That's quite a lot of additionnal job.
As a summary of this thread, we have :
1) 1 guy who gives lessons about good demos, but eventually plan learning how to program (without getting a clue about the under-the-hood thing)
2) 1 guy speculating about hypothetical hardware stuff to enhance demos...
Hmm. What have you been doing..? is really, really self-explicit.
Hahaha! Yes, navel-gazing is easier than making a demo. This includes me, too. But you have to consider, each gives what they can...
I find it sad that some people think others have no right to even discuss demos unless they have written some themselves, this began as an attempt to start a debate on the future evolution of demos, but instead of contributing to the debate one person felt the need to be aggressive and offensive to me.
Not what I expect to see on a forum that regards itself as "friendly".
No recess, if you have nothing to contribute to the debate then your posts are a waste of my and everybody else's time.
Whoa guys, calm down. I don't thin norecess meant to be offensive, though I do see that pointing fingers at two persons is a bit off. It'd be stupid to cease discussion because we just can't do it...
Quote1) 1 guy who gives lessons about good demos, but eventually plan learning how to program (without getting a clue about the under-the-hood thing)
2) 1 guy speculating about hypothetical hardware stuff to enhance demos...
But I did both... :D
We're all guilty!
Norecess was just joking or being ironic.
I was wondering about another thing since the first time I have seen BF. How will it affect the CPC scene?
I want to believe, and actually it is the most possible, that it will have a positive effect.
I was scared for a while that sceners would be more precautious before releasing stuff, which is good for quality things, but would make the demo releases more sparse when they already are rare.
In my case, it made me want to spent more time with what I do from now on, which would also mean avoid releasing mediocre or unfinished stuff. Recently I had the strategy to release stuff at demoparties or competitions no matter what, if I can't make a big demo in time then make a little 1k, because I thought it was good for the scene to see something even if it's not the best thing. Though, an 1k intro without music and just a single effect seems to be unnoticed. I sometimes think of changing my strategy to not release something except if it's more polished than my past attempts. There were two or three times I was planning something but aborted it the very last time because there is no meaning to release something not so good. At least, I have been busy, writting some code, so the next time it could be better.
I think the well known groups on CPC have this policy, never release something unless it's quality. Well, I know enough CPC demo which were not BF, but were quality. And then there are the smaller groups and people which release something even if it's not the best. I am not very proud with my last attempts, at least I was active, but I am wondering which way to go. Maybe it will mean more time since I release a demo again, maybe I'll change my mind the very last moment and do something small. I don't know.
But still, I believe BF changed me for the positive. Makes me think of taking care the little details that can be fixed to make things look better, also teaches me what is really possible on the CPC.
My feeling is that if you don't release it until it's polished then it could take a long time (experience tells me this also).
I would also like to see new releases quite regularly, and for people who are starting to code, simple old school demo effects are fine I think.
I think to make big productions with lots of transitions and all put together well takes a long time, sometimes a new picture release, or a new music, or a single screen effect are good.
@Optimus: I feel sad that your 1K demos do not seem to get noticed. I would say that I look at all, but I don't often comment.
EDIT: Perhaps if we had a published way that people could show off their pictures or musics they could use this and build upon it... but we could see new gfx, music and effects comming more quickly.
I don't program demos at all, but a project is a project and I tend to agree with Optimus. When I'm developing hardware, it's very easy to get impatient and think "Let's just release it now as it is", but I usually manage to hold myself back and don't release anything until I'm happy with the work I've done. It's better to be known for a few good projects, than for lots of mediocre attempts.
Bryce.
Quote from: Bryce on 09:30, 11 May 11
I don't program demos at all, but a project is a project and I tend to agree with Optimus. When I'm developing hardware, it's very easy to get impatient and think "Let's just release it now as it is", but I usually manage to hold myself back and don't release anything until I'm happy with the work I've done. It's better to be known for a few good projects, than for lots of mediocre attempts.
Bryce.
I agree with you in part, but for those who are learning, nothing is wrong with releasing smaller demos that show just a single effect, because it's all about learning... or... ?
Of course, I was more referring to major projects being released "unfinished" or buggy. Obviously when you are starting out you should start small and grow with experience.
Bryce.
Yeah it's pretty hard to polish a demo (as also a tool, a game, .. a documentation .. actually whatever you do !! :)).
Sorry for my negative state of mind at the beginning of the thread but once again, it was like 2 people discussing about the best demo to do without having the corresponding knowledge behind that.
Of course, newcomers/newbies are welcomed to participate and talk about what they like/dislike in a demo or what they would like to eventually see.. (or not ;))
QuoteSorry for my negative state of mind at the beginning of the thread but once again, it was like 2 people discussing about the best demo to do without having the corresponding knowledge behind that.
I was just answering to Steve because while I can't code at all... I know some bits of the Hardware and possibilities, so I felt I had to remind him of the reality concerning what he said.
He posted a superbe modern PC3D demo with music... and asked if this can be done on CPC... well, not really, and clearly not as complicated as it is... unless you just do a CPC movie player.
Also only reminded him that Demos with Hardware addons or Cartridges Demo are somewhat... not in the spirit...nor practicle...
@MacDeath BTW - just a personal thought - why don't you start learning ASM programming ? Regarding your activity on multiple forums, looks like you have infinite time for that :P we all would be happy to help you in such a way I guess!
Quote from: norecess on 14:47, 11 May 11
@MacDeath BTW - just a personal thought - why don't you start learning ASM programming ? Regarding your activity on multiple forums, looks like you have infinite time for that :P we all would be happy to help you in such a way I guess!
@norecess: asm is not the only way as you know ;)
he could code in C use SDCC or Z88dk too and use a library to help him to realise his wildest plus dreams.
Maybe we should start a Basic Demo competition - Who can create the best demo using only Basic? :)
Bryce.
Nooooooooooooooooooooooooooooooo. (http://www.nooooooooooooooo.com/ (http://www.nooooooooooooooo.com/)) don't want a debate about which languages to stick on :)
@MacDeath Well, you get the idea : any programming stuff. Discovering the side of creation, .. learning ASIC for real or whatever..
PS. I pushed something like 5 times that NO button. Still funny =)
Quote from: norecess on 15:12, 11 May 11
@MacDeath Well, you get the idea : any programming stuff. Discovering the side of creation, .. learning ASIC for real or whatever..
indded one more B-ASIC...
Plus sprites from BASIC... go on Macdeath ;)
Quote from: Bryce on 14:57, 11 May 11
Maybe we should start a Basic Demo competition - Who can create the best demo using only Basic? :)
Riiiight! I pick up the gauntlet that you threw so carelessly into our round. But be warned, this is 1337 stuff!
10 mode 1:randomize:cls
20 ink 0,0:ink 1,26:ink 2,13:ink 3,14:border 0
30 for j=0 to &ffff
40 for i=&c000 to &ffff
50 a=rnd((i+j) mod 255) * 255
60 poke i,a
70 next i,jHa! Given enough speed you have a tv snow effect!
Who dares answer my challenge? ;D
Quote from: MaV on 15:51, 11 May 11
Riiiight! I pick up the gauntlet that you threw so carelessly into our round. But be warned, this is 1337 stuff!
10 mode 1:randomize:cls
20 ink 0,0:ink 1,26:ink 2,13:ink 3,14:border 0
30 for j=0 to &ffff
40 for i=&c000 to &ffff
50 a=rnd((i+j) mod 255) * 255
60 poke i,a
70 next i,j
Ha! Given enough speed you have a tv snow effect!
Who dares answer my challenge? ;D
You should test your programs first ;)
This does nothing except asking for random number seed and thats it...
Quote from: Devilmarkus on 16:19, 11 May 11
You should test your programs first ;)
This does nothing except asking for random number seed and thats it...
How should I do that at work?
&ffff = 65535
&c000 = 49152
If that's the problem, just insert the decimal numbers instead of the hexadecimal.
It was meant as a joke, anyway. :P
10 INPUT "Enter random seed:",a%
20 if a%>65000 THEN PRINT "Your random seed is a nice big number!":END
30 if a%<100 THEN PRINT "Your random seed is tiny, but cute!":END
40 PRINT "Your random seed is cool!. I need to go find my sunglasses now!":END
Quote from: MaV on 16:30, 11 May 11
&ffff = 65535
Checked it now!
Just change the value in line 30 to 65535 instead of &ffff and leave the other values (&c000 and &ffff in line 40) in hex.
My first BASIC program in 20+ years! :D
@arnoldemu: I don't quite get the point...
I didn't understand the code anyway :D Can you add REMs next time :)
Bryce.
MODE 1:CLS is cool, too :D This rocks 8)
Quote from: Devilmarkus on 21:23, 11 May 11
MODE 1:CLS is cool, too :D This rocks 8)
Nah, that one makes sense ... mode 1 to set the mode, then randomize, then cls to clear the text. :P
Beat this Markus!
Sure....
(http://cpc-live.com/mav_beaten.png)
Cannot print as text because control chars used...
But try it ;)
PRINT "<ctrl+d>1<ctrl+x>"
This one is a classic.
10 CALL 10
20 GOTO 10
Works better on a 464 :P
Quote from: MaV on 18:03, 11 May 11
@arnoldemu: I don't quite get the point...
It was a really bad joke program in response to this from Markus:
"You should test your programs first (http://cpcwiki.eu/forum/Smileys/akyhne/wink.gif)
This does nothing except asking for random number seed and thats it..."
So my program asks for a random seed and tells you how nice the number is :laugh:
Quote from: arnoldemu on 09:28, 12 May 11
It was a really bad joke program in response to this from Markus:
"You should test your programs first (http://cpcwiki.eu/forum/Smileys/akyhne/wink.gif)
This does nothing except asking for random number seed and thats it..."
So my program asks for a random seed and tells you how nice the number is :laugh:
Ah ok. The basic program I understood, but I failed to connect your post to Markus'. :-[
I wrote this thing in Assembly ages ago, for best results it used a reoccuring screen pattern which made it look like it was moving (unfortunately I don't have that on hand!):
org &4000
.loop call &bb09
cp &20
jr z,end
ld a,0
ld bc,&0606
call &bc32
call &bd19
ld a,&00
ld bc,&1818
call &bc32
call &bd19
ld a,0
ld bc,&0f0f
call &bc32
call &bd19
jr loop
.end ret
If it were done in BASIC it would look like this:
10 WHILE INKEY$<>" "
20 INK 0,6:CALL &BD19
30 INK 0,24:CALL &BD19
40 INK 0,15:CALL &BD19
50 WEND
Quote from: CP/M User on 11:32, 12 May 11
If it were done in BASIC it would look like this:
That just made my headache a
lot worse.
If we're programming in BASIC, are we allowed to use POKE and DATA commands? If so, I think I could write something ;)
Quote from: redbox on 13:52, 12 May 11
That just made my headache a lot worse.
I'm sorry I should of put a <
WARNING> up, cause that effect gave me a Headache too, particularly the Assembly version cause it runs faster! ::) ). Definitely recommended if you want a day off work cause you've got a Headache! ;D I'm having a problem with that routine now cause from what I recall, the image I used with it had Colour Rotation. The idea being you'd have an image of patterns (4 colours for example) and you would switch between the INK numbers while switching the other INK colours to zero. For example:
10 MODE 1
20 FOR y=399 TO 379 STEP -1:MOVE 0,y:DRAW 12,y,1:NEXT y
30 FOR y=378 TO 358 STEP -1:MOVE 10,y:DRAW 20,y,2:NEXT y
40 FOR y=357 TO 337 STEP -1:MOVE 20,y:DRAW 30,y,3:NEXT y
50 LOCATE 10,10
60 WHILE INKEY$<>" "
70 INK 0,0:INK 1,26:INK 2,0:INK 3,0:CALL &BD19:CALL &BD19
80 INK 0,0:INK 1,0:INK 2,6:INK 3,0:CALL &BD19:CALL &BD19
90 INK 0,0:INK 1,0:INK 2,0:INK 3,2:CALL &BD19:CALL &BD19
100 INK 0,0:INK 1,0:INK 2,0:INK 3,0:CALL &BD19:CALL &BD19:WEND:CALL &BC02 I've put more Frame Flybacks into this one so it's not blinking so badly, making a whole screen of reoccurring imagery will give you the appearance of it moving. The best example I saw once was in ACU which gave you the appearance of a moving Locomotive from the Rear using Palette Switching! ;D
QuoteIf we're programming in BASIC, are we allowed to use POKE and DATA commands? If so, I think I could write something ;)
You could, but then it maybe Machine Code your using as your secondary language! ;D Though BASIC can most certainally use POKE and DATA statements for other purposes! ;D
I remember a basic routine from the spanish version of Amstrad User magazine that replicated the infamous amiga bouncing ball, using palette rotation and outs to move the ball around, it also mimicked the bouncing sound. Really impressive, although the ball took a while to be drawn (maybe about a minute).
Quote from: mcklain on 08:49, 13 May 11
I remember a basic routine from the spanish version of Amstrad User magazine that replicated the infamous amiga bouncing ball, using palette rotation and outs to move the ball around, it also mimicked the bouncing sound. Really impressive, although the ball took a while to be drawn (maybe about a minute).
I think it was this one : http://www.cpc-power.com/cpcdemos/index.php?page=detail&num=1754 (http://www.cpc-power.com/cpcdemos/index.php?page=detail&num=1754)
Yes, exactly :)
Are there any other recreations of the amiga boing ball on the cpc?
Interesting is, that the whole demo is written in BASIC!
10 a=0.2
20 x=120
30 DEG
40 c%=3
50 c1%=9
60 MODE 0
70 FOR x%=&C000 TO &F7FF STEP 2:POKE x%,128:NEXT
80 FOR x%=&F800 TO &FFFF:POKE x%,192:NEXT
90 GOSUB 310:ORIGIN 0,0,0,640,0,400
100 col=1
110 FOR kkk=1 TO 100
120 FOR kk=1 TO col
130 x=x-4
140 IF x=0 THEN a=-0.2
150 IF x=-120 THEN GOTO 290
160 d=0
170 PLOT 320,300,1
180 FOR t%= 90 TO 270 STEP 4
190 chk=INT(200+100*SIN(t%))
200 IF chk=293 OR chk=243 OR chk=156 OR chk=106 THEN d=1
210 IF chk=276 OR chk=203 OR chk=128 THEN d=0
220 IF d=1 THEN DRAW 320+x*COS(t%),200+100*SIN(t%),c% ELSE DRAW 320+x*COS(t%),200+100*SIN(t%),c1%
230 NEXT t%
240 NEXT kk
250 col=col+a:c%=c%+1:c1%=c1%+1
260 IF c%=15 THEN c%=3
270 IF c1%=15 THEN c1%=3
280 NEXT kkk
290 GOTO 420
300 END
310 c=15
320 x%=0:y%=100:ORIGIN 380,200:PLOT -2,-2,c
330 d%=3-2*r
340 WHILE x%<y%+2
350 PLOT x%,y%:DRAW -x%,y%:PLOT y%,x%:DRAW -y%,x%:PLOT -x%,-y%:DRAW x%,-y%:PLOT -y%,-x%:DRAW y%,-x%
360 IF d%<0 THEN d%=d%+4*x%+6: GOTO 390
370 d%=d%+4*(x%-y%)+10
380 y%=y%-2
390 x%=x%+2
400 WEND
410 RETURN
420 d=2:'Change variable D for speed
430 KEY 1,"call&bc02:mode 2:list"+CHR$(13)
440 ENV 1,14,-1,2:'Set up envelopes and variables
450 ENT 1,100,5,1
460 dr=1:cl=3:cl2=9:fr=1: xd%=-1:yd=-0.5:x%=30:y=15
470 FOR x=2 TO 14 STEP 2:INK x,6:INK x+1,26:NEXT:'Set inks to correct colours
480 INK 15,1:INK 1,2:INK 0,11:BORDER 11
490 WHILE mainloop=0
500 INK cl,6:INK cl2,26
510 OUT &BC00,12:OUT &BD00,48+INT(t%/256):OUT &BC00,13:OUT &BD00,t% MOD 256:'Uses CRTC register 12 & 13 to set OFFSET for hardware scroll
520 IF x%>35 OR x%<15 THEN IF xd%=-1 THEN SOUND 1,1500,0,1,1,1 ELSE SOUND 4,1500,0,1,1,1 ELSE a=a
530 yd=yd-0.5:x%=x%+xd%
540 IF x%>35 OR x%<15 THEN xd%=-xd%:dr=-dr
550 t%=x%+(80*y):FOR a=1 TO d:CALL &BD19:NEXT:'Use FRAME instead of CALL&BD19 on 664 & 6128
560 y=y+yd:IF y<11 THEN yd=2.5
570 IF yd=2 THEN SOUND 2,1000,0,1,1,1
580 cl=cl+dr:IF cl=15 THEN cl=3 ELSE IF cl=2 THEN cl=14:'Keeps control of INK values to give illusion of rotation
590 cl2=cl2+dr:IF cl2=15 THEN cl2=3 ELSE IF cl2=2 THEN cl2=14
600 WEND
Really a cool effect! Who can beat this? (In pure BASIC of course!)
I've just noticed that the "boing" sound is in stereo! :laugh:
The most interesting point for me is that they use CRTC registers 12 and 13! (base for screen ram)
I guess that the background grid helps to give the ilussion of just the ball bouncing and not the entire screen moving.
You forgot the Epilepsy Warning for the rendering part :D
Very nice and impressive, wish the ball rotated, too...
Quote from: Gryzor on 15:40, 13 May 11
You forgot the Epilepsy Warning for the rendering part :D
Very nice and impressive, wish the ball rotated, too...
It does... ;D
I always thought this ACU 10-Liner was pretty cool! ;D
1 MODE 0:DEG:CALL &BC02:FOR x=0 TO 639 STEP 640/3:PLOT x,0,15:DRAWR 0,399:NEXT:PLOT 639,0:DRAWR 0,399:FOR y=0 TO 399 STEP UNT(400/3):PLOT 0,y:DRAWR 639,0:NEXT:c=1:FOR x=8 TO 200 STEP 4:PLOT 8,270,c:DRAW x,394:PLOT 200,270:DRAW 212-x,394:PLOT 8,394
2 DRAW x,270:PLOT 200,394:DRAW 212-x,270:GOSUB 9:NEXT:ORIGIN 220,270,220,416,394,270:x=98:y=62:FOR r=2 TO 120 STEP 4:i=c:h=r:v=r:GOSUB 10:NEXT:ORIGIN 436,270,436,630,394,270:m=1:FOR r=60 TO 10 STEP-5:FOR n=0 TO 359 STEP 5:PLOT 98,62,c
3 DRAW 94+(r*m)*COS(n),62+r*SIN(n):GOSUB 9:NEXT:m=m+0.3:NEXT:ORIGIN 0,0,0,639,0,399:FOR r=359 TO 0 STEP-5:x=108+48*COS(r):y=200+40*SIN(r):i=c:h=20:v=20:GOSUB 10:NEXT:FOR x=436 TO 630:PLOT x,200+64*SIN(n),c:PLOT x,200+64*COS(n\2),c:n=n+5:GOSUB 9:NEXT
4 FOR n=0 TO 360 STEP 4:PLOT 110+80*COS(n),65+60*SIN(n),c:DRAW 110+80*COS(n+200),65+60*SIN(n+200):GOSUB 9:NEXT:c=0:FOR n=-80 TO 80 STEP 8:PLOT 312,128,c:DRAW 312+n,68:DRAW 312,4:GOSUB 9:NEXT:FOR n=80 TO -72 STEP -8:PLOT 316,128,c:DRAW 316+n,68
5 DRAW 316,4:GOSUB 9:NEXT:FOR n=20 TO 60 STEP 4:FOR n2=0 TO 360 STEP 4:PLOT 536+n*COS(n2),66+n*SIN(n2),c:GOSUB 9:NEXT:NEXT:c=10:FOR n=359 TO 0 STEP-8:PLOT 536,66,c:DRAW 536+60*COS(n),66+60*SIN(n),c:GOSUB 9:GOSUB 9
6 NEXT:RAD:FOR m=0 TO 54 STEP 0.2:PLOT 536,66,14:DRAW 536+30*COS(m),66+30*SIN(m):NEXT:PLOT 518,72:DEG:PLOT 526,76,0:DRAWR 0,-2:PLOT 546,76:DRAWR 0,-2:PLOT 516,66:FOR n=-180 TO 0 STEP 5:DRAW 536+20*COS(n),66+20*SIN(n):NEXT:ORIGIN 220,136,220,416,262,136
7 x=96:y=20:FOR h=0 TO 140 STEP 5:i=c:v=h/5:GOSUB 10:NEXT:yi=20:yic=5:y=55:FOR ri=-30 TO 30 STEP 5:c=INT(RND*9)+1:FOR z=0 TO 240 STEP 2+(RND*4):PLOT (96-ri)+ri*COS(z),y+(40+yi)*SIN(z),c:GOSUB 9:NEXT:yi=yi-yic:IF yi<-5 THEN yic=-yic
8 NEXT:y=20:FOR x=92 TO 100:PLOT x,y,13:DRAW x,50:NEXT:x=96:y=50:i=13:a=6:FOR r=1 TO 3:v=r:h=v*5:GOSUB 10:NEXT:INK 15,6:INK 14,15:INK 13,20:BORDER 0:INK 0,0:WHILE-1:FOR i=1 TO 10:INK i,26:INK i-1,0:CALL &BD19:CALL &BD19:NEXT:INK i-1,0:WEND
9 c=c MOD 10+1:RETURN
10 PLOT x+h*COS(0),y+v*SIN(0),i:FOR zz=0 TO 360 STEP 20:DRAW x+h*COS(zz),y+v*SIN(zz),i:NEXT zz:DRAW x+h*COS(0),y+v*SIN(0),i:GOSUB 9:RETURN
Holy crap ???
Quote from: CP/M User on 23:49, 13 May 11
I always thought this ACU 10-Liner was pretty cool! ;D
I wasn't sure about this whilst it was filling in the 9 sections... and then "Bam"... WOW! :o that is awesome and unexpected!!!