one liner, 10 liner ATARI 2019

one liner

https://en.wikipedia.org/wiki/One-liner_program 

10 liner ATARI in 2019

https://www.youtube.com/watch?v=ydS5N42Z3Cc  

https://www.dropbox.com/sh/zj7u96etduyq6bv/AADtnnxtBq0XQNYtH0hUug0Da?dl=0  

https://gkanold.wixsite.com/homeputerium/kopie-von-games-list-2019-2

https://gkanold.wixsite.com/homeputerium/kopie-von-results-2019

BASIC 10-liners on Twitter: https://twitter.com/Basic10L

Descriptions of Kevin's entries: http://atariaction.tumblr.com ANTIC the Atari 8-Bit Podcast: http://ataripodcast.libsyn.com Kevin on Twitter: https://twitter.com/kevinsavetz Atari800MacX emulator: https://atarimac.com/atari800macx.php

Apple 2 - 마소87

1라인 컨테스트

1 HGR: FOR Z=0 TO 10 STEP .2: FOR X=0 TO 10 STEP .2: HCOLOR=3: Y=-10*COS(3*SQR((X-5)^2+(Z-5)^2))/2+50: X1=X*20+20+Z*3: Y1=Y+Z*10: HPLOT X1, Y1: HCOLOR=0: HPLOT X1,Y1+1 TO X1,180: NEXT:NEXT:END

two liner (no speed improvement ㅠㅠ)

1 DIM CO(359): R=3.1415/180: FOR I=0TO359:CO(I)=COS(I*R):NEXT 
2 HGR2: FOR Z=0 TO 10 STEP .2: FOR X=0 TO 10 STEP .2: HCOLOR=3: TH=INT(3*SQR((X-5)^2+(Z-5)^2)/R): IT=INT(TH/360): TH=TH-IT*360: Y=-10*CO(TH)/2+50: X1=X*20+20+Z*3: Y1=Y+Z*10: HPLOT X1, Y1: HCOLOR=0: HPLOT X1,Y1+1 TO X1,180: NEXT:NEXT:END

속도 향상 (look up table)

10 REM - GRAPH3D-V2.BAS - 25/02/2015 - 06h14

20 GOSUB 190

30 HGR2

40 HCOLOR=3

50 FOR R = 5 TO 330 STEP 10

60 FOR T = 0 TO 350 STEP 10

70 T2=T+90:IF T2>=360 THEN T2=T2-360

80 X=R*0.3*SI(T2)/1000

90 Y=R*0.3*SI(R)/1000

100 Z=R*0.3*SI(T)/1000

110 XP=X+Z/1000*SI(105)+140

120 YP=60-(Y+Z/1000*SI(15))

130 HPLOT XP,YP

140 NEXT:NEXT

150 HPLOT 0,0 TO 10,0 TO 10,10 TO 0,10 TO 0,0

160 END

170 REM LOOKUP TABLE FOR SINE FUNCTION

180 REM->INITSINE

190 DIM SI(359)

200 FORI=0TO359:READ SI(I):NEXTI

210 DATA 0,17,34,52,69,87,104,121,139,156,173,190,207     

220 DATA 224,241,258,275,292,309,325,342,358,374,390      

230 DATA 406,422,438,453,469,484,500,515,529,544,559      

240 DATA 573,587,601,615,629,642,656,669,681,694,707      

250 DATA 719,731,743,754,766,777,788,798,809,819,829      

260 DATA 838,848,857,866,874,882,891,898,906,913,920      

270 DATA 927,933,939,945,951,956,961,965,970,974,978      

280 DATA 981,984,987,990,992,994,996,997,998,999,999      

290 DATA 1000,999,999,998,997,996,994,992,990,987,984     

300 DATA 981,978,974,970,965,961,956,951,945,939,933      

310 DATA 927,920,913,906,898,891,882,874,866,857,848      

320 DATA 838,829,819,809,798,788,777,766,754,743,731      

330 DATA 719,707,694,681,669,656,642,629,615,601,587      

340 DATA 573,559,544,529,515,500,484,469,453,438,422      

350 DATA 406,390,374,358,342,325,309,292,275,258,241      

360 DATA 224,207,190,173,156,139,121,104,87,69,52,34      

370 DATA 17,0,-17,-34,-52,-69,-87,-104,-121,-139,-156     

380 DATA -173,-190,-207,-224,-241,-258,-275,-292,-309     

390 DATA -325,-342,-358,-374,-390,-406,-422,-438,-453     

400 DATA -469,-484,-500,-515,-529,-544,-559,-573,-587     

410 DATA -601,-615,-629,-642,-656,-669,-681,-694,-707     

420 DATA -719,-731,-743,-754,-766,-777,-788,-798,-809     

430 DATA -819,-829,-838,-848,-857,-866,-874,-882,-891     

440 DATA -898,-906,-913,-920,-927,-933,-939,-945,-951     

450 DATA -956,-961,-965,-970,-974,-978,-981,-984,-987     

460 DATA -990,-992,-994,-996,-997,-998,-999,-999,-1000    

470 DATA -999,-999,-998,-997,-996,-994,-992,-990,-987     

480 DATA -984,-981,-978,-974,-970,-965,-961,-956,-951     

490 DATA -945,-939,-933,-927,-920,-913,-906,-898,-891     

500 DATA -882,-874,-866,-857,-848,-838,-829,-819,-809     

510 DATA -798,-788,-777,-766,-754,-743,-731,-719,-707     

520 DATA -694,-681,-669,-656,-642,-629,-615,-601,-587     

530 DATA -573,-559,-544,-529,-515,-500,-484,-469,-453     

540 DATA -438,-422,-406,-390,-374,-358,-342,-325,-309     

550 DATA -292,-275,-258,-241,-224,-207,-190,-173,-156     

560 DATA -139,-121,-104,-87,-69,-52,-34,-17               

570 RETURN

The International Obfuscated C Code Contest

https://www.ioccc.org/