/usr/lib/libreoffice/share/extensions/DmathsAddon/OOoGdmath/CammCode.xba is in libreoffice-dmaths 3.4+dfsg1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 | <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="CammCode" script:language="StarBasic">'OOoGdmath
'Copyright (C) 2005-2009 Gilles Daurat
'This program is free software; you can redistribute it and/or
'modify it under the terms of the GNU General Public License
'as published by the Free Software Foundation; either version 2
'of the License, or (at your option) any later version.
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'GNU General Public License for more details.
'You should have received a copy of the GNU General Public License
'along with this program; if not, write to the Free Software
'Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
Option Explicit
dim oCammForm as Object
Sub Main
oCammForm=LoadDialog("OOoGdmath", "CammForm")
ChangeTitreDialog(oCammForm)
' ChargeCouleurDefaut oArcDCForm.Model.ImageControl1
' ChargeCouleurDefaut oArcDCForm.Model.ImageControl2
' RestaureForm(oCammForm)
oCammForm.Execute()
End Sub
Private Sub CammCode_BoutonAnnuler_Click()
oCammForm.EndExecute()
End Sub
Private Sub CammCode_BoutonOk_Click()
Dim posx, posy
Dim nombrepart, rayon, angletotal, deltaangle, nn, i
Dim Shapes,unePart,depart as long,arrivee as long
Dim Group
oCammForm.EndExecute()
sauveForm(oCammForm)
Shapes=InitialiseGroupe()
InitialiseDessin(False)
PointInsertion posx, posy
nombrepart = Int(Val(oCammForm.Model.TextBox1.Text))
rayon = oCammForm.Model.TextBox2.Text
RemplaceVirgulePoint rayon
rayon = Val(rayon)*1000
angletotal = oCammForm.Model.TextBox3.Text
RemplaceVirgulePoint angletotal
angletotal = Val(angletotal)
deltaangle = angletotal / nombrepart
nn = 0
For i = 0 To nombrepart-1
depart=deltaangle * i*100
arrivee=deltaangle*(i+1)*100
If nn < Val(oCammForm.Model.TextBox4.Text) Then
unePart=InsereArcDeCerclePlein(posx,posy,depart,arrivee,rayon,Shapes,oCammForm.Model.Image9)
unePart.FillStyle = com.sun.star.drawing.FillStyle.SOLID
unePart.FillColor = oCammForm.Model.Image7.BackgroundColor
nn = nn + 1
else
unePart=InsereArcDeCerclePlein(posx,posy,depart,arrivee,rayon,Shapes,oCammForm.Model.Image6)
unePart.FillStyle = com.sun.star.drawing.FillStyle.SOLID
unePart.FillColor = oCammForm.Model.Image8.BackgroundColor
End If
Next i
Dim aPoint As New com.sun.star.awt.Point
aPoint.x=posx
aPoint.y=posy
Group = GroupeObjet(Shapes)
Group.Position=aPoint
TermineDessin()
End Sub
Private Sub CammCode_Image6_Click()
ChangeCouleur oCammForm.Model.Image6
End Sub
Private Sub CammCode_Image7_Click()
ChangeCouleur oCammForm.Model.Image7
End Sub
Private Sub CammCode_Image8_Click()
ChangeCouleur oCammForm.Model.Image8
End Sub
Private Sub CammCode_Image9_Click()
ChangeCouleur oCammForm.Model.Image9
End Sub
Private Sub CammCode_TextBox4_Change()
If Val(oCammForm.Model.TextBox4.Text) >= Val(oCammForm.Model.TextBox1.Text) Then
MsgBoxP "message2"
End If
End Sub
</script:module>
|