|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Criar negativo de Imagem
|
 |
|
|
|
Postada em 30/1/2004 por ^HEAVY-METAL^
Resumo: Criar o negativo de uma imagem à escolha.
Código:
<%@ Page Language="VB" Debug="True" %>
<%@ import namespace="system.drawing" %>
<%@ import namespace="system.drawing.imaging" %>
<%
Dim binario As New system.drawing.bitmap(server.mappath ("exemplo.jpg"))
Dim x,y,tmpCor As Integer
for y = 0 to binario.height-1
for x = 0 to binario.width-1
tmpCor=binario.GetPixel(x,y)
binario.SetPixel(x,y,color.FromARGB(255,255-tmpCor.r,255-tmpCor.g,255-tmpCor.b))
next
next
response.contenttype="image/jpeg"
binario.save(response.outputstream, imageformat.jpeg)
binario.dispose()
%>
T+,
|
|
|
|
|
