Click here to Skip to main content
Click here to Skip to main content
Add your own
alternative version

GHeat .NET

, 21 Jun 2010
gheat ported to C#
GHeat.Net.zip
GHeat.Net
bin
Debug
gheat.dll
GMap.NET.Core.dll
GeocodingCache.db
gheat.Net.csproj.user
gheat.Net.suo
gheat.suo
Properties
Settings.settings
GheatDeskTop
bin
Debug
gheat.dll
GheatDeskTop.exe
GheatDeskTop.vshost.exe
GheatDeskTop.vshost.exe.manifest
GMap.NET.Core.dll
My Project
Application.myapp
Settings.settings
Service References
Web References
gheatWeb
__
etc
color-schemes
classic.png
fire.png
master.psd
omg.png
pbj.png
pgaitch.png
dots
dot0.png
dot1.png
dot10.png
dot11.png
dot12.png
dot13.png
dot14.png
dot15.png
dot16.png
dot17.png
dot18.png
dot19.png
dot2.png
dot20.png
dot21.png
dot22.png
dot23.png
dot24.png
dot25.png
dot26.png
dot27.png
dot28.png
dot29.png
dot3.png
dot30.png
dot4.png
dot5.png
dot6.png
dot7.png
dot8.png
dot9.png
master.psd
App_Data
bin
gheat.dll
gheat.pdb
gheatWeb.dll
gheatWeb.pdb
GMap.NET.Core.dll
Mono.Data.SqliteClient.dll
MySql.Data.dll
gheatWeb.vbproj.user
Global.asax
My Project
Application.myapp
MyExtensions
Settings.settings
Public Class StitchedTileTest

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim pm As New gheat.PointManager()
        Dim g As Graphics
        Dim tempImage As System.Drawing.Bitmap
        Dim zoom As Integer = 4
        Dim startX As Integer = 2
        Dim startY As Integer = 5
        Dim maxX As Integer = startX + 10
        Dim maxY As Integer = startY + 10
        Dim canvasImage As New System.Drawing.Bitmap(maxX * 256 - (startX * 256), maxY * 256 - (startY * 256), System.Drawing.Imaging.PixelFormat.Format32bppArgb)

        gheat.Settings.BaseDirectory = "..\..\..\gheatWeb\__\etc\"

        g = Graphics.FromImage(canvasImage)

        pm.LoadPointsFromFile("..\..\..\points.txt")

        For x As Integer = startX To maxX
            For y As Integer = startY To maxY
                tempImage = gheat.GHeat.GetTile(pm, "classic", zoom, x, y)
                g.DrawImage(tempImage, New System.Drawing.PointF(x * 256 - (startX * 256), y * 256 - (startY * 256)))
            Next
        Next
        PictureBox1.Image = canvasImage
    End Sub
End Class

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

About the Author

Corey Fournier
Software Developer
United States United States
Graduate of University of Louisiana at Lafayette in computer science.

| Advertise | Privacy | Mobile
Web03 | 2.8.140721.1 | Last Updated 21 Jun 2010
Article Copyright 2010 by Corey Fournier
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid