git.sesse.net Git - vlc/blob - doc/skins/curve_maker/Bezier.bas

   1 Attribute VB_Name = "Bezier"\r
   2 Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long\r
   3 Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long\r
   4 Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long\r
   5 \r
   6 Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long\r
   7 Public Const SRCCOPY = &HCC0020\r
   8 \r
   9 Global imgDC As Long\r
  10 \r
  11 Type pts\r
  12     x As Single\r
  13     y As Single\r
  14 End Type\r
  15 Global ft(30) As Single\r
  16 Global Pt(30) As pts\r
  17 Global MaxPt As Long\r
  18 \r
  19 Sub bezier_draw(nb As Long, OffX As Long, OffY As Long)\r
  20 Dim i As Long, pas As Single, t As Single, oldx As Single, oldy As Single, x As Single, y As Single\r
  21 \r
  22 pas = 1 / nb\r
  23 Call ini_factorielles\r
  24 oldx = Pt(0).x\r
  25 oldy = Pt(0).y\r
  26 \r
  27 For t = pas To 1 Step pas\r
  28     x = bezier_ptx(t)\r
  29     y = bezier_pty(t)\r
  30     ppal.Line (OffX + oldx, OffY + oldy)-(OffX + x, OffY + y), QBColor(ppal.Color.Value)\r
  31     oldx = x\r
  32     oldy = y\r
  33 Next t\r
  34 For i = 0 To MaxPt\r
  35     ppal.PSet (OffX + Pt(i).x, OffY + Pt(i).y), QBColor(ppal.Color.Value)\r
  36 Next i\r
  37 \r
  38 End Sub\r
  39 \r
  40 Function bezier_pty(t As Single) As Single\r
  41 Dim k As Long, i As Long\r
  42 k = 0\r
  43 For i = 0 To MaxPt\r
  44     bezier_pty = bezier_pty + Pt(i).y * melange(k, MaxPt, t)\r
  45     k = k + 1\r
  46 Next i\r
  47 \r
  48 End Function\r
  49 Function bezier_ptx(t As Single) As Single\r
  50 Dim k As Long, i As Long\r
  51 k = 0\r
  52 For i = 0 To MaxPt\r
  53     bezier_ptx = bezier_ptx + Pt(i).x * melange(k, MaxPt, t)\r
  54     k = k + 1\r
  55 Next i\r
  56 \r
  57 End Function\r
  58 \r
  59 Sub ini_factorielles()\r
  60 ft(0) = 1\r
  61 For i& = 1 To 30\r
  62     ft(i&) = ft(i& - 1) * i&\r
  63 Next i&\r
  64 \r
  65 End Sub\r
  66 \r
  67 Sub make_pt(i As Long, x As Long, y As Long)\r
  68 Pt(i).x = x\r
  69 Pt(i).y = y\r
  70 \r
  71 End Sub\r
  72 \r
  73 Function melange(i As Long, n As Long, t As Single) As Single\r
  74 melange = CSng(ft(n) / ft(i) / ft(n - i)) * t ^ i * (1 - t) ^ (n - i)\r
  75 \r
  76 End Function\r
  77 \r