Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|379\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Festive Threads -> Advent of Creativity 5
Page : 1 2 3 4 Prev 5 6 Next 7
Sun, 18 Dec 2022, 14:48
Dan	xmas-tree - plotting style // 17AdventOfCreativity // by Dan // Created 2022/12/18 Symbol 0,"0__0_00I0/I0.I/0,I,0.II0II00II0,II"; Symbol 1,"1__0_0_0?v0_0!v0_0.v?0_0vW?v0@vWWUUW,v0!vWWUW!v0?vWUW/v0?vWUW/v0?vW_v0?vW_v0!vW/v0@vW?v0_0v?"; Graphics 320,242,3 doublebuffer cls dim tree(240,3) dim cl(240,3) dim items(11,3) sta=1;c1=183;c2=78;c3=15;rep=18;stx=145;sty=238;stx1=170:Gosub copyarray for tmpx=0 to 35 c1=30;c2=184;c3=5;rep=6;stx=50+(tmpx3);stx1=260-(tmpx3):Gosub copyarray next tree(0,0)=0 y=1 .lop cls setscale 0.2,0.2 starfield 0.9,0,0,1 if y>1 then for x=1 to y color cl(x,0),cl(x,1),cl(x,2) if x<y then line tree(x,0),tree(x,1),tree(x,2),tree(x,1) next endif color cl(y,0),cl(y,1),cl(y,2) tree(0,0)=tree(0,0)+25 Line tree(y,0),tree(y,1),tree(y,0)+tree(0,0),tree(y,1) if tree(y,0)+tree(0,0)>Tree(y,2) then tree(0,0)=0;y=y+1 EndIf flip if y<240 then goto lop z=0 for y=20 to 200 step 20;x=rand(tree(y,0)+10,tree(y,2)-10);z=z+1;items(z,0)=x;items(z,1)=240-y;items(z,3)=Rand(0,8);next .lop1 cls setscale 0.2,0.2;starfield 0.9,0,0,1;setscale 0.8,0.8;setrotation 0 for x=1 to 240;color cl(x,0),cl(x,1),cl(x,2);drawline tree(x,0),tree(x,1),tree(x,2),tree(x,1);next for x=1 to z;drawimage items(x,0),items(x,1),1,Items(x,3);next setscale 1,1 drawimage 156,10,0 flip goto lop1 end .copyarray for x=1 to rep tree(sta,0)=stx;tree(sta,1)=sty;tree(sta,2)=stx1;cl(sta,0)=c1;cl(sta,1)=c2;cl(sta,2)=c3;sty=sty-1;sta=sta+1 next return --v
Sun, 18 Dec 2022, 15:41
Jayenkai	// Emoji Lister // by Jayenkai // Created 2022/12/8 // GotoJSE.com/8K8VHBHC.BAS Graphics 800,400,1 top=0 repeat CLS;ResetDraw;SetFontSize 48 dx=48;dy=48-top:seek=="" for n=0 to 4095 if dy>-32 and dy<jscrh+32 Emoji dx,dy,"1F"+Right$("000"+Hex$(n),3) if MouseIn(dx,dy,40,40,1) then seek="1F"+Right$("000"+Hex$(n),3) endif dx=dx+48 if dx>jscrw-16 then dx=48:dy=dy+48 next if seek<>"" Ink(0) Rect(0,0,128,180) Ink(26) SetFontSize(128) Emoji 64,64,seek SetFontSize(20) Text 64,160,seek,1 endif if GamePad(ButtonUp)>0.5 then top=top-16 if GamePad(ButtonDown)>0.5 then top=top+16 if top<0 then top=0 flip forever --v This little lister shows you all the 1Fxxx Emoji. Today I tried to get the 2xxx Emoji working, and .. As much I can get the script to display them, I can't actually get JSE to display them, due to how it is that I combined all the different 8-bit fonts into one giant font.. Essentially, there's Amstrad and C64 fonts cluttering up the space where the Emoji oughta be. D'oh! I definitely need to fix that, and I've been meaning to fix the general "lots of pixels" method that the font uses, and make it a bit more "proper font" instead. I've been trying to figure out the best way to do that, for most of today, and .. well, it's nearly not today, now. Bugger. So, I guess I've failed to do anything productive today, which is kinda sad. sigh Aw well, it is Sunday.. So that's ok. -=-=- ''Load, Next List!''
Sun, 18 Dec 2022, 16:10
shroom_monk	Day 18, 7 rectangles: > Reveal 🔎 -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Sun, 18 Dec 2022, 16:42
Jayenkai	> Reveal 🔎 -=-=- ''Load, Next List!''
Sun, 18 Dec 2022, 17:05
Jayenkai	"A large number 19 stands outside the house, in the snow. (Digital Art, render)" Sorry, this isn't anywhere near as amusing as the Garfield one. -=-=- \o/yeay\o/ -=-=- ''Load, Next List!''
Mon, 19 Dec 2022, 11:23
shroom_monk	Day 19, 6 rectangles: > Reveal 🔎 -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Mon, 19 Dec 2022, 11:59
rockford	Mmmmmmmmmmm... cake!
Mon, 19 Dec 2022, 13:22
Dan	Mmmmmmerry Christmas ! // 18Advent Of Creativity // by Dan // Created 2022/12/19 Graphics 320,240,3 DoubleBuffer SetFont 10 fs=20 SetFontSize fs txt$="Merry Christmas" .lop cls for x=0 to len(txt$) ty=(ty+0.01) mod 360 color sin(ty(x+1))180,67,7 text x(fs),130+sin(ty(x+1))*30,Mid$(txt$,x,1) Next flip Goto lop --v
Mon, 19 Dec 2022, 14:46
Jayenkai	I've (Finally!!!) added Likes and Dislikes. NOTE : The reason I didn't previously add likes is because I didn't want people to "just click like". This is a discussion forum. If you DO like something, let the person know why. Same goes for Dislikes, too. -=-=- ''Load, Next List!''
Mon, 19 Dec 2022, 16:43
cyangames	I think I started making this at the beginning of December but, yeah, hand sewed a hoodie for Layla and she was happy to wear it outside, it was super warm which was great as it's been pretty cold down here of late, still no snow though, just lots of ice. She's going through a phase of wanting to wear baggy clothes so, as a bonus, it should last her for a while -=-=- Web / Game Dev, occasionally finishes off coding games also!
Mon, 19 Dec 2022, 16:52
Jayenkai	Awesome
Mon, 19 Dec 2022, 17:04
Jayenkai	"Neon Genesis Evangelion fights a giant number 20 at Christmas, in the snow" -=-=- The classic theme returns. -=-=- ''Load, Next List!''
Mon, 19 Dec 2022, 17:14
cyangames	Rei is bae
Tue, 20 Dec 2022, 14:39
Dan	Remix of the previous entry ... // 19Advent Of Creativity // by Dan // Created 2022/12/20 Graphics 640,440,3 DoubleBuffer SetFont 1;fs=38;SetFontSize fs;txt$="Merry Christmas" .lop cls for y=0 to 14;for x=0 to len(txt$);ty=(ty+0.0012) mod 360;color sin(ty(x+1))180,cos(ty(y+1))180,cos(ty(x+1))250;text x(fs)+3,(36y)+sin(ty(x+1))35,Mid$(txt$,x,1);Next; next flip Goto lop --v Flashing colors !
Tue, 20 Dec 2022, 15:22
shroom_monk	Day 20, 5 rectangles: > Reveal 🔎 -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Tue, 20 Dec 2022, 15:44
Jayenkai	Good grief! Five!!!
Tue, 20 Dec 2022, 18:02
Jayenkai	"Herbie the Love Bug, covered in festive christmas lights, and a large number 21" -=-=- Boing! -=-=- ''Load, Next List!''
Tue, 20 Dec 2022, 18:23
Kuron	@rychan We LOVE the hoodie! Herbie rocks!!
Wed, 21 Dec 2022, 02:28
rockford	@Rychan - I completely missed your hoodie post. Excellent job
Wed, 21 Dec 2022, 08:36
Jayenkai	// 2nnn Emoji Now Work (Might require a refresh or two, first) // by Jayenkai // Created 2022/12/21 // GotoJSE.com/X7Qxr8BL.BAS Graphics 640,480,2 Dim Snow(100,2) for m=0 to 100:Snow(m,1)=Rnd(jscrw):Snow(m,2)=Rnd(jscrh+64)-32:Next Snowman="26c4" Snowflake="2744" Scrolly$="Merry Christmas to everybody at SoCoder! " Scrolly$=Scrolly$+"I didn't spend an awful lot of time on this, today, but it's good enough.. I hope.. " ScrollX=jscrw+64 Repeat CLS;ResetDraw() for y=0 to jscrh step 15 d=255-y0.2 SetCol d,d,d Rect 0,y,jscrw,16 next // Snow layer 1 ResetDraw() SetFontSize 64 for m=0 to 50 s=Sin(m17)0.2+0.2 InkRot 190,s,0.95 Snow(m,1)=Snow(m,1)+Rnd(-0.5,0.5) fs=((m10)%35)/15+0.7 Snow(m,2)=Snow(m,2)+Rnd(1,2)fs if Snow(m,2)>jscrh+32 then Snow(m,1)=Rnd(jscrw):Snow(m,2)=-32 SetRot m8+Mills()0.02 Emoji(Snow(m,1),Snow(m,2),Snowflake,1) Next ResetDraw() // Snow ResetDraw() SeedRnd 37171650 for x=0 to jscrw step 32 Oval x,jscrh-16,Rnd(48,64),Rnd(48,64),32 next ResetDraw SetFontSize 64 // Scrolly ScrollX=ScrollX-5 x=ScrollX for m=0 to len(Scrolly$) InkRot 190,Abs(Sin(m24+Mills()0.05))0.3,0.8 Text x,(jscrh0.3)-Abs(Sin(m16+Mills()0.3))32,Mid$(Scrolly$,m,1),1 x=x+60 next if x<-64 then ScrollX=jscrw+64 // Snowman ResetDraw SetFontSize 256 Emoji jscrw/2,jscrh-180,Snowman,1 // Extra Snow ResetDraw() SetFontSize 64 for m=51 to 100 s=Sin(m17)0.2+0.2 InkRot 190,s,1 Snow(m,1)=Snow(m,1)+Rnd(-0.5,0.5) fs=((m10)%35)/15+0.7 Snow(m,2)=Snow(m,2)+Rnd(2,3)fs if Snow(m,2)>jscrh+32 then Snow(m,1)=Rnd(jscrw):Snow(m,2)=-32 SetRot m8+Mills()0.02 Emoji(Snow(m,1),Snow(m,2),Snowflake,1) Next ResetDraw() Flip Forever --v I've finally got round to fixing up the font to allow the 0x2nnn emojis to show up. Give it an F5, and they should work fine. > Reveal 🔎 // Emoji Lister // by Jayenkai // Created 2022/12/8 // GotoJSE.com/8K8VHBHC.BAS Graphics 800,400,1 top=0 repeat CLS;ResetDraw;SetFontSize 48 dx=48;dy=48-top:seek=="" for n=0 to 4095 if dy>-32 and dy<jscrh+32 Emoji dx,dy,"2"+Right$("000"+Hex$(n),3) if MouseIn(dx,dy,40,40,1) then seek="2"+Right$("000"+Hex$(n),3) endif dx=dx+48 if dx>jscrw-16 then dx=48:dy=dy+48 next for n=0 to 4095 if dy>-32 and dy<jscrh+32 Emoji dx,dy,"1F"+Right$("000"+Hex$(n),3) if MouseIn(dx,dy,40,40,1) then seek="1F"+Right$("000"+Hex$(n),3) endif dx=dx+48 if dx>jscrw-16 then dx=48:dy=dy+48 next if seek<>"" Ink(0) Rect(0,0,128,180) Ink(26) SetFontSize(128) Emoji 64,64,seek SetFontSize(20) Text 64,160,seek,1 endif if GamePad(ButtonUp)>0.5 then top=top-32 if GamePad(ButtonDown)>0.5 then top=top+32 if top<0 then top=0 flip forever --v -=-=- ''Load, Next List!''
Wed, 21 Dec 2022, 08:58
cyangames	Thanks all I've just bought materials for the next one for Layla as she's requested a black and white one next, I'm amazed by how much you've all made this month, it's very very cool! -=-=- Web / Game Dev, occasionally finishes off coding games also!
Wed, 21 Dec 2022, 15:53
rockford	@Jay - I really like that snowman
Wed, 21 Dec 2022, 16:00
Jayenkai	What style did you get? With it being an Emoji, the result depends on your system/browser combo. On Apple'y things it looks like... > Reveal 🔎 -=-=- ''Load, Next List!''
Wed, 21 Dec 2022, 16:14
Dan	win 10 - SrWare Iron > Reveal 🔎
Wed, 21 Dec 2022, 16:30
Jayenkai	Aw, yeah, that's much cuter! Apple's looks somewhat sinister in comparison. -=-=- ''Load, Next List!''
Wed, 21 Dec 2022, 16:54
shroom_monk	I also get the Win10 snowman - I also prefer that style, although it's a shame about the blocky background that surrounds it! I wonder why Windows does it that way... I guess the shapes are simpler and they don't expect it to be viewed at this high a resolution? Day 21, 4 rectangles: > Reveal 🔎 These are definitely getting a lot faster to put together! -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Page : 1 2 3 4 Prev 5 6 Next 7