2017-08-02 6:40 GMT-03:00 Fabien Bodard <gambas...@gmail.com>: > Ok Fernando ... your code is no so bad :-) > > > ==> the code revised > > Still being executed twice. I have not been able to understand why.
Thanks. - fernando > ' Gambas class file > > Private Const W As Integer = 2048 > Private Const H As Integer = 2048 > > Public Sub _new() > > dwgArea.width = 800 ' does nothing > dwgArea.Height = 1000 ' does nothing Print dwgArea.width; dwgArea.Height > dwgArea.Refresh > End > > > > Public Sub DwgArea_Draw() > > Dim angle As Float > Dim eScale As Float > Dim i As Integer > > Print "Executing" & Now > > 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) > Print Cos(angle) * w / 2 > Paint.Stroke > 'Paint.Fill > Next > > End > > > Best Regards, > > Fabien Bodard > > ------------------------------------------------------------ > ------------------ > 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 > -- 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
