lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms.. 		Lista Forumurilor Pe Tematici
lisp2arx | Reguli | Inregistrare | Login

POZE LISP2ARX

Nu sunteti logat. 		Nou pe simpatie:
celestynne 25 ani
Femeie
25 ani
Bucuresti
cauta Barbat
28 - 40 ani
lisp2arx / Abecedar Scolar / dos_readkey in Graph3d  
Autor
Mesaj Pagini: 1
zauchan
Moderator

Inregistrat: acum 14 ani
Postari: 180


Code:

uses Graph3D;

begin
  View3D.ShowViewCube := False;
  var s := Box(0,0,0,3,1,2,Colors.Blue);
  OnKeyDown := k -> 
    case k of
    Key.Left: s.MoveBy(1,0,0);
    Key.Right: s.MoveBy(-1,0,0);
    Key.Up: s.MoveBy(0,-1,0);
    Key.Down: s.MoveBy(0,1,0);
    Key.X: s.Rotate(OrtX,10);
    Key.Y: s.Rotate(OrtY,10);
    Key.Z: s.Rotate(OrtZ,10);
    end;
end.



_______________________________________
psw: cea de la wjndowsXP gigabyte..
pus acum 3 ani
   
Pagini: 1  

Mergi la