Enterprise Forever
:UK => Other topics => Topic started by: gflorez on 2022.December.22. 21:28:43
-
Found in Retrowiki (http://retrowiki.es/viewtopic.php?f=83&t=200038966&sid=41c3c803d8026e001e988279a7d0d89d) Spain: https://logiker.com/Vintage-Computing-Christmas-Challenge-2022 (https://logiker.com/Vintage-Computing-Christmas-Challenge-2022)
[attachimg=1]
The contest is to write a program that prints this exact star made of asterisks. It can be made on other colours, on any language on any computer....
I have tried my best with my Enterprise in Basic:
A verseny célja, hogy írjatok egy olyan programot, amely pontosan ezt a csillagokból álló csillagot írja. Más színekkel, bármilyen nyelven, bármilyen számítógépen elkészíthető.....
Én a legjobbat próbáltam az Enterprise-ommal Basic nyelven:
[attachimg=2]
-
This other GIF doesn't cycle, I don't know why:
Ez a másik GIF nem változik, nem tudom, miért:
(http://retrowiki.es/download/file.php?id=200030588)
Added as a link to Retrowiki.
Hozzáadva a Retrowiki linkjeként.
-
My here invalid entry:
[attach=1]
-
This other GIF doesn't cycle, I don't know why:
Ez a másik GIF nem változik, nem tudom, miért:
(http://retrowiki.es/download/file.php?id=200030588)
Működik, nagyon jól néz ki! :-)
-
Más nem próbálja meg? Pedig BASIC-ben vagy valami más magas szintű nyelveben minden itteni programozónak simán menne.
-
Más nem próbálja meg? Pedig BASIC-ben vagy valami más magas szintű nyelveben minden itteni programozónak simán menne.
Már beraktad a megoldást. Pedig az volt a szabály, hogy ne fedd fel a kódodat.
"Do not reveal the code or even the exact size of the code to anyone. This shall be a personal challenge."
-
az volt a szabály, hogy ne fedd fel a kódodat
Ott. Ahol nem álltam rajthoz.
Már beraktad a megoldást.
Egy megoldást. Ami nyomokban sem hasonlít a gflorezére. Másnak lehet még újabb ötlete hogyan lehet ezt kirajzolni. Az enyém igen "parasztos". Az előző kettő sokkal látványosabb.
-
could someone submit an entry?
I always get missing data, but all fields is filled, and files are atteched.
I could manage, it seems the screenshots had strict naming convention also.
-
I have not tried to submit mine.
-
I have not tried to submit mine.
Why? Submit yours also :)
I submitted 3 :D
-
Más nem próbálja meg? Pedig BASIC-ben
Én most láttam és hirtelen két megoldás is van a fejemben (Basic), de nem nagyon lesz idôm bepötyögni. Egyébként mi a határidô? Hogyan lehet a futásról GIF-et csinálni?
-
Kattints a linkre a nyitó hozzászólásban. Azt hiszem huszonhatodika. Csinálj videót a futásról, vágj ki képkockákat, fűzd össze GIF-be. Más módszert én nem ismerek. instagiffer és UnFREEz. Én ezeket használtam régebben. Linuxhoz nem tudok szoftvereket ajánlani. :(
-
En se csinaltam gifet a 3-dikbol, az szinatmenetes, az elso ketto csak kirajzolja a csillagot, 2. megoldas lett a legrovidebb, 126 byte heaserrel.
-
/OFF
a legrovidebb, 126 byte heaserrel.
Jó rövid! :smt023 Az én COMMODORE BASIC 3.5 változatomat leküzdöttem 148 bájtra. Még 2-3-at talán le lehetne faragni belőle ha egybe erőszakolnám a sorokat. Ebben a koncepcióban nincs több.
/ON
-
I use something like vectors on my approach, relocatable on screen. 439bytes the colour version. 3 nested loops.
I didn't intend to make it the shorter and faster program, but the algorithm used is very compact, although it prints a lot of the asterisks 2 times... and the central one 8 times...
Cycling BIAS colours make them glow like neons...
----
Én valami olyasmit használok, mint a vektorok a megközelítésemben, ami a képernyőn áthelyezhető. 439 bájt a színes változat. 3 egymásba ágyazott ciklus.
Nem az volt a célom, hogy ez legyen a rövidebb és gyorsabb program, de az alkalmazott algoritmus nagyon kompakt, bár sok csillagot 2-szer kiír... és a középsőt 8-szer...
A forgó BIAS-színek úgy világítanak, mint a neonok...
-
Off topic: I ask me... How could be to use the same algorithm on a 16 colour graphic screen?
-
PRINT AT works on graphic screens, doesn't it? Someone with proper IS-BASIC knowledge, please help.
-
And while I'm at it
Merry Christmas fellow Enterprise Fans!
-
PRINT AT works on graphic screens, doesn't it?
I was rhetorically asking myself, sorry. I will make a pixel version of my algorithm, drawing multi-colour stars on all the screen, like a screen-saver. Not for the challenge.
Happy Christmas.
-
[attachimg=1]
It is slooooow, but I like it.
-
Looks good :-)
Alt+W helps a lot in emu :-D
Merry Christmas!
-
Nem bírtam ellenállni a kísértésnek, és megpróbáltam valamit én is kihozni ebből. Bár ez nem annyira kapcsolódik a kihívás eredeti témájához, csak egy nagyon kicsit, és az is lehet, hogy ez már egy másik kihívás lenne. Itt most a belső botkormányt jobbra és balra kell mozgatni, de a space billentyűt sem szabad pihenni hagyni:
[attach=1]
[attach=2]
-
100 TEXT
110 LET Y=10:LET X=18 !Random coordinates, middle of star
120 FOR A=0 TO 4 !Five stages
130 FOR C=1 TO 5 !Five asterisks on two directions, 90 degrees
140 FOR B=0 TO 3! 4 arms, NW,NE,SE,SW
150 LET S1=-1+(B BAND 1)*2 !Sign 1
160 LET S2=-1+(B BAND 2)*1 !Sign 2
170 PRINT AT(Y+1)+S1*A,(X+(1+1*(-S2)))+S2*(C+A):"*";
180 PRINT AT(Y+(1+1*(-S1)))+S1*(C+A),(X+1)+S2*A:"*";
190 NEXT B
200 NEXT C
210 NEXT A
220 PRINT
-
One friend of RetroWiki Spain has submitted this marvellous code for MSX Basic:
10 FORA=-4TO4:FORB=1TO9+2*ABS(A):LOCATE3+B-ABS(A),A+8:PRINT"*":LOCATEA+8,3+B-ABS(A):PRINT"*":NEXTB,A
I have transcribed it to IS-BASIC:
1 TEXT
10 FOR A=-4 TO 4
20 FOR B=1 TO(9+2*ABS(A))
30 PRINT AT A+9,4+B-ABS(A):"*"
40 PRINT AT 4+B-ABS(A),A+9:"*"
50 NEXT
60 NEXT
[attachimg=1]
Still only 147 bytes on the Enterprise...
-
Link to challenge results video:
[attachimg=1] (https://youtu.be/xVKEaRogw-s)
-
C64 Brainfuck version on EP:
https://demozoo.org/productions/317129/
unfortunatelly the other brainfuck submission requires VT52 terminal emulation, so the result is not the expected on EP:
https://demozoo.org/productions/316993/
-
Maybe in IS-DOS?
-
New year, new challange:
Vintage Computing Christmas Challenge 2023 (VC³ 2023) (https://logiker.com/Vintage-Computing-Christmas-Challenge-2023)
[attachimg=1]
If anybody is interested :)
I created an EP , a TVC version , and my 1st Plus4 assemby code :D :D
-
Just for fun. :ds_icon_cheesygrin:
[attach=1]
-
"Wild" category, just for fun: using INTERLAC.COM from the demonstration cassette. Interlaced 80x48 characters text mode.
[attach=1]
-
HIRES 256 colour version:
[attach=1]
-
Nice. :)
-
One more version, with attribute video channels.
Each star is (theoretically) guaranteed to have a different colour.
[attach=1]
-
All versions look cool :)
-
submitted
beküldtem én is
-
Geco
https://youtu.be/RGv2u6epVTY?t=1355
https://youtu.be/RGv2u6epVTY?t=1452 (Videoton TVC)
Povi
https://youtu.be/RGv2u6epVTY?t=855
SlashNet
https://youtu.be/RGv2u6epVTY?t=145