64'er 1991 March/64er_Magazin_91-03_1991_Markt__Technik_de_Side_A.d64/3d-fun.mega-sin

Commodore BASIC | 2022-10-26 | 1KB | 21 lines

0 print"[147]@[146][192] phdba)[146]5e')[146]de()[146][193]* [146]f=[182][146]e9ad[176][146]g1'[146]x[169]bq'h[146]p[174][146]x%'[146][169]ge'";
1 print"p[146]b[166]([202][208][255][146];@d[@>;@e[@?[166][206][175] @d4'[220]c5[166]'[160] $> c#& [161]> _#%[174]z'@^@o4[198][206][185][164]5[200]p[180][184]'[186]k";
2 print"tc'>kuc[216][160]^@#[201][199]d[174]e[198][199]e[206]r7z>kq[206]7\>kx[206]7^>k@[219][204]1[168];[[184]v[192][193]'  ck[203]>dm [187], \+#[161][199]mne";
3 print"'[160]k[203]> y:$m#[165]s%#[164]si[196]mp[220][160]ad[162]d[161][200]d[164]d[163][166]83%[179]'s[169]3i[179]ks[171]pn [163]?h[200]x[169]h( [163]?[168]([200]p[255]8#[170][163]";
4 print"[169]#[172][163][171]n)[166] [177]? w?#([195]&[206]f#l[195]j[174][203] @ [189]?.h[166] i?[200] [213]?[166] [213]?[204]h? [177]? w?#'[195]%[206]f#k[195]i[174]# a [189]";
5 print"?.h[200] i?[166] [213]?[200] [213]?[204]0?x3'[181][161]s'3k[181][163]sk[160]8'@[179][161]s[161]'@[179][163]s[163][160][166]3[171][202]c)3[169][170]cb[160]8#b[179][169]cb#)[179][171]c";
6 print")[160]x#b[181][169]cb#)[181][171]c)[160]#k[206][195]#l0?8#([167][192]#lc5[167]a.2#')gc4#')[182]j&mj&mj&m&x[165]4c4#m)g[165]5[169][160]";
7 print"c5vj&mj&mx[165]4c4#m)_[165]5c5#()[182]&#()g(;@>q4o4[160][192][171]<_>r'[188][204]$[207][183];[189][205][197][172][213][200]3*u[179][217][164][220][198]>[191]r";
8 print"y[215][209][175][223][212]*-[194][193][175][215][214][180][221][175][181][174]>_$[223][175][171]:[161])[189][215][174][172][185][174]w[203]"chr$(14):reado,p,c,d,e,f,fa,v,h,r
9 reada,s,b,u,m,n:sys1032,v*16+h,r:x=(m+1)*(n+1):dimx(x),y(x):r=(NULL)/180:v=(s-a)/m
10 w=(u-b)/n:g=sin(d*r):h=cos(d*r):i=sin(e*r):j=cos(e*r):k=sin(f*r):l=cos(f*r)
11 print"> berechne polyeder ..."x"punkte":d=b:n=n+1:m=m+1:fa=fa*160:forr=1tom
12 fort=1ton:gosub19:x=x-o:y=y-p:z=z-c:f=x*h+y*g:e=x*g-y*h:x=f*j+z*i:x(q)=4e4
13 ifx<.thenf=z*j-f*i:y=fa/x:x(q)=160+y*(e*l-f*k):y(q)=100+y*(f*l+e*k)
14 q=q+1:b=b+w:next:b=d:a=a+v:next:print"> zeichne ..."2*m*n-m-n"verbindungen
15 [129]a[178]2[164]m:c[178](a[171]2)[172]n:d[178]c[170]n:[141]17:e[178]c[171]2:[129]b[178]2[164]n:c[178]e[170]b:d[178]c[170]1:[145]a[171]1[141]17
16 c[178]d[170]n:[141]17:d[178]c[171]1:[141]17:[130]b,a:[153]"> 3d-functions (p) august'90":[128]
17 [158]49314,x(c),y(c),x(d),y(d):[142]: [178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178]
18 [131] 12,-8,12,-35,50,0,1 :[131] 0,14,1:  [131] -12,12,-12,12,42,42
19 x[178]a: y[178]b: z[178][191](a[172]b[173]4): [142]