PureBasic

Code : Tout sélectionner

UseJPEGImageDecoder()


; *** taille fenetre ****
#Width = 600
#Height = 600
; **********************

Structure point_image
	x.l   ; la coordonée X
	y.l ; la corrdonée y
	couleur.l ; la couleur du pixel
EndStructure
dim  point_image.point_image(1)  ; on donne une taille de 1 par defaut ... voir plus loin le redimenssionnement


; les enumerations histoire que ce soit plus parlant que des chiffres ....
Enumeration
	#window 
	#Panel
	#Cont
	#image
EndEnumeration

;- Initialisation de DirectX
If  InitSprite()=0 or InitKeyboard() = 0 Or InitMouse() = 0
	MessageRequester("Erreur", "Impossible d'initialiser DirectX", 0)
	CloseWindow(#window) : End
EndIf


;- Ouverture de la fenêtre et de l'écran
hwnd = OpenWindow(#window, 0, 0,  #Width, #Height, "",#PB_Window_TitleBar | #PB_Window_ScreenCentered|#PB_Window_SystemMenu  )

ScrollAreaGadget(#Panel,10, 10,500,500, 1024, 768, 30)
hCont = ContainerGadget(#Cont,10,10,1024,768,#PB_Container_Double)
OpenWindowedScreen(hCont, 0, 0, 1024, 768, 0, 0, 0)   

file$=OpenFileRequester("choisir une image a charger","c:\","*.jpg",1) ; on demande une image
if file$
	if LoadImage(#image,file$)
		Else
		MessageRequester("erreur","l'image ne peut etre chargé")
		End
	endif
endif

;normalement ici on a une image valide
; nous allons recuperer sa taille x,y
ResizeImage(#image,1024,768)
Largeur = ImageWidth(#Image)
Hauteur = ImageHeight(#Image) 
SetGadgetAttribute(#Panel, #PB_ScrollArea_InnerWidth , Largeur) ; je redimensionne au passage les Scrolls Gadget
SetGadgetAttribute(#Panel, #PB_ScrollArea_InnerHeight , Hauteur) ; je redimensionne au passage les Scrolls Gadget


; la taille de l'image va nous permetre de redimensionner notre Tableau (structure)
redim point_image(Largeur*Hauteur ) ; voilla notre structure est capable de recevoir tout les points de notre image

;maintenant que nous avons sa taille , avec  2 boucles on va lire les points de notre image, et les mettre dans la structure ...
StartDrawing(ImageOutput(#image))  ; donc on va travailler dans notre image , on va lire les points
	for y=0 to Hauteur-1
		for x=0 to Largeur-1
			compteur=compteur+1
			point_image(compteur )\x=x ; on met la coordoné X du point en cours ; dans la structure
			point_image(compteur )\y=y ; on met la coordoné X du point en cours ; dans la structure
			point_image(compteur )\couleur=point(x,y) ; on met la couleur du point dans notre structure
		next x
	next y
StopDrawing()

; ici normalement toute l'image est dans notre structure !
; maintenant  , on peut s'amuser a relire les points, et a changer la couleur ... par exemple :
taille_du_tableau =compteur ;ArraySize( point_image() ,1)

for y=0 to Hauteur-1
	for x=0 to Largeur-1 ;  pour tout les points du tableau ..... ; maintenant que l'image est dans le tableau , l'operation va etre tres rapide ;o) 
		i=i+1
		; ici , on va ne changer que la couleur
		; on va decomposer notre couleur en RVB
		Rouge= red(point_image(i )\couleur)
		vert= green(point_image(i )\couleur)
		bleu=blue(point_image(i )\couleur)
		; maintenant , on va echanger le Rouge avec le bleu ( bonjour le traitement LOL )
		buff=Rouge 
		Rouge=bleu
		bleu=buff  ; l'echange avec 3 variables est vraiment une base , il aurai mieux valut utiliser directement la variable "bleu" a la place de "rouge" et c'etait fait :D 
		; on va recomposer la couleur et la mettre dans la structure
		point_image(i )\couleur=rgb(rouge,vert,bleu) ; c'est ici que l'echange de variable aurai ete plus simple en ecrivant  "rgb(bleu,vert,rouge)" ;o)
	next x
next y ; et ceci pour tout les points de l'image 

; voyons le résultat ::
; on va redessiner l'image  avec ses nouvelles couleurs
compteur=0
StartDrawing(ImageOutput(#image))  ; donc on va travailler dans notre image , on va ecrire les points
	for y=0 to Hauteur-1
		for x=0 to Largeur-1
			compteur=compteur+1
			plot(x,y,point_image(compteur )\couleur) ; on se sert du contenu de notre structure pour redessiner l'image
		next x
	next y
StopDrawing()

; allez on affiche l'oeuvre d'art histoire de rire :





;- ** début de la boucle **********************


Repeat
	ExamineMouse()  ; on demande a purebasic de surveiller les event de souris !
	ExamineKeyboard() ; on demande a purebasic de surveiller les event de clavier!
	evnt= waitWindowEvent(2)
	
	Select    evnt
		Case #PB_Event_CloseWindow 
		End 
	EndSelect
	
	StartDrawing(ScreenOutput())
		DrawText(10, 10, "touche ESC pour quitter" ,RGB(255,255,0),RGB(0,0,0))
		DrawImage(ImageID(#image),0,0)
	StopDrawing()
	
	
	FlipBuffers() : ClearScreen(RGB(0,0,0))
	
	
	
Until KeyboardPushed(#PB_Key_Escape)
; **************** fin de boucle ************************











; EPB