Matematické Fórum

#include GDI_func.ahk
#include debugObject.ahk

; Initiate arc object
obj := { "values": {"radian":"", "cos":"", "sin":""}, "xy": {"x":"", "y":""} } 
imageFile=temp.png

deg2rad(x) {
  return % (x*180)/3.1415925635
}
rad2deg(x) {
  return % (x*3.1415925635)/180
}

getXYAxis(angle_deg, radius, arr = false) 
{
global obj
  obj["values"]["radian"] := !arr || arr["values"]["radian"] != "" ? deg2rad(angle_deg) : arr["radian"]  ; conversion deg*(M_PI/180);    
  obj["values"]["cos"] := !arr || arr["values"]["cos"] != "" ? cos(obj["values"]["radian"]) : arr["cos"] ; cosinus always for calculation of width 
  obj["values"]["sin"] := !arr || arr["values"]["sin"] != "" ? sin(obj["values"]["radian"]) : arr["sin"] ; sinus always for calculation of height
  obj["xy"]["x"] := radius * obj["values"]["cos"]
  obj["xy"]["y"] := radius * obj["values"]["sin"]
  msgBox, % "angle:" .  angle_deg . " - " . Array_print(obj)
  if arr type array
    return % obj["xy"]
  else
    return % obj
}

diameter := 500
radius := diameter/2
length_1 := 20
length_2 := 20/5
deg := 0

GdipInit()         ; Gdip stuff
Gdip1()            ; Gdip stuff     
pBrush := Gdip_BrushCreateSolid(0xff80D577) ; green A2CD5A lighter 90EE90 between 90D577 and bluish 43CD80 
Gdip_FillRectangle(G, pBrush, 0, 0, winw, winh)
pBrush := Gdip_BrushCreateSolid(0xff000000)
;pBrush := Gdip_CreatePen(0xFFFF0000,1) ; transparent?

loop, 71 ; 71*5° = 355 sections of circle
{ 
  deg += 5
  obj := getXYAxis(deg, radius) ; // save calculated values for next operations
  ; The followings are values for lines (spikes) drawn in radix - they are either shorter or longer 
  xy := mod(deg, 30) == 0 ? getXYAxis(deg, radius + length_1, obj) : getXYAxis(deg, radius + length_2, obj)
  ;msgBox, change this
  ; drawline(image, obj["xy"]["x"] + center, obj["xy"]["y"] + center, xy["x"] + center, xy["y"] + center, wheel_color)
  ;msgBox, to this
  Gdip_DrawLine(G, pBrush, 1, 1, 400, 400)
  Gdip_DrawLine(G, pBrush, 2, 2, 500, 500)
  Gdip_DrawLine(G, pBrush, 3, 3, 500, 500)
  Gdip_DrawLine(G, pBrush, 4, 4, 50, 50)
  Gdip_DrawLine(G, pBrush, 5, 5, 50, 50)
  Gdip_DrawLine(G, pBrush, xy["xy"]["x"] + center, xy["xy"]["y"] + center, xy["xy"]["y"] + center, xy["x"] + center)
}

pBitmap := Gdip_CreateBitmapFromHBITMAP(hbm)
Gdip_SaveBitmapToFile(pBitmap, imageFile)
Gdip2()         ; Gdip stuff
Gdip_DeleteBrush(pBrush)
Gui, Canvas: Destroy

Gui, add, pic, x0 y0 gDrag, %imageFile%
Gui, Add, StatusBar,, Click+shift to view image in viewer
Gui, show, x200 y200 w400 h400,Title
return

drag:
return

#r::
  Reload
return