import helper
path="../../Data/007"
helper.ensureDir(path)

import urllib.request
img="http://www.pythonchallenge.com/pc/def/oxygen.png"
(filename, headers)=urllib.request.urlretrieve(img, path+"/oxygen.png")

# python3图像处理库Pillow（friendly PIL fork）
# 文档地址：https://pillow.readthedocs.io/en/5.3.x/
from PIL import Image
im=Image.open(filename)
(w,h)=im.size
px=im.load()

outstr=[]
# 21px是灰度图右边空白的宽度
for i in range(0,w-21,7):
    (r,g,b,a)=px[i,h/2]
    # 灰度图r,g,b三个分量值相等
    outstr.append(chr(r))
im.close()

msg=''.join(outstr)
print(msg)

import re
pattern=re.compile(r'[\d]+')

nextlevel=''.join(map(chr,map(int,pattern.findall(msg))))
print(nextlevel)

$path="../../Data/007"

. .\helper.ps1
New-Dir -Dir $path
$path=$(Resolve-Path $path).Path

$url="http://www.pythonchallenge.com/pc/def/oxygen.png"
$filename=$path+"/oxygen.png"
Invoke-WebRequest -Uri $url -OutFile $filename

[void][System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
$img=[System.Drawing.Image]::FromFile($filename)

$msg=""
for ($i=0; $i -lt $img.Width-21; $i+=7) {
    $msg+=[char]$img.GetPixel($i,$img.Height/2).R
}
$img.Dispose()

Write-Output $msg

$outstr=""
$pattern=[regex]"\d+"
$pattern.Matches($msg) | ForEach-Object {$outstr+=[char][int]$_.Value}

Write-Output $outstr

package main

import (
	"fmt"
	"regexp"
	"strconv"
	_ "image/png"
)

func (c *Challenge) Challenge007() {
	path:="../../Data/007"
	EnsureDir(path)

	filename:=path+"/oxygen.png"
	channel:="http://www.pythonchallenge.com/pc/def/oxygen.png"
	Download(channel,filename)

	im:=OpenImage(filename)

	bounds := im.Bounds()

	msg := ""
	y:=(bounds.Max.Y-bounds.Min.Y)/2
	for x:=bounds.Min.X; x<bounds.Max.X-21; x+=7 {
		r,_,_,_ := im.At(x,y).RGBA()
		msg+=string(byte(r))
	}

	fmt.Println(msg)

	pattern:=regexp.MustCompile("/d+")
	matches:=pattern.FindAllString(msg, -1)

	outstr:=""
	for _,match := range matches {
		i,err:=strconv.Atoi(match)
		if err == nil {
			outstr+=string(byte(i))
		}
	}

	fmt.Println(outstr)
}

import helper

firststr=helper.readFile("../../Data/009/first.txt")
secondstr=helper.readFile("../../Data/009/second.txt")

firstlist=[int(x.strip()) for x in firststr.split(',')]
secondlist=[int(x.strip()) for x in secondstr.split(',')]

import turtle
import tkinter

tk=tkinter.Tk()
tk.title("Challenge009")
canvas=tkinter.Canvas(tk, width=500, height=500)
canvas.pack(expand=1,fill="both")
pen=turtle.RawPen(canvas)
pen.hideturtle()

def drawPoints(plist):
    points=list(map(lambda x: (x[0]-250, 250-x[1]), zip(plist[::2], plist[1::2])))
    pen.up()
    pen.goto(points[0])
    pen.down()
    for x,y in points:
        pen.goto(x,y)

drawPoints(firstlist)
drawPoints(secondlist)
tk.mainloop()

function GetPoints {
    param (
        [string[]]
        $strs
    )

    [System.Collections.Generic.List[System.Drawing.Point]]$list=New-Object System.Collections.Generic.List[System.Drawing.Point]

    for ($i=0; $i -lt $strs.Length; $i+=2) {
        $x=[System.Convert]::ToInt32($strs[$i].Trim())
        $y=[System.Convert]::ToInt32($strs[$i+1].Trim())
        [System.Drawing.Point]$point=New-Object System.Drawing.Point $x,$y
        $list.Add($point)
    }

    return $list
}

$firststr=(Get-Content (Resolve-Path "../../Data/009/first.txt").Path -Raw).Replace("`r`n","").Split(',',[System.StringSplitOptions]::RemoveEmptyEntries)
$secondstr=(Get-Content (Resolve-Path "../../Data/009/second.txt").Path -Raw).Replace("`r`n","").Split(',',[System.StringSplitOptions]::RemoveEmptyEntries)

[System.Collections.Generic.List[System.Drawing.Point]]$firstline=GetPoints -strs $firststr
[System.Collections.Generic.List[System.Drawing.Point]]$secondline=GetPoints -strs $secondstr

[void][System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
$img=New-Object System.Drawing.Bitmap 500,500
$graphics=[System.Drawing.Graphics]::FromImage($img)
$graphics.Clear([System.Drawing.Color]::White)
$pen=[System.Drawing.Pens]::Black

$graphics.DrawLines($pen, $firstline.ToArray())
$graphics.DrawLines($pen, $secondline.ToArray())

. .\helper.ps1
Show-Image -Title "Challenge009" -Image $img

$img.Dispose()

package main

import(
	"image"
	"image/color"
	"image/draw"
	"strings"
	"strconv"
)

func (c *Challenge) Challenge009() {
	firststr := ReadFile("../../Data/009/first.txt")
	secondstr := ReadFile("../../Data/009/second.txt")

	bg := image.White
	pen := color.Black

	rgba :=  image.NewRGBA(image.Rect(0, 0, 500, 500))
	draw.Draw(rgba, rgba.Bounds(), bg, image.ZP, draw.Over)

	firstline := getPoints(firststr)
	secondline := getPoints(secondstr)

	drawPoints(rgba, pen, firstline)
	drawPoints(rgba, pen, secondline)

	pngfile := "../../Data/009/go.png"

	SaveImage(pngfile, rgba, "png")

	ShowImage(pngfile)
}

func getPoints(str string) []image.Point {
	var points []image.Point
	strlist := strings.Split(str, ",")
	for i := 0; i < len(strlist); i+=2 {
		x,_ := strconv.Atoi(strings.Trim(strlist[i], "\r\n "))
		y,_ := strconv.Atoi(strings.Trim(strlist[i+1], "\r\n "))
		points = append(points, image.Pt(x,y))
	}

	return points
}

func drawPoints(rgba *image.RGBA, color color.Color, points []image.Point) {
	for i := 0; i < len(points)-1; i++ {
		drawLine(points[i].X, points[i].Y, points[i+1].X, points[i+1].Y, rgba, color)
	}
}

func drawLine(x0, y0, x1, y1 int, rgba *image.RGBA, color color.Color) {
	dx := abs(x1 - x0)
	dy := abs(y1 - y0)

	sx, sy := 1, 1
	if x0>=x1 {
		sx = -1
	}
	if y0>=y1 {
		sy = -1
	}
	err := dx-dy

	for {
		rgba.Set(x0, y0, color)
		if x0 == x1 && y0 == y1 {
			return
		}
		e2 := err * 2
		if e2 > -dy {
			err -= dy
			x0 += sx
		}
		if e2 < dx {
			err += dx
			y0 += sy
		}
	}
}

func abs(x int) int {
	if x>=0 {
		return x
	} else {
		return -x
	}
}

import helper
path="../../Data/016"
helper.ensureDir(path)

# ================================
# 使用http认证，下载文件
import urllib.request
helper.installHTTPBasicAuthOpener("huge", "file")

gif="http://www.pythonchallenge.com/pc/return/mozart.gif"
(filename, headers)=urllib.request.urlretrieve(gif, path+"/mozart.gif")
# ================================

from PIL import Image
im=Image.open(filename)
px=im.load()

newIm=Image.new(im.mode, im.size)
newPx=newIm.load()

(w,h)=im.size
for y in range(h):
    for x in range(w):
        if px[x,y] == 195:
            for xx in range(w):
                newPx[xx,y]=px[(xx+x)%w,y]
            continue

im.close()
newIm.show()
newIm.close()

$path="../../Data/016"

. .\helper.ps1
New-Dir -Dir $path
$path=$(Resolve-Path $path).Path

$gif="http://www.pythonchallenge.com/pc/return/mozart.gif"
$filename=$path+"/mozart.gif"
Get-FileWithAuth -Url $gif -Filename $filename -Username "huge" -Password "file"

[void][System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
$img=[System.Drawing.Image]::FromFile($filename)
$newImg=New-Object System.Drawing.Bitmap $img.Width,$img.Height
$color=[System.Drawing.Color]::FromArgb(255,0,255)

for ($y = 0; $y -lt $img.Height; $y++) {
    for ($x = 0; $x -lt $img.Width; $x++) {
        if ($img.GetPixel($x,$y) -eq $color) {
            for ($xx = 0; $xx -lt $img.Width; $xx++) {
                $newImg.SetPixel($xx,$y,$img.GetPixel(($xx+$x)%$img.Width,$y))
            }
            continue
        }
    }
}

$img.Dispose()

Show-Image -Title "Challenge016" -Image $newImg
$newImg.Dispose()

package main

import(
	"image"
)

func (c *Challenge) Challenge016() {
	path:="../../Data/016"
	EnsureDir(path)

	gif:="http://www.pythonchallenge.com/pc/return/mozart.gif"
	filename:=path+"/mozart.gif"
	DownloadWithBasicAuth(gif, filename, "huge", "file")

	im:=OpenImage(filename)

	newImg:=straightImage(im)

	giffile := path+"/mozart.go.gif"
	SaveImage(giffile, newImg, "gif")
	
	ShowImage(giffile)
}

func straightImage(im image.Image) *image.RGBA {
	bounds:=im.Bounds()
	newImg:=image.NewRGBA(bounds)
	for y := bounds.Min.Y; y < bounds.Max.Y; y++ {
		for x := bounds.Min.X; x < bounds.Max.X; x++ {
			r,g,b,_:=im.At(x,y).RGBA()
			if r==65535 && g==0 && b==65535 {
				for xx := bounds.Min.X; xx < bounds.Max.X; xx++ {
					newImg.Set(xx,y,im.At((xx+x)%bounds.Dx(),y))
				}
				continue
			}
		}
	}
	return newImg
}