Un shell comme vous n'en avez jamais vu sur TI 68 k : EINSTEIN - Page 18

etoile(x,y,r,ß,prof)
Prgm
© fractale by Thibaut
 Local l, i, xf, yf
 
 If prof=0 : Return
 
 prof-1 ->prof
 r/3 ->l
 
 For i, ß, ß+4*2*pi/5, 2*pi/5
  x+r*cos(i) ->xf
  y+r*sin(i) ->yf
  etoile(xf, yf, l, i+pi, prof)
  int(x+.5) ->x
  int(y+.5) ->y
  int(xf+.5) ->xf
  int(yf+.5) ->yf
  PxlLine y, x, yf, xf
 EndFor
EndPrgm

equi(x,y,r,ß,prof)
Prgm
© fractale by Thibaut
 Local m, n
 Local xob, yob, xoc, yoc, xod, yod, xoe, yoe
 Local l, ßb, ßc
 
 r*cos(ß)/3 ->m
 r*sin(ß)/3 ->n
 
 x+m ->xob
 y+n ->yob
 x+r/(sqrt(3))*cos(ß+pi/6) ->xoc
 y+r/(sqrt(3))*sin(ß+pi/6) ->yoc
 x+2*m ->xod
 y+2*n ->yod
 x+3*m ->xoe
 y+3*n ->yoe
 
 If prof=1 Then
  int(x+.5) ->x
  int(y+.5) ->y
  int(xob+.5) ->xob
  int(yob+.5) ->yob
  int(xoc+.5) ->xoc
  int(yoc+.5) ->yoc
  int(xod+.5) ->xod
  int(yod+.5) ->yod
  int(xoe+.5) ->xoe
  int(yoe+.5) ->yoe
  
  PxlLine y, x, yob, xob
  PxlLine yod, xod, yoe, xoe
  PxlLine yob, xob, yoc, xoc
  PxlLine yoc, xoc, yod, xod
 Else
  prof-1 ->prof
  r/3 ->l
  ß+pi/3 ->ßb
  ßb+4*pi/3 ->ßc
  
  equi(x, y, l, ß, prof)
  equi(xod, yod, l, ß, prof)
  equi(xob, yob, l, ßb, prof)
  equi(xoc, yoc, l, ßc, prof)
 EndIf
EndPrgm

fabetal
a écrit : surtout qu'il avait juré je sais plus quel jour de sortir Einstein et qu'il a menti puisque son shell est toujours pas dispo ...

jackiechan a écrit :
Meuh non !
Il as mis au moins une semaine, si ce n'est 2 ! et puis il a plutôt fait du recopiage de code que du codage à proprement parler...