Salut Kenavo,
5 ans après, la mise à disposition de ton composant bien utile, encore une remarque.
A l'époque je l'avais utilisé pour une détection de mouvement qui fonctionnait parfaitement.
Interfacé à un servo moteur, la caméra suivait les déplacements.
Je reprends ce programme pour le lancer à heure fixe et j'ai un petit problème.
Après avoir fait un capture.disconnect on ne peut pas faire un capture.connect sans le déclanchement d'une erreur fatale.
Une idée ?
Merci
Dom EFIS.
Merci pour ce composant.
J'aimerai copier l'affichage de ma camera sur un bitmap, mon problème est que elle utilise un format (IYUV et I420) et je ne parvient pas a recuperer les bonnes couleurs.
Je fait parcourir i de 0 à (Bitmap.height -1) et j de 0 à (Bitmap.width -1)
J'utilise un Bitmap de 120*160.
Y := pointbyte[i*160+j];
U := pointbyte[(i div 2)*(160 div 2) +j div 2 +(i*j)];
V := pointbyte[(i div 2)*(160 div 2) +j div 2 +(i*j) +(i*j)div 4];
Ensuite j'utilise la formule de conversion de YUV en RGB :
//Red
R := trunc(1.164*(Y - 16) + 1.596*(V - 128));
if R < 16 then R := 0;
if R > 255 then R := 255;
//Green
G := trunc(1.164*(Y - 16) - 0.813*(V - 128) - 0.391*(U - 128));
if G < 0 then G := 0;
if G > 255 then G := 255;
//Blue
B := trunc(1.164*(Y - 16) + 2.018*(U - 128));
if B < 0 then B := 0;
if B > 255 then B := 255;
merci pour ce composant qui fonctionne parfaitement.
J'aurais souhaiter pouvoir récupérer la valeur des couleurs des pixel en RGB dans le flux vidéo, pour pouvoir détecter la présence d'un objet de couleur. Quelqu'un aurait'il un début de piste ? Merci
bonjours,
merci pour ce super composant, par contre savez vous comment faire pour forcer un codec lors de l'enregistrement.
on peut utiliser : "capture1.compress;" mais cela ouvre une fenêtre et j'aimerai pouvoir choisir mon codec (xvid par exemple) sans avoir besoin de cliquer dessus dans la fenêtre qui s'est ouverte.
Merci pour ces sources.
Je cherchais à acquérir les images vidéo d'une webcam pour mon projet, et je suis tombée sur ton composant TCapture.
Cela m'a bien aidé.
Cependant, j'aimerais afficher une image, ou un TShape par-dessus le composant, sans incrustation, et ainsi permettre un drag'n drop de cette image ou du shape. J'ai fait hérité le TCapture du TPanel pour avoir en plus les évènements liés au drag'n drop, mais j'ai un problème.
Dès que la vidéo se met en route, l'image ou le shape est alors dissimulé.
En entrant dans le code du TCapture, je n'arrive pas à comprendre comment est affichée la vidéo dans un composant qui dérive du TCustomPanel. Il me semble qu'il n'y a pas de canvas de présent.
Toujours le même problème avec téléchargement avec Opera ou Mozilla, décompressé avec Winrar ou Izarc. Je pense que c'est Delphi qui ne doit pas interprété correctement certain caractère de mise en page.
J'ai enlevé tout les déclaration sur ces label et Bevel, mais je n'ai un souci avec Delphi, le composant installés disparaissent au redemarage de Delphi ???
Pas de problèmes dans le zip ! Change d'outil, IzArc par exemple, gratuit et multilingue (même breton, basque, catalan, ..... - http://www.izarc.org/index.html )
Merci, la compilation de Bmp2YUV fonctionne avec $A-
Pour le reste je vais voir, peut être que le fait qu'il ne puisse pas créer la feuille a cause de Designsize, fait qu'il ne trouve pas le lbseuil donc ne peut voir la propriété de celuici.
Pour Delphi 5, il est possible que la propriété DesignSize n'existe pas.
lbSeuil étant un TLabel, je ne comprends pas que la propriété Caption puisse être marquée inexistante.
Pour les directives de compilation de Bmp2YUV, je pense que $A8 ne soit pas reconnu pas Delphi 5. Essaie $A-
Pour les autres directives, essaye de la supprimer une à une jusqu'à ce que ça marche.
Salut, cette source me parait interessante mais je n'arrive pas à la lancer
J'utilise Delphi 5 Professionel
J'ai installé les composants avicap.pas et capture.pas
A l'ouverture du projet j'ai les erreurs suivantes:
-ne peut trouver les ficher resources ..\DemoCapture.res. Recrée. (Normal)
-Erreur lors de la lecture de DemoForm.designSize: Propriété inexistante.
-Erreur lors de la lecture de lbSeuil.caption :Propriété inexistante.
-Erreur lors de la lecture de LbSeuil
-Erreur lors de la lecture de LbSeuil
-Erreur lors de la lecture de LbSeuillbSeuil.ntrÃ'le d'enregistrement
-Erreur à la création de la fiche Erreur de lecture du flux.
Ensuite en essayant d'executer le programe j'ai ue erreur dans Bmp2YUV.pas
Directive de compilation incorrecte : '$A8,B-,C-,D-,E-,F-,G+,H+,I+,J+,K-,L-,M-,N+,O-,P+,Q+,R+,S-,T-,U-,V+,W-,X+,Y-,Z1'
Exact en capture vidéo sa marche nickel (30fps), juste c'est en preview que sa ramme... (chez moi avec un 2800+)
J'ai testé de lancer une capture sans fichier via StartCapture et la hop, sa marche correctement... mais dès que je Stop sa relague... c'est bizzard... bon enfin tant que sa marche...
Je vais essayer de faire une sorte d'Eye-toy, la j'ai déjà réussi à contrôler le volume du PC via cette source c'est franchement top :D
mais j'aimerais vraiment approfondire les capacitées de la cam...
@SMIDO : Essaie de repérer la fonction qui pose problème (probablement une ligne dans OnActivate)
@GOLIASSE : Désolé, je ne pourrai pas t'aider (du moins pour le moment) n'ayant pas de carte TV
@PoulpHunter : La fonction GetDriverList(qui m'a été proposée par PHMOSSE) n'est pas indispensable à un fonctionnement basique. 30 FPS semble fonctionner (304 trames en 10,4 secondes en mode capture)
Sur Pentium Dual Core 1.86 Ghz et Logitech 500 pro
@tous : N'oubliez pas qu'il s'agit d'une démo d'un composant sans doute incomplet! Je ne peux pas tester tous les matériels et toutes le configurations !
Salut,!
Super source ! juste c'est ptéte moi, mais j'ai testé sur des PC virtuels n'ayant pas de cam, et sa plante (erreur kernell32.dll)
J'ai testé et après quelques reprises (j'ai viré l'audio car je m'en sert pas aussi) sa serais la fonction :
GetDriverList qui me fesait planter le soft...
j'ai pas eu le temps encore de bien tout analyser mais sinon j'ai matté que cette source me prennait 15-25% de mon CPU contre 30% sur pour la méthode via bitmap
c'est sympa sa !
par contre j'ai toujours pas trouver comment passer en 30 frame par seconde si quelqu'un à une solution (autre que passer sous DirectX) ???
Merci Kenavo ;
Le code marche a la perfection avec les webcams mais , y a t'il une soulution pour améliorer le code afin de pouvoir exploiter la carte TV numérique DVB-s , je sais que ça demande un effort mais je suis d'accord.. pour l'aventure...! car tous les prog qui traite le domaine DVB son en C/C++ dû au lots de documentations disponible pour ces languages ...
en attente .....
Salut,
Merci Kenavo pour ce composant, il est très important.
J'avez un problème: après l'ouverture du programme "DemoCapture" un message d'erreur apparaisse " Indice de liste hors limite (0)"
Comment résoudre ce problème ?
Merci beaucoup,
SMIDO
J'ai testé ta source, tout fonctionne correctement. Pour ceux qui veulent choisir la source d'une autre caméra, il suffit de réouvrir une 2ième application et de choisir automatiquement une autre caméra, ce qui pourrait être utile pour faire un ensemble pour 4 caméras sur une seule fiche puisqu'apparemment, le presse papier accepte plusieures images.
quelques questions subsidiares :
- Comment savoir combien de périphériques d'acquisition sont branchés ?
- Comment connaître le nom du périphérique actuellemnt utilisé ?
- Comment régler contraste et luminosité en direct ?
- Commment faire fonctionner correctement une acquisition avec un temps définit ? (je n'y arrive pas avec l'instruction RecordOnFile)
Bonjour Kenavo,
Je use le code DemoCapture pour relever le mouvement de les mains, pour déterminé une position x,y moyenne et pour passée au système
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
setcursorpos(x,y);
sleep(50);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
pour explorer un quicktime panorama sans le mouse.
J'avez un problème: si je mette le software en icone et le panorama quicktime en ?full screen? le software ne fonction pas, je pense parce que la fenêtre de DemoCapture n'est pas visible et donc la capture de webcam est enfermée.
Avez vous quelque information au regard?
Petite aparté (en espérant que le modérateur ne censure pas ce commentiare) :
Pour les personnes qui ont mis 1/10 à cette source, si je peux encore me permettre (et je le fais ;-) ). Elles sont des truffons (mélanges de truffes et de cons = cons de luxes) :-))))))
Mais bon, nous sommes en démocratie et comme dirait l'autre (Beaumarchais) : "Sans la liberté de blâmer, il n'est point d'éloge flatteur."
Alors encore bravo pour ton source,
Mes repects missiou et peut-être à bientôt sur la toile
Aimless
PS : Bah je suis resté courtois !!! et je suis toujours très zen c'est l'une de mes qualités ;-))))
Si je peux me permettre, je te félicite sur ce source qui m'est d'une grande utilité... Et oui des petits rigolos s'amuse à fracturer les voitures du voisinage, j'ai donc mis sous surveillance électronique mon box.
Merci pour tes travaux et vive l'open source,
Aimless, l'homme qui fait des bugs plus vite que son ombre
Merci Kenavo ! pour cette réponse rapide.
Je n'ai trop cherché j'avoue (manque de temps)
perso j'aurais voulu travailler avec le hcam il est + simple.
//Handle du periph d ela cam
hcam:=capCreateCaptureWindowA('',0,0,0,320,240,handle,0);
//Connection a la cam
sendmessage(hcam,1034,0,0);
etc ...
tu vois de koi je parle.
je pense qu'il existe un sendmessage qui puisse me demander le périf d'entrée video. je m'y connais pas suffisement pour l'affirmer, mais en tout k se serais génial.
http://vdpsys.free.fr/choix.jpg Merci à tous !
Salut Askil,
Il me semble que c'est la méthode SelectDisplay. Regarde les lignes qui suivent Capture1.Connect, c'est là que sont les dialogues qui apparaissent au début (méthode FormActivate)
Salut Kenavo et tout les programmeurs ;)
Comme j'aime bien être le dernier à ajouter un post sur les sources hard. Voici la question qui tue :
comment afficher la fenetre de selection de la source vidéo
affin de pouvoir choisir :) Elle s'affiche 1 fois lors du lancement du prog puis enregistre (je suppose dans la bdr) le périf video de capture. => http://vdpsys.free.fr/choix.jpg
Bravo pour le programme !
J'ai cependant un problème avec la Preview. L'acquisition video ou Bitpmap fonctionne bien (fichiers OK), mais la preview reste invariablement noire. De plus, il est impossible de modifier la propriété Preview du composant Capture1 dans le programme de Demo, qui reste invariablement à False.
Auriez-vous une idée ? (J'utilise Delphi 7 pro)
Merci.
Tu peux modifier Capture.pas en rajoutant mmNone dans les modes de fusion :
TMergeMode = (mmNone,mmOr, mmAnd, mmMask, mmPixelMask); (reconstruire le paquet où il est installé)
En choisissant mmNone (dans l'inspecteur d'objet par exemple) tu feras que rien ne sera fait dans la procédure MaskMerge, mmNone n'étant pas référencée dans le case ... of
N'y a-t-il pas un moyen simple de désactiver l'incrustation pour avoir une simple capture et ainsi pouvoir capturer à des vitesses correctes sur des machines lentes ?
Je voudrai realiser un serveur qui lit un flux webcam et qui l'envoie par reseau, et un client qui lit le flux envoyé.
Est ce que quelqu'un peut m'aider sur comment réaliser cela?
je me suis dis que je peux utiliser le code source d'acquisistion video et essayer d'envoyer le flux recuperé par reseau.
salut,
Je fais une petite demande. Le composant marche niquel, j'ai modifié pour faire apparaitre un rectangle rouge. Mais il disparait quand l'image de la camera devient blanche. Comment faire pour garder le rectangle toujours visible? Merci.
(seul les bords du rectangle sont rouges, l'interieur est transparent)
mIch°°
Je rehitere ma demande..... :-))
Je voudrais utiliser le "composant video"
Ce que j'ai comme probleme (copie d'aun autre message).
Si je double-clique sur 'DemoCapture.dpr', je rencontre un premier message d'erreur :
'Impossible de trouver le fichier ressources DemoCapture.res. Recrée.'
après avoir cliqué sur 'OK', j'en ai un deuxième :
"Erreur de lecture de la fiche"
'Classe TCapture non trouvée. Ignorer l'erreur et continuer ?'
'Remarque : ceci peut provoquer la suppression de composants'
'ou la perte de valeurs de propriétés.'
Si je clique sur 'Ignorer', j'ai accès au code et au formulaire graphique, mais je ne peux pas compiler le programme sans erreur et l'affichage ne fonctionne pas dans le composant TCapture.
Si je clique sur 'Annuler', un troisième message d'erreur apparaît :
'Erreur à la création de la fiche classe TCapture non trouvée'
Là, je peux compiler et modifier le code. La capture marche, mais je n'ai pas accès au formulaire graphique.
J'ai tenté d'installer le composant en vain dans un autre projet.
Comment faire pour faire fonctionner la démonstration correctement ?
URGENT URGENT suis presque debutant, merci de m'aider !!
en réponse au problème de stéphane... mais ça peut servir à d'autres ;)
ah oui... j'suis, j'ai pas pensé à te dire... regardes un coup les $ID DEF ;)
Suivant les versions de Delphi, il charge un truc... en fait si C la version 5, alros il met Pointer au lieu de IDirectDrawSurface à une certaine variable (je te di ça de tête, dc C 1 peu cho pr moa ;)), parce que le cr"ateur avait constaté qu'il devait mêtre son type bizarre pour delphi 4, seulement évidement il pa pensé aux versions supérieures ;) Alros si tu veux faire propre, voit comment tu peux arranger les IF Def pour que ç définisse en pointer, autrement, vire les iddef et met Pointer à la place de IDirectDrawSurface ;)
Si t'y arrives pa, renvoi moi 1 msg, je te dirai + précisément, parce que j'ai pa tro de temps ce soir ;)
i am happy !!
Je suis inscris depuis 10mn, mais j'ai le meme probleme que certains.
a ca tu reponds:
c'est normal puisque je n'ai pas mis le fichier DemCapture.res dans le zip
On fait quoi dans ce cas là :-)))
Merci pour l'info; je bous (du verbe bouillir, et pas bouder !) d'impatience !
A+
AstroPierrot
J'ai téléchargé l'exemple dont tu m'as donné le lien, et il me sort une erreur dans l'unité 'DirectDraw' sur la ligne :
lpDDSZBufferDest : PDirectDrawSurface; // Surface to use as Z buffer for dest
l'erreur est la suivante :
[Erreur] DirectDraw.pas(176): Le type 'IDirectDrawSurface' nécessite une finalisation - non autorisé dans enregistrement variant
je crois tout simplement qu'il vaut mieux changer de fusil d'épuale de ne pas utiliser cette #%µ$$¨% de dll ;) En OLE et avec DirectX, ça devrais marcher bien mieux ! J'ai trouvé une super source ailleurs qu'ici, mais j'ai plus le lien... je cherche... humhum... je galère... ;) Ah ! Je trouve ;)
Perso, j'suis en train de développer un prog basé la dessus
http://www.torry.net/authorsmore.php?id=3310 voilà voilà ;)
J'ai un boitier d'acquisition vidéo analogique branché sur le port USB. C'est un 'Instant VideoMPX' de chez 'ADS Tech'. Il permet d'acquérir de la vidéo analogique en Composite ou SVideo.
Le format d'acquisition est 'UYVY', en diverses tailles d'image(640x480, 352x240,...), en 30 ou 60 images par secondes. Cela devrait donc fonctionner, mais au lieu de ça, l'application rame comme c'est pas possible et j'obtient une image verte.
Très bien ton Objet il serait bon d'ajouter la méthode suivante qui permet de retourner la liste des sources vidéo et affecter l'indice de la liste au Device (Capture.Device:=Combo.itemIndex):
function TCapture.GetDriverList: TStrings;
var
i: integer;
name: array[0..80] of char;
ver: array[0..80] of char;
begin
result := TStringList.Create;
for i := 0 to 9 do
if capGetDriverDescription(i, name, 80, ver, 80) then
result.Add(StrPas(name) + ' ' + strpas(ver))
else
Break;
end;
Perso, je suis parti sur une autre piste : DirectX et l'OLE... Je suis tombé sur un composant tout prêt qui marche pas mal... Je ne sais pass'il est possible de gérer plusieurs webcam avec... Quand j'aurai 1 peu plus avancé, je vous ferai signe ;)
Le composant s'appelle TCapture... J'ai pas le temps ed recherche le lien, mais je vous le donnerai ;)
N'ayant qu'un périph, je n'ai pas fait d'essais. Je pensais que la propriété Device servait à ça, mais effectivement, elle ne sert qu'à sélectionner le Driver. Je se sais pas comment contourner le dialogue de sélection de source. Désolé !
J'ai beau fouiller... Je ne voit pas comment SELECTIONNER un périphérique dans le cas où il n'est pas unique...
Exemple de cas concret bien enbêtant :
J'ai 1 carte WinTV, et une webcam... Et par défaut, je risque de choper la télé... Je compte pas afficher à chaque fois que je lance le prog la dialog box générique Micr$oft pour changer la source vidéo quoi...
Si quelqu'un a l'info, ça serai cool car vaut mieux 1 qui sait en informatique que 10 qui cherchent !
NB : J'ai regardé sur MSDN mais j'ai pas trouvé...
Je sais séldectoinner le DRIVER avant de m'y connecter desus...Seulement, dans mon cas, c'est un seul driver qui gère mes deux sources...
La capture fonctionne bien avec une webcam 'Philips ToUCam Pro 2', en USB ; par contre je n'y arrive pas avec une camera 'Panasonic NV-GS11' que ce soit en USB ou en FireWire. Ca fonctionne quand même si je mets la camera en mode webcam, mais c'est pas le but.
Sans doute un problème de reconnaissance du format vidéo.
TCapture.VideoFormat retourne une chaine donnant une info sur le format. Vu mon matériel, je n'ai testé que 'RGB', 'UYVY' et 'YUY2'. Si tu as un autre format (YUV ou autre) il peut y avoir un problème.
Le composant lui-même n'a pas beaucoup changé (juste la propiété VideoFormat et la fonction GetVideoFormat)
Le programme de démo précédent devrait tourner de la même façon
je travaille avec delphi 7 edition professionlle et je rencontre des problèmes avec la démonstration du composant d'acquisition video.
Si je double-clique sur 'DemoCapture.dpr', je rencontre un premier message d'erreur :
'Impossible de trouver le fichier ressources DemoCapture.res. Recrée.'
après avoir cliqué sur 'OK', j'en ai un deuxième :
"Erreur de lecture de la fiche"
'Classe TCapture non trouvée. Ignorer l'erreur et continuer ?'
'Remarque : ceci peut provoquer la suppression de composants'
'ou la perte de valeurs de propriétés.'
Si je clique sur 'Ignorer', j'ai accès au code et au formulaire graphique, mais je ne peux pas compiler le programme sans erreur et l'affichage ne fonctionne pas dans le composant TCapture.
Si je clique sur 'Annuler', un troisième message d'erreur apparaît :
'Erreur à la création de la fiche classe TCapture non trouvée'
Là, je peux compiler et modifier le code. La capture marche, mais je n'ai pas accès au formulaire graphique.
J'ai tenté d'installer le composant en vain dans un autre projet.
Comment faire pour faire fonctionner la démonstration correctement ?
Comment faire pour pouvoir utiliser le composant dans un autre programme Delphi ? Comment l'installer correctement?
Merci Kenavo pour ce link. Je viens de telecharger un compo avec sa source :)
Je suis désolé de t' avoir découragé ... Par contre, je verrai bien l' exploitation de ton source pour faire un prog. pour manipuler les fenetres de windows à la "minority Report". Ça doit pas être dûr pour toi je pense. Et puis apres tout: rien ne se crée, tout se transforme, non?
Mauricio > Je connaissais pas Eye-Toy, et maintenant que j'ai vu, je suis totalement découragé ! Je bosse pour améliorer la reconnaissance de mouvement (plusieurs zones, vitesse et direction ...), mais là ! Je te remercie pour m'avoir fait entrevoir la profondeur de ma médiocrité ;-)
Pour ton Pb de scan : http://www.torry.net/quicksearchd.php?String=twain&Title=Yes
WhiteHippo > Le phénomène d'incrustation dont tu parles doit être du à un flux vidéo orignal compressé. Il faut configurer la caméra en RVB 24 bits si possible. Car non content d'être compressé, il y a en plus l'ordre des lignes qui est inversé. Mais à la fin du chouchen le problème n'est plus trop visible ! :-))
Chez moi, j'ai le texte d'incrustation qui pose problème. C'est comme si on avait effectué une symetrie horizontale sur ce texte, qui se retrouve en haut et non tête bêche. Bref, c'est plutot bizarre.... J'ai pas le temps de chercher maintenant pour savoir si cela viens de mes paramètres de caméra, mais je vérifierais plus tard.
Je jetterais également un coup d'oeil au code.
N.B. Y'a du taf là dessous Kenavo, elle doit être belle la bouteille de chouchen :P
Oui Z vu la capture de la capture de la capture.
Malheureusement, je pourrai tester ce prog. que chez moi :(
Mais je te felicite de te jeter sur un tel compo!
Vu ta passion pour les jeux, quand est-ce que tu nous fait un jeu "Eye-toy" comme sur la Playstation?
Je cherche un compo (avec source) pour scanneriser, tu sais po où trouver ça?
5 ans après, la mise à disposition de ton composant bien utile, encore une remarque.
A l'époque je l'avais utilisé pour une détection de mouvement qui fonctionnait parfaitement.
Interfacé à un servo moteur, la caméra suivait les déplacements.
Je reprends ce programme pour le lancer à heure fixe et j'ai un petit problème.
Après avoir fait un capture.disconnect on ne peut pas faire un capture.connect sans le déclanchement d'une erreur fatale.
Une idée ?
Merci
Dom EFIS.
Sa marche impeccable.
- Messages postés
-
702
- Date d'inscription
- vendredi 21 mars 2003
- Statut
- Membre
- Dernière intervention
- 1 octobre 2009
3Je crois que tu as des erreurs dans la récupération des valeurs U et V
// calcul des indices
n := (H * W) + ((j div 2) * (W div 2) + (i div 2));
m := (H div 2) * (W div 2) + n;
// Lecture des valeurs
U := pointbyte[n];
V := pointbyte[m];
Amuse-toi bien !
Ken@vo
Merci pour ce composant.
J'aimerai copier l'affichage de ma camera sur un bitmap, mon problème est que elle utilise un format (IYUV et I420) et je ne parvient pas a recuperer les bonnes couleurs.
Je fait parcourir i de 0 à (Bitmap.height -1) et j de 0 à (Bitmap.width -1)
J'utilise un Bitmap de 120*160.
Y := pointbyte[i*160+j];
U := pointbyte[(i div 2)*(160 div 2) +j div 2 +(i*j)];
V := pointbyte[(i div 2)*(160 div 2) +j div 2 +(i*j) +(i*j)div 4];
Ensuite j'utilise la formule de conversion de YUV en RGB :
//Red
R := trunc(1.164*(Y - 16) + 1.596*(V - 128));
if R < 16 then R := 0;
if R > 255 then R := 255;
//Green
G := trunc(1.164*(Y - 16) - 0.813*(V - 128) - 0.391*(U - 128));
if G < 0 then G := 0;
if G > 255 then G := 255;
//Blue
B := trunc(1.164*(Y - 16) + 2.018*(U - 128));
if B < 0 then B := 0;
if B > 255 then B := 255;
et j'affiche sur mon bitmap le resultat :
Image1.Picture.Bitmap.canvas.Pixels[j,i] := RGB(R,G,B);
Je pense que je récupère mal mes composant YUV.
Quelqu'un a t' il la solution a mon problème?
Merci.