begin process at 2012 02 16 07:04:12
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Graphique

 > CRÉER UNE IMAGE EN FUSEAUX

CRÉER UNE IMAGE EN FUSEAUX


 Information sur la source

Note :
Aucune note
Catégorie :Graphique Classé sous :image, strechtblt, fuseaux, sphère Niveau :Débutant Date de création :11/01/2007 Date de mise à jour :11/01/2007 16:42:25 Vu / téléchargé :4 892 / 508
Auteur : moustachu

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Bonjour à tous,

Je vous propose une source bien modeste. Pour des besoins persos, j'ai eu besoin de coller une image sur une sphère.
Ce code permet de créer une image en fuseaux à partir d'une image standard. La copie d'écran montre bien mieux qu'un long discour, ce que fait le code.

Principe :
L'image est découpée en 12 fuseaux. On peut en faire plus ou moins... c'est vous qui voyez.
Chaque fuseaux est "lu", ligne par ligne. Chaque ligne est copiée et déformée (contraction) sous forme d'un fuseau.

Merci à EBARTSOFT qui m'a donné l'API à utiliser pour que la déformation soit plus jolie ^^


 Conclusion

Amélioration à prévoir :
- La formule créant le fuseau est peut être à améliorer.

Ce code ne servira certainement pas à beaucoup de monde...

Je reste bien entendu ouvert à toute remarque.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

11 janvier 2007 16:42:25 :
Ajour de l'API SetStretchBltMode pour améliorer le rendu de la déformation

 Sources du même auteur

Source avec Zip Source avec une capture ADDIN VB6 - INDENTEUR DE CODE SIMPLE À LANCER PAR RACCOURCIS...
Source avec Zip Source avec une capture COMBINAISONS DE RÉGIONS
Source avec Zip Source avec une capture REQUÊTES SHAPE AVEC MSHFLEXGRID
Source avec Zip Source avec une capture LISSER LE TEXTE DE N'IMPORTE QUEL CONTRÔLE
Source avec Zip PRINTSTACKTRACE - PILE DES APPELS DES FONCTIONS ET PROCÉDURE
Toutes les sources de moustachu

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) VB10 - CRÉER VOS PROPRES CALQUES SUR UNE IMAGE par Duke49
Source avec Zip Source avec une capture Source .NET (Dotnet) CREER UN GIF ANIMÉ par Le Pivert
Source avec une capture GRAPH PHP COURBE DE CHARGE par s.defaye
Source avec Zip Source avec une capture BOULE DE CRISTAL par BLUEBIBUBBLE
VB6 - DÉPLACEMENT D'UN CONTRÔLE SUR UN SEGMENT DE DROITE DÉL... par ucfoutu
Toutes les sources de la catégorie Graphique

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) CREER UN GIF ANIMÉ par Le Pivert
Source avec Zip Source .NET (Dotnet) EXPORTER LES IMAGES DE WORD ET D' EXCEL par Le Pivert
Source avec Zip IMAGELOARDER par vkitumaini
Source avec Zip Source avec une capture Source .NET (Dotnet) MERGEIMAGES par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) CREER UN CALENDRIER DE POCHE par Le Pivert

Commentaires et avis

Commentaire de bebelious le 11/01/2007 15:46:35

Sympa ce code. J'aime bien

Pourquoi ne pas appliquer un flou pour éviter crénelage,
ou alors faire une moyenne des pixels aux alentours...
(heu... c'est un flou aussi ca tiens ;) )

Bonne prog

Commentaire de EBArtSoft le 11/01/2007 16:21:23 administrateur CS

Bon aller je te donne l'astuce... mais c'est bien par ce que c'est toi ! lol

'On ajoute :
Private Declare Function SetStretchBltMode Lib "gdi32" (ByVal hdc As Long, ByVal nStretchMode As Long) As Long

'Puis on fait :
pctDest.Cls
pctDest.Picture = LoadPicture
SetStretchBltMode pctDest.hdc, 3

C'est y pas mieux ainsi ? hum

@+

Commentaire de moustachu le 11/01/2007 16:39:40

Merci de vos commentaires. Et merci Ebartsoft. C'est nickel !

Je fais une mise à jour.

bebelious>Oui, il faudrait que je fasse de l'antialiasing aussi...ça viendra..ou pas

++
Moustachu


Commentaire de Renfield le 11/01/2007 22:50:12 administrateur CS

Joli

Commentaire de Piezo le 11/05/2007 20:20:12

Je suis et serais toujours aussi impressionné par tout ce que l'on ai capable de faire avec VB.
Merci à Moustachu...
et EBArtSoft qui n'a rien a envier aux plus grand et c'est pas de l'adobe !!
Ya pas photo et choppe (sans alcool !)

Commentaire de EBArtSoft le 11/05/2007 21:48:00 administrateur CS

Yeah Piezo un supporter de vb6 ! bienvenue :p

Commentaire de moustachu le 13/05/2007 17:43:48

Quel commentaire !!Merci Piezo !

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

comment creer une image a partir d'une matrice en memoire [ par thebob ] je cherche un procede rapide qui permettrer de convertir la matrice d'une image en image(que je pourrais afficher a partir de la procedure paint pictu Texte & Images [ par MEYS David ] Comment réaliser une page qui comprent du texte et des images similaire a worddans une feuille en vb6Comment convertir une image BMP en JPGComment enr Texte & Images [ par MEYS David ] Comment réaliser une page qui comprent du texte et des images similaire a worddans une feuille en vb6Comment convertir une image BMP en JPGComment enr Cherche source d'un visualisateur d'image pour VB5 [ par Gsoft ] Cherche source d'un visualisateur d'image pour VB5@+ fond transparent superposé sur une image [ par lolo ] je voudrais rendre transparent le fond d'un DataCombo que j'ai mis sur une image, pourriez vous me donner la procédure.Merci compression image [ par aprenti ] est ce que quelqu'un a algorithme pour comprimer une image Conversion image couleur en noir et blanc [ par merlin ] Je cherche a convertir l'image d'un picturebox en couleurs vers une image monochrome, pour ensuite la mettre dans le clipboard (prend moins de place). Decoupage d'une image [ par David ] Comment pourrait-on copier une image dans le presse papier avec une forme de secteur angulaire sous VB6Pas rectangulaire comme avec BitBlp le permet d Objets VB dans les macros Excel : comment faire ??? [ par bryan_fury75 ] Voila, je voudrais juste afficher une image dans une macro excel, mais quand je déclare :Dim picto as Image... il me sort "type défini par l'utilisate afficher une image avec ADO [ par david ] j'ai une image en base de donneescontenant des images et je veut les visualiser sous VB j'utilise un element ado car je passe par odbcles element comm


Nos sponsors


Sondage...

Comparez les prix


Motorola MILESTONE
Entre 489€ et 489€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Beautiful woman in a bikini meditating on the beachPhoto Monument Valley Utah known as The Mittens
Photo Sparkling lagoon in the south pacific, Moorea, French Polynesia 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 4,883 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)