Fernando, is this the code?
*Private Const W As Integer = 2048 Private Const H As Integer = 2048 Public Sub DwgArea_Draw() Dim angle As Float Dim eScale As Float Dim i As Integer Print "Executing" & Now dwgArea.width = 800 ' does nothing dwgArea.Height = 1000 ' does nothing Print dwgArea.width; dwgArea.Height Paint.Translate(dwgArea.W / 2, dwgArea.H / 2) Paint.Brush = Paint.Color(Color.SetAlpha(Color.Red, 128)) Paint.LineWidth = 1 For i = -15 To 195 Step 15 angle = Rad(CFloat(i)) Paint.MoveTo(0, 0) Paint.LineTo(Cos(angle) * W / 2, Sin(angle) * H / 2) Paint.Stroke Paint.Fill Next End* Does the whole DwgArea_Draw() routine get called twice? Can you set some breakpoints (F9) and check the calling stack to see what's going on? On Wed, Aug 2, 2017 at 11:38 AM, Fernando Cabral < fernandojosecab...@gmail.com> wrote: > I am trying to create a sundial faceplate. I took the analogic clock, > discarded what I did not need and thought I was ready to work on the > calculations and drawing of the hour angles. > > Nevertheless, I am mystified by two things I can't understand: > a) The code produces a loop I can't see why (I am not referring to the FOR > loop) > b) I can't modify the drawing area dimensions ( dwgArea.width = 800 does > not work) > > Besides, I have a question: when a drawing area is created, it (0,0) > supposed to be the central point? > > The code follows: > > > > > > > > > > > > > > > > > > > > > > > > > > *Private Const W As Integer = 2048Private Const H As Integer = 2048Public > Sub DwgArea_Draw() Dim angle As Float Dim eScale As Float Dim i As > Integer Print "Executing" & Now dwgArea.width = 800 ' does nothing > dwgArea.Height = 1000 ' does nothing Print dwgArea.width; dwgArea.Height > Paint.Translate(dwgArea.W / 2, dwgArea.H / 2) Paint.Brush = > Paint.Color(Color.SetAlpha(Color.Red, 128)) Paint.LineWidth = 1 For i > = -15 To 195 Step 15 angle = Rad(CFloat(i)) Paint.MoveTo(0, 0) > Paint.LineTo(Cos(angle) * W / 2, Sin(angle) * H / 2) Paint.Stroke > Paint.Fill NextEnd* > > > > -- > Fernando Cabral > Blogue: http://fernandocabral.org > Twitter: http://twitter.com/fjcabral > e-mail: fernandojosecab...@gmail.com > Facebook: f...@fcabral.com.br > Telegram: +55 (37) 99988-8868 > Wickr ID: fernandocabral > WhatsApp: +55 (37) 99988-8868 > Skype: fernandojosecabral > Telefone fixo: +55 (37) 3521-2183 > Telefone celular: +55 (37) 99988-8868 > > Enquanto houver no mundo uma só pessoa sem casa ou sem alimentos, > nenhum político ou cientista poderá se gabar de nada. > ------------------------------------------------------------ > ------------------ > Check out the vibrant tech community on one of the world's most > engaging tech sites, Slashdot.org! http://sdm.link/slashdot > _______________________________________________ > Gambas-user mailing list > Gambas-user@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/gambas-user > ------------------------------------------------------------------------------ Check out the vibrant tech community on one of the world's most engaging tech sites, Slashdot.org! http://sdm.link/slashdot _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user
