Quelques graphiques de plus

' ******************************************************************************
' Tore.bas par Papydall

dim alfa,pi,a,b,c,zoom,x,y,z,r,xe,ye,xorig,yorig
dim aa,bb,u,v,m,k
caption 0,"Tore"
pi = 4*atn(1)
alfa=pi/4 :' inclinaison de l’oeil de l'observateur à modifier ....
zoom = 6
xorig = 320 : yorig = 240 : r = 100
A=zoom/sqr(2): B=zoom*sin(alfa)/sqr(2): C=zoom*cos(alfa) : ' essayer avec le C suivant
' C = sqr(2)*tan(alfa)
m = -1/20 : k = 5 : aa = 5 : bb = 30
 color 0,0,0,0 : cls
for u=0 to 2*pi step pi/50
    for v = 0 to 2*pi step pi/50
      if scancode = 27 then terminate
      x = aa*cos(u) : y = bb*cos(v) : z = aa*sin(u)+bb*sin(v)
    '  x = aa*cos(u)*sin(v) : y = bb*cos(v) : z = aa*sin(u)+bb*sin(v)
    '  x = aa*cos(u)*sin(v) : y = bb*cos(v)*sin(u) : z = aa*sin(u)+bb*sin(v)
    '  x = aa*cos(u) : y = bb*cos(v) : z = aa*sin(u)*cos(v)+bb*sin(v)*cos(u)
    '  x = aa*cos(u) : y = bb*sin(u)*cos(v) : z = aa*sin(u)+bb*sin(v)
      xe=xorig +A*(x-y):  ye=yorig-B*(x+y)- C*z
      2d_pen_color 255,255,0  : 2d_point xe,ye
    next v
next u
caption 0,"Terminé"

' ******************************************************************************
' sphere.bas par Papydall

dim alfa,pi,a,b,c,zoom,phi,lambda,x,y,z,r,xe,ye,xorig,yorig
caption 0," Sphère"
pi = 4*atn(1)
alfa=pi/5 :' inclinaison de l’oeil
c=sqr(2)*tan(alfa)
zoom = 2
xorig = 320 : yorig = 240 : r = 100
A=zoom/sqr(2): B=zoom*sin(alfa)/sqr(2): C=zoom*cos(alfa)
color 0,0,0,0 : cls
for phi=0 to 2*pi step pi/25 : ' on se contente ici des méridiens
    for lambda = 0-pi/2 to pi/2 step 0.001
    if scancode = 27 then terminate
        x=R*cos(lambda)*cos(phi): y=R*cos(lambda)*sin(phi): z=R*sin(lambda)
        xe=xorig +A*(x-y):  ye=yorig-B*(x+y)- C*z
        if x + y - c * z < 0
          2d_pen_color 255,255,0  : 2d_point xe,ye : '  partie visible en jaune
        else
          2d_pen_color 100,100,100 : 2d_point xe,ye : ' partie cachée en gris
        end_if
    next lambda
next phi
caption 0,"Terminé"

' *****************************************************************************
' Helicoide.bas par Papydall
' Hélicoïde ou vis d'Archimède

dim alfa,pi,a,b,c,zoom,x,y,z,r,xe,ye,xorig,yorig
dim aa,bb,u,v,m,k
caption 0, "Double Hélicoïde"
height 0,700
pi = 4*atn(1)
alfa=pi/4 :' inclinaison de l’oeil donnée
zoom = 2
xorig = 320 : yorig = 480 : r = 10
A = zoom/sqr(2): B = zoom*sin(alfa)/sqr(2):  C = zoom*cos(alfa)
' C = sqr(2)*tan(alfa)
 aa = 2 : bb = 5
 color 0,0,0,0 : cls
 
 for u = 0 to r
    for v = 0 to 20*pi step pi/180
        if scancode = 27 then terminate
        x = aa*u*cos(v) : y = aa*u*sin(v) : z = bb*v
        xe=xorig +A*(x-y):  ye=yorig-B*(x+y)- C*z
        2d_pen_color 255,255,0  : 2d_point xe,ye : 2d_point 550-xe,ye
    next v
 next u
 caption 0,"Terminé"

' ******************************************************************************
' Tore.bas par Papydall

dim alfa,pi,a,b,c,zoom,x,y,z,r,xe,ye,xorig,yorig
dim aa,bb,u,v,m,k
caption 0,"Tore"
pi = 4*atn(1)
alfa=pi/4 :' inclinaison de l’oeil de l'observateur à modifier ....
zoom = 6
xorig = 320 : yorig = 240 : r = 100
A=zoom/sqr(2): B=zoom*sin(alfa)/sqr(2): C=zoom*cos(alfa) : ' essayer avec le C suivant
' C = sqr(2)*tan(alfa)
m = -1/20 : k = 5 : aa = 5 : bb = 30
 color 0,0,0,0 : cls
for u=0 to 2*pi step pi/20
    for v = 0 to 2*pi step pi/150
      if scancode = 27 then terminate
      x = aa*cos(u) : y = bb*cos(v) : z = aa*sin(u)+bb*sin(v)
      xe=xorig +A*(x-y):  ye=yorig-B*(x+y)- C*z
      2d_pen_color 255-(ye/2.5),abs((550 - ye)/2),50  : 2d_point xe,ye
    next v
next u
caption 0,"Terminé"