DarkBASIC Pro Versão de Avaliação Patch 5.7 USB Dongle Forum Indique   Lista de Email Diário Antigo Outros Produtos Cartography Shop DarkMatter Local DBPro Sites Italy UK

Visualizador de Código Fonte Este é o código fonte de  "Face Demo". Cor: Verde   Laranja   Branco   Tam. Fonte: Padrão   Grande ` This code is copyright Dark Basic Software Limited 2002 Rem Project: FaceDemo Rem Created: 12/08/2002 04:09:58 Rem Hours: 3 rem Init sync on : sync rate 0 : color backdrop 0 rem Load Head and prepare load object "media\Head 4.x",1 `hide limb 1,0 hide limb 1,2 hide limb 1,4 hide limb 1,5 hide limb 1,6 hide limb 1,7 hide limb 1,8 rem Handle head eyes make object sphere 2,50 : glue object to limb 2,1,1 : hide limb 1,1 make object sphere 3,50 : glue object to limb 3,1,9 : hide limb 1,9 scale object 2,100,75,100 scale object 3,100,75,100 rem Detail the eyes load image "media\refl.bmp",1 load image "media\face.bmp",2 texture object 2,1 : rotate object 2,90,0,90 : scale object texture 2,200,100 texture object 3,1 : rotate object 3,90,0,90 : scale object texture 3,200,100 set sphere mapping on 2,2 set sphere mapping on 3,2 rem Setup light set ambient light 0 set point light 0,0,-100,-500 set light range 0,450 rem Setup color lights make light 1 : set point light 1,-300,0,-300 : color light 1,rgb(255,0,0) make light 2 : set point light 2, 300,0,-300 : color light 2,-255,-255,512 rem Setup camera position camera 0,75,-400 rotate camera 0,0,0 rem Main loop do rem Rotate face based on mouse position w#=wrapvalue(w#+0.1) px#=mousex()+cos(w#)*2.0 py#=mousey()+sin(w#)*2.0 xmouse#=curvevalue((320-px#)/10.0,xmouse#,40.0) ymouse#=curvevalue((240-py#)/10.0,ymouse#,40.0) rem Rotate Head rotate object 1,ymouse#,xmouse#,0 rem Update screen sync rem End loop loop Selecionar todo o Código Ver este download

Copyright © 2003 Dark Basic Software Limited.
Virtual Object Informática Ltda.®