AutoHotkey Community

#Include *i EasyBMP.ahk
#NoEnv

; Settings part
graphname := " y = sin x"
sizew := 360
sizeh := 300
ScalarX := 360
ScalarY := 1
use_antialias := true
func_to_call := "sin"

rc := EasyBMP_Init() ; initializes EasyBMP
If !rc
{
   MsgBox, 16,, Error initializing EasyBMP!
   ExitApp
}

TRIG_INIT()
hBMP := BMP_Create()
BMP_Set(hBMP, "size", sizew, sizeh)
BMP_Set(hBMP, "bitdepth", 32)
BMP_FillBlock(hBMP, "w" sizew " h" sizeh)
Geometry_DrawLine(hBMP, "x" (sizew//2) " y0", "x" (sizew//2) " y" (sizeh-1), "red", false)
Geometry_DrawLine(hBMP, "x0 y" (sizeh//2), "x" (sizew-1) " y" (sizeh//2), "red", false)
OldPoint := ""

FactX := sizew/ScalarX
FactY := sizeh/(ScalarY*2)
Progress, A R0-1000, Drawing graph..., Graphing
Loop, %ScalarX%
{
   percent := Floor((A_Index*1000) / ScalarX)
   Progress, %percent%
   
   num := (A_Index-1)-(ScalarX/2)
   
   ; Do here your calculations
   val := %func_to_call%(num)
   
   ; Program continue
   val *= FactY
   val += sizeh/2
   If((val >= sizeh) || (val < 0))
      Continue
   xpos := Floor((A_Index-1) * FactX)
   ypos := (sizeh-1)-val+1
   If OldPoint =
      BMP_SetPixel(hBMP, xpos, ypos, "black")
   Else{
      Geometry_DrawLine(hBMP, OldPoint, "x" xpos " y" ypos, "black", use_antialias)
   }
   OldPoint := "x" xpos " y" ypos
}
Progress, Off
Text_DrawString(hBMP, "x5 y5", graphname, 16, "green")

Gui, Color, 0xFFFFFF
Gui, Add, Pic, x0 y0 vMyGraph
BMP_GetInfo(hBMP, w, h)
Win32_SetStaticBMP(hBMP, "MyGraph")
Gui, Show, w%w% h%h%, Graph
Return

GuiContextMenu:
MsgBox, 36, Graph, Do you want to save the graph as a file?
IfMsgBox, No
   Return
FileSelectFile, f, S,, Select file to save, Bitmap files (*.bmp)
If f =
   Return
SplitPath, f,, fD,, fN
f = %fD%\%fN%.bmp
SplashTextOn, 100, 100, Graph, Saving...
BMP_SaveFile(hBMP, f)
SplashTextOff
return

GuiClose:
BMP_Delete(hBMP)
EasyBMP_DeInit()
ExitApp

; Trigonometric functions - in degrees.
; They replace the original trigonometric functions,
; which use radians.

TRIG_INIT(){
   global DEG2RAD
   DEG2RAD := (4*ATan(1))/180
}

sin(x){
   global DEG2RAD
   Transform, o, Sin, % x * DEG2RAD
   Return o
}

cos(x){
   global DEG2RAD
   Transform, o, Cos, % x * DEG2RAD
   Return o
}

tan(x){
   global DEG2RAD
   Transform, o, Tan, % x * DEG2RAD
   Return o
}

RedrawChart( GuiID, ListOne ) { ;;This function doesn't change anything visually
   result := DllCall("rmchart.dll\RMC_SETSERIESDATAFILE" 
         ,UInt,1000          ; ctrl id of the chart window
         ,UInt,1             ; Region
         ,UInt,1             ; Series
         ,Str,"test.csv")   ; CSVFile
          ; Draw the chart
   result := DllCall("rmchart.dll\RMC_DRAW"
         ,UInt,1000 )   ; CtrlId
}