Hi,tcat wrote:Hi Ben,
Nice video, seeing `Think C' on Mac, remember also using MPW (E.T.O.), that had unix like shell environment, perhaps `Apple-Dot' comes from there, it sill lingers in mem.
Re QL, how do you make those blobs, that appear to have some shading perspective, as if the light came from an angle?
Resembles Urs's QL animator, seen that?
Tomas
The Kugel demo wasn't something I created. I did modify it to work with JSU ROM since the picture gets printed a bit further to the left (ratios are off I think). Here is the original JS ROM version. It's just a simple BASIC program with a little machine code that shuffles part of the bottom of the screen to the top to generate the next frame. How the author was able to plot the balls to make that effect, I have no idea, but they plotted it using circle and math so it's pretty impressive.
Code: Select all
10 REMark -----------------------------------------------------
20 REMark QL-DEMO von Frank Andert, 8670 Hof Ostpreussenstr 14
30 REMark Clubmitglied Region S§D I
40 REMark -----------------------------------------------------
100 s=RESPR(18432) : DATA 8769,8316,2,46,32348,11324,0,255,28680
110 a=RESPR(34) : DATA 8920,20936,-4,53447,20942,-12,28672,20085
120 RESTORE : FOR r=0 TO 16 : READ b : POKE_W a+2*r,b
130 :
140 WINDOW 512,256,0,0 : MODE 4 : PAPER 0 : CLS
150 FOR f=0 TO 4,6,5
160 FOR j=0 TO 6
170 INK j DIV 2 *2 , (j+1)DIV 2 *2 , 3
180 FOR i=-1 TO 8
190 FILL 1 : v=(i+8*f) *PI/28
200 y=SIN(v) + SIN(i*PI/4) /3 : r=(5-y)/7
210 x=COS(v)/(1+(2+y)/4) *22 +73.7 : h=j*r/3
220 CIRCLE x+h , 6+12.5*i+9*y+h , r*(8-j)
230 NEXT i : NEXT j : NEXT f
240 CALL a,s : CALL a,s+9216 : POKE_W a+18,8409 : CLS
250 f=0 : REPeat l :PAUSE 1.5: f=(f+1) MOD 8 : CALL a,s+1152*f