, , ,

<<


 >>  ()
Pages:     | 1 | 2 ||

.. ...

-- [ 3 ] --

Left = end. Top = object Form1: TForm1 Action = act Left = 254 end Top = 170 object btn3: TToolButton Width = 681 Left = Height = 779 Top = Caption = Action = act #1055#1088#1086#1089#1090#1088#1072#1085#108 end 9 #1090#1074#1077#1085#1085#1072#1103' object btn4: TToolButton '#1088#1077#1082#1086#1085#1089#1090#1088#109 Left = 1#1082#1094#1080#1103' Top = '#1075#1088#1077#1073#1082#1072 Width = Color = clBtnFace Caption = 'btn4' Font.Charset = DEFAULT_CHARSET ImageIndex = Font.Color = clWindowText Style = tbsSeparator Font.Height = -11 end Font.Name = 'MS Sans Serif' object btn5: TToolButton Font.Style = [] Left = Menu = mm1 Top = OldCreateOrder = False Action = act OnCreate = FormCreate end OnDestroy = FormDestroy end OnMouseWheelDown = FormMouseWheelDown object pnl1: TPanel OnMouseWheelUp = FormMouseWheelUp Left = PixelsPerInch = 96 Top = TextHeight = 13 Width = object spl1: TSplitter Height = Left = 0 Align = alClient Top = 537 TabOrder = Width = 673 OnMouseDown = pnl1MouseDown Height = 3 OnMouseMove = pnl1MouseMove Cursor = crVSplit OnMouseUp = pnl1MouseUp Align = alBottom OnResize = pnl1Resize end end object tlb1: TToolBar object pgc1: TPageControl Left = 0 Left = Top = 0 Top = Width = 673 Width = Height = 29 Height = Caption = 'tlb1' ActivePage = ts Images = il1 Align = alBottom ParentShowHint = False TabOrder = ShowHint = True object ts1: TTabSheet TabOrder = 0 Caption = #1061#1074#1072#1090#1099', object ToolButton1: TToolButton '#1084#1072#1088#1082 #1077# Left = 0 object pnl2: TPanel Top = 0 Left = Action = act1 Top = Width = 665 Caption = #1059#1075#1083#1099' Height = 33 '#1087#1086#1074#1086#1088 #1086#1090# Align = alTop ImageIndex = TabOrder = 0 object pnl4: TPanel Visible = False Left = object mmo1: TMemo Top = Left = 424 Width = Top = 0 Height = Width = 169 Align = alTop Height = 33 TabOrder = Lines.Strings = ( 'mmo1') Visible = False TabOrder = 0 end Visible = False object sg7: TStringGrid WordWrap = False Left = end Top = end Width = object sg1: TStringGrid Height = Left = 0 Align = alClient Top = 33 ColCount = Width = 665 DefaultColWidth = Height = 132 DefaultRowHeight = Align = alClient RowCount = ColCount = 30 TabOrder = DefaultColWidth = 45 end DefaultRowHeight = 18 end RowCount = 100 object ts8: TTabSheet Options = [goFixedVertLine, goFixedHorzLine, Caption = goVertLine, goHorzLine, goRangeSelect, goEditing] #1058#1088#1072#1077#1082#1090#1086# TabOrder = 1 #1080#1103' '#1090#1086#1095#1077# end ImageIndex = end object pnl5: TPanel object ts2: TTabSheet Left = Caption = Top = #1050#1086#1085#1077#1095#1085#1099#1077' Width = '#1090#1086#1095#1082#1080','#1089#1077#1088#10 Height = 77#1076#1080#1085#1072', Align = alTop '#1084#1072#1088#1082#1077#1088 TabOrder = ImageIndex = 1 Visible = False object pnl3: TPanel end Left = 0 object sg12: TStringGrid Top = 0 Left = Width = 665 Top = Height = 33 Width = Align = alTop Height = TabOrder = 0 Align = alClient Visible = False ColCount = end DefaultColWidth = object sg2: TStringGrid DefaultRowHeight = Left = 0 RowCount = Top = 33 Options = [goFixedVertLine, goFixedHorzLine, Width = 665 goVertLine, goHorzLine, goRangeSelect, goEditing] Height = 132 TabOrder = Align = alClient end ColCount = 30 end DefaultColWidth = 45 object ts9: TTabSheet DefaultRowHeight = 18 Caption = '11 '#1090#1086#1095#1077#1082' RowCount = 100 '#1074#1077#1089#1083 #1072' Options = [goFixedVertLine, goFixedHorzLine, #1080#1089#1093#1086#1076#1085#1099# goVertLine, goHorzLine, goRangeSelect, goEditing] ImageIndex = TabOrder = 1 object pnl6: TPanel end Left = end Top = object ts3: TTabSheet Width = Height = 33 end Align = alTop object chk1: TCheckBox TabOrder = 0 Left = Visible = False Top = end Width = object sg11: TStringGrid Height = Left = 0 Caption = Top = 33 #1055#1083#1086#1089#1082#1086#1089#1090# Width = 665 0' '#1074#1086#1076# Height = 132 Checked = True Align = alClient State = cbChecked ColCount = 3 TabOrder = DefaultColWidth = 45 end DefaultRowHeight = 18 object chk2: TCheckBox RowCount = 12 Left = Options = [goFixedVertLine, goFixedHorzLine, Top = goVertLine, goHorzLine, goRangeSelect, goEditing] Width = TabOrder = 1 Height = end Caption = end #1040#1085#1080#1084#1072#1094#1080# object ts10: TTabSheet Checked = True Caption = State = cbChecked #1055#1083#1086#1089#1082#1086#1089#1090#110 TabOrder = 0' '#1074#1086#1076#1099 end ImageIndex = 9 object se1: TSpinEdit object pnl7: TPanel Left = Left = 0 Top = Top = 0 Width = Width = 665 Height = Height = 33 MaxValue = Align = alTop MinValue = TabOrder = 0 TabOrder = Visible = False Value = end OnChange = se1Change object sgw: TStringGrid end Left = 0 object chk3: TCheckBox Top = 33 Left = Width = 665 Top = Height = 132 Width = Align = alClient Height = ColCount = 4 Caption = #1054#1089#1080' DefaultColWidth = 45 '#1082#1086#1086#1088#1076# DefaultRowHeight = 18 #1085#1072# RowCount = 12 Checked = True Options = [goFixedVertLine, goFixedHorzLine, State = cbChecked goVertLine, goHorzLine, goRangeSelect, goEditing] TabOrder = TabOrder = 1 end end object chk4: TCheckBox end Left = object ts4: TTabSheet Top = Caption = Width = #1053#1072#1089#1090#1088#1086#1081#1082#108 Height = 0 Caption = ImageIndex = 6 #1054#1090#1088#1077#1079#1086#1082' object lbl1: TLabel '#1084#1072 #1088#1082#1077#1088' Left = 392 '#1089#1077#1088#1077#1076#1080#1085# Top = 56 Checked = True Width = 134 State = cbChecked Height = 13 TabOrder = Caption = #1055#1072#1091#1079#1072' end '#1084#1077#1078#1076 #1091' object chk5: TCheckBox '#1082#1072#1076#1088#1072#1084#1080'('#1084#1 Left = 089')' Top = Width = 225 end Height = 17 object ColorBox5: TColorBox Caption = Left = #1054#1090#1088#1077#1079#1086#1082' Top = '#1084#1077#1078#1076#1091' Width = '#1093#1074#1072#1090#1072#1084#1080 Height = Checked = True Selected = clRed State = cbChecked ItemHeight = TabOrder = 5 TabOrder = end end object chk6: TCheckBox object ColorBox6: TColorBox Left = 24 Left = Top = 106 Top = Width = 321 Width = Height = 17 Height = Caption = Selected = clSilver #1054#1090#1088#1077#1079#1086#1082' ItemHeight = '#1083#1077 #1074#1099#1081' TabOrder = '#1093#1074#1072#1090'- end '#1082#1086#1085#1077#1094 end Checked = True end State = cbChecked object mm1: TMainMenu TabOrder = 6 Images = il end Left = object chk7: TCheckBox Top = Left = 24 object N1: TMenuItem Top = 131 Caption = #1060#1072#1081# Width = 313 Hint = #1060#1072#1081# Height = 17 object act11: TMenuItem Caption = #1054#1090#1088#1077#1079#1086#1082' Action = act '#1087#1088 #1072 #1074#1099#1081' end '#1093#1074#1072#1090'- object act21: TMenuItem '#1082#1086#1085#1077#1094 Action = act Checked = True end State = cbChecked object N4: TMenuItem TabOrder = 7 Action = act end end object ColorBox1: TColorBox object N3: TMenuItem Left = 192 Caption = '-' Top = 8 end Width = 145 object act41: TMenuItem Height = 22 Action = act Selected = clBlue end ItemHeight = 16 end TabOrder = 8 object N2: TMenuItem end Caption = #1055#1086#1084#1086#1097# object ColorBox3: TColorBox object act31: TMenuItem Left = 192 Action = act Top = 56 end Width = 145 end Height = 22 end Selected = clGradientActiveCaption object dlgOpen1: TOpenDialog ItemHeight = 16 Left = TabOrder = 9 Top = end end object ColorBox4: TColorBox object tmr1: TTimer Left = 192 Interval = Top = 80 OnTimer = tmr1Timer Width = 145 Left = Height = 22 Top = Selected = clLime end ItemHeight = 16 object tmr2: TTimer TabOrder = 10 Interval = OnTimer = tmr2Timer 9#1090 #1074#1077#1085#1085#1072#1103' Left = 360 '#1088#1077#1082#1086#1085# Top = 69 #1090#1088#1091#1082#1094#1080#1103' end '#1075#1088#1077#1073#1082# object actlst1: TActionList Color = clBtnFace Images = il1 Font.Charset = DEFAULT_CHARSET Left = 176 Font.Color = clWindowText Top = 61 Font.Height = - object act1: TAction Font.Name = 'MS Sans Serif' Caption = Font.Style = [] #1047#1072#1075#1088#1091#1079#1080#1090#110 Menu = mm 0' '#1076#1072#1085#1085#1099#1077 OldCreateOrder = False Hint = OnCreate = FormCreate #1047#1072#1075#1088#1091#1079#1080#1090#110 OnDestroy = FormDestroy 0' '#1076#1072#1085#1085#1099#1077 OnMouseWheelDown = FormMouseWheelDown ImageIndex = 1 OnMouseWheelUp = FormMouseWheelUp OnExecute = act1Execute PixelsPerInch = end TextHeight = object act2: TAction object spl1: TSplitter Caption = Left = #1056#1072#1089#1089#1095#1080#1090#1072 Top = #1090#1100' '#1076#1072#1085#1085#1099#1077 Width = Hint = Height = #1056#1072#1089#1089#1095#1080#1090#1072#109 Cursor = crVSplit 0#1100' '#1076#1072#1085#1085#1099#1077'.' Align = alBottom ImageIndex = 0 end OnExecute = act2Execute object tlb1: TToolBar end Left = object act3: TAction Top = Caption = #1054' Width = '#1087#1088#1086#1075#1088#1072#1084 Height = #1084#1077 Caption = 'tlb1' Hint = #1054' Images = il '#1087#1088#1086#1075#1088#1072#1084 ParentShowHint = False #1084#1077 ShowHint = True ImageIndex = 2 TabOrder = OnExecute = act3Execute object ToolButton1: TToolButton end Left = object act4: TAction Top = Caption = #1042#1099#1093#1086#1076 Action = act Hint = #1042#1099#1093#1086#1076 end ImageIndex = 4 object btn1: TToolButton OnExecute = act4Execute Left = end Top = object act5: TAction Action = act Caption = #1055#1072#1091#1079#1072 end Hint = #1055#1072#1091#1079#1072 object btn2: TToolButton ImageIndex = 3 Left = OnExecute = act5Execute Top = end Action = act end end object il1: TImageList object btn3: TToolButton Left = 136 Left = Top = 61 Top = end Action = act end end object Form1: TForm1 object btn4: TToolButton Left = 254 Left = Top = 170 Top = Width = 681 Width = Height = 779 Caption = 'btn4' Caption = ImageIndex = #1055#1088#1086#1089#1090#1088#1072#1085#108 Style = tbsSeparator end end object btn5: TToolButton end Left = 100 object ts2: TTabSheet Top = 0 Caption = Action = act4 #1050#1086#1085#1077#1095#1085#1099#1077' end '#1090#1086#1095#1082#1080','#1089#1077#1088# end 77#1076#1080#1085#1072', object pnl1: TPanel '#1084#1072#1088#1082#1077# Left = 0 ImageIndex = Top = 29 object pnl3: TPanel Width = 673 Left = Height = 508 Top = Align = alClient Width = TabOrder = 1 Height = OnMouseDown = pnl1MouseDown Align = alTop OnMouseMove = pnl1MouseMove TabOrder = OnMouseUp = pnl1MouseUp Visible = False OnResize = pnl1Resize end end object sg2: TStringGrid object pgc1: TPageControl Left = Left = 0 Top = Top = 540 Width = Width = 673 Height = Height = 193 Align = alClient ActivePage = ts4 ColCount = Align = alBottom DefaultColWidth = TabOrder = 2 DefaultRowHeight = object ts1: TTabSheet RowCount = Caption = #1061#1074#1072#1090#1099', Options = [goFixedVertLine, goFixedHorzLine, '#1084#1072#1088#1082 #1077#1088 goVertLine, goHorzLine, goRangeSelect, goEditing] object pnl2: TPanel TabOrder = Left = 0 end Top = 0 end Width = 665 object ts3: TTabSheet Height = 33 Caption = #1059#1075#1083#1099' Align = alTop '#1087#1086#1074#1086#1088#1086#1090# TabOrder = 0 ImageIndex = Visible = False object pnl4: TPanel object mmo1: TMemo Left = Left = 424 Top = Top = 0 Width = Width = 169 Height = Height = 33 Align = alTop Lines.

Strings = ( TabOrder = 'mmo1') Visible = False TabOrder = 0 end Visible = False object sg7: TStringGrid WordWrap = False Left = end Top = end Width = object sg1: TStringGrid Height = Left = 0 Align = alClient Top = 33 ColCount = Width = 665 DefaultColWidth = Height = 132 DefaultRowHeight = Align = alClient RowCount = ColCount = 30 TabOrder = DefaultColWidth = 45 end DefaultRowHeight = 18 end RowCount = 100 object ts8: TTabSheet Options = [goFixedVertLine, goFixedHorzLine, Caption = goVertLine, goHorzLine, goRangeSelect, goEditing] #1058#1088#1072#1077#1082#1090#1086#1088# TabOrder = 1 0#1103' 11 '#1090#1086#1095#1077# ImageIndex = 7 Height = object pnl5: TPanel Align = alTop Left = 0 TabOrder = Top = 0 Visible = False Width = 665 end Height = 33 object sgw: TStringGrid Align = alTop Left = TabOrder = 0 Top = Visible = False Width = end Height = object sg12: TStringGrid Align = alClient Left = 0 ColCount = Top = 33 DefaultColWidth = Width = 665 DefaultRowHeight = Height = 132 RowCount = Align = alClient Options = [goFixedVertLine, goFixedHorzLine, ColCount = 35 goVertLine, goHorzLine, goRangeSelect, goEditing] DefaultColWidth = 45 TabOrder = DefaultRowHeight = 18 end RowCount = 100 end Options = [goFixedVertLine, goFixedHorzLine, object ts4: TTabSheet goVertLine, goHorzLine, goRangeSelect, goEditing] Caption = TabOrder = 1 #1053#1072#1089#1090#1088#1086#1081#1082# end end ImageIndex = object ts9: TTabSheet object lbl1: TLabel Caption = '11 '#1090#1086#1095#1077#1082' Left = '#1074#1077#1089#1083#1072' Top = '#1080#1089#1093#1086#1076#1085#1099#1077 Width = ImageIndex = 8 Height = object pnl6: TPanel Caption = #1055#1072#1091#1079#1072' Left = 0 '#1084#1077#1078 #1076#1091' Top = 0 '#1082#1072#1076#1088#1072#1084#1080'('#1084# Width = 665 089')' Height = 33 end Align = alTop object chk1: TCheckBox TabOrder = 0 Left = Visible = False Top = end Width = object sg11: TStringGrid Height = Left = 0 Caption = Top = 33 #1055#1083#1086#1089#1082#1086#1089#1090# Width = 665 0' '#1074#1086#1076# Height = 132 Checked = True Align = alClient State = cbChecked ColCount = 3 TabOrder = DefaultColWidth = 45 end DefaultRowHeight = 18 object chk2: TCheckBox RowCount = 12 Left = Options = [goFixedVertLine, goFixedHorzLine, Top = goVertLine, goHorzLine, goRangeSelect, goEditing] Width = TabOrder = 1 Height = end Caption = end #1040#1085#1080#1084#1072#1094#1080# object ts10: TTabSheet Checked = True Caption = State = cbChecked #1055#1083#1086#1089#1082#1086#1089#1090#110 TabOrder = 0' '#1074#1086#1076#1099 end ImageIndex = 9 object se1: TSpinEdit object pnl7: TPanel Left = Left = 0 Top = Top = 0 Width = Width = 665 Height = MaxValue = 0 Caption = #1054#1090#1088#1077#1079#1086#1082' MinValue = 0 '#1087#1088 #1072 #1074#1099#1081' TabOrder = 2 '#1093#1074#1072#1090' Value = 10 '#1082#1086#1085#1077# OnChange = se1Change Checked = True end State = cbChecked object chk3: TCheckBox TabOrder = Left = 24 end Top = 33 object ColorBox1: TColorBox Width = 169 Left = Height = 17 Top = Caption = #1054#1089#1080' Width = '#1082#1086#1086#1088#1076#1080 Height = #1085#1072#1090 Selected = clBlue Checked = True ItemHeight = State = cbChecked TabOrder = TabOrder = 3 end end object ColorBox3: TColorBox object chk4: TCheckBox Left = Left = 24 Top = Top = 57 Width = Width = 233 Height = Height = 17 Selected = clGradientActiveCaption Caption = #1054#1090#1088#1077#1079#1086#1082' ItemHeight = '#1084#1072 #1088#1082#1077#1088'- TabOrder = '#1089#1077#1088#1077#1076#1080#1085#1072 end Checked = True object ColorBox4: TColorBox State = cbChecked Left = TabOrder = 4 Top = end Width = object chk5: TCheckBox Height = Left = 24 Selected = clLime Top = 82 ItemHeight = Width = 225 TabOrder = Height = 17 end Caption = object ColorBox5: TColorBox #1054#1090#1088#1077#1079#1086#1082' Left = '#1084#1077#1078#1076#1091' Top = '#1093#1074#1072#1090#1072#1084#1080 Width = Checked = True Height = State = cbChecked Selected = clRed TabOrder = 5 ItemHeight = end TabOrder = object chk6: TCheckBox end Left = 24 object ColorBox6: TColorBox Top = 106 Left = Width = 321 Top = Height = 17 Width = Caption = Height = #1054#1090#1088#1077#1079#1086#1082' Selected = clSilver '#1083#1077 #1074#1099#1081' ItemHeight = '#1093#1074#1072#1090'- TabOrder = '#1082#1086#1085#1077#1094 end Checked = True end State = cbChecked end TabOrder = 6 object mm1: TMainMenu end Images = il object chk7: TCheckBox Left = Left = 24 Top = Top = 131 object N1: TMenuItem Width = 313 Caption = #1060#1072#1081# Height = 17 Hint = #1060#1072#1081# object act11: TMenuItem Action = act1 Caption = #1054' end '#1087#1088#1086#1075#1088#1072#1084#1084# object act21: TMenuItem Action = act2 Hint = #1054' end '#1087#1088#1086#1075#1088#1072#1084#1084# object N4: TMenuItem Action = act5 ImageIndex = end OnExecute = act3Execute object N3: TMenuItem end Caption = '-' object act4: TAction end Caption = #1042#1099#1093#1086# object act41: TMenuItem Hint = #1042#1099#1093#1086# Action = act4 ImageIndex = end OnExecute = act4Execute end end object N2: TMenuItem object act5: TAction Caption = #1055#1086#1084#1086#1097#1100 Caption = #1055#1072#1091#1079# object act31: TMenuItem Hint = #1055#1072#1091#1079# Action = act3 ImageIndex = end OnExecute = act5Execute end end end end object dlgOpen1: TOpenDialog object il1: TImageList Left = 88 Left = Top = 61 Top = end end object tmr1: TTimer end Interval = OnTimer = tmr1Timer unit Unit1;

Left = 328 interface Top = 69 uses end Windows, Messages, SysUtils, Variants, Classes, object tmr2: TTimer Graphics, Controls, Forms, Interval = 10 Dialogs, Grids, ExtCtrls, ComCtrls, ToolWin, Menus, OnTimer = tmr2Timer StdCtrls, Buttons, Mask,Math,OpenGL, ActnList, Spin, Left = 360 ImgList;

Top = 69 type end TPoint3d = record object actlst1: TActionList x, y, z : Real;

Images = il1 end;

Left = 176 TForm1 = class(TForm) Top = 61 mm1: TMainMenu;

object act1: TAction N1: TMenuItem;

Caption = N2: TMenuItem;

#1047#1072#1075#1088#1091#1079#1080#1090#110 N3: TMenuItem;

0' '#1076#1072#1085#1085#1099#1077 tlb1: TToolBar;

Hint = ToolButton1: TToolButton;

#1047#1072#1075#1088#1091#1079#1080#1090#110 btn1: TToolButton;

0' '#1076#1072#1085#1085#1099#1077 pnl1: TPanel;

ImageIndex = 1 spl1: TSplitter;

OnExecute = act1Execute dlgOpen1: TOpenDialog;

end pgc1: TPageControl;

object act2: TAction ts1: TTabSheet;

Caption = pnl2: TPanel;

#1056#1072#1089#1089#1095#1080#1090#1072#109 mmo1: TMemo;

0#1100' '#1076#1072#1085#1085#1099#1077 sg1: TStringGrid;

Hint = ts2: TTabSheet;

#1056#1072#1089#1089#1095#1080#1090#1072#109 pnl3: TPanel;

0#1100' '#1076#1072#1085#1085#1099#1077'.' sg2: TStringGrid;

ImageIndex = 0 ts3: TTabSheet;

OnExecute = act2Execute pnl4: TPanel;

end sg7: TStringGrid;

object act3: TAction ts8: TTabSheet;

pnl5: TPanel;

procedure act3Execute(Sender: TObject);

sg12: TStringGrid;

procedure se1Change(Sender: TObject);

ts9: TTabSheet;

procedure act4Execute(Sender: TObject);

pnl6: TPanel;

procedure act5Execute(Sender: TObject);

sg11: TStringGrid;

private ts10: TTabSheet;

{ Private declarations } pnl7: TPanel;

public tmr1: TTimer;

{ Public declarations } tmr2: TTimer;

DC: HDC;

sgw: TStringGrid;

hrc: HGLRC;

actlst1: TActionList;

xx, yy: real;

// , act1: TAction;

act2: TAction;

ax,ay:real;

mouse1:Integer;

scale:real;

act11: TMenuItem;

function FTS(Value: Extended): string;

act21: TMenuItem;

function STF(const S: string): Extended;

act3: TAction;

function GetLeftHvat(n:Integer):TPoint3d;

act4: TAction;

function GetPravHvat(n:Integer):TPoint3d;

act31: TMenuItem;

function GetSeredina(n:Integer):TPoint3d;

act41: TMenuItem;

function GetLeftEnd(n:Integer):TPoint3d;

ts4: TTabSheet;

function GetPravEnd(n:Integer):TPoint3d;

chk1: TCheckBox;

function Get11base(n:Integer):TPoint3d;

chk2: TCheckBox;

function GetMarker(n:Integer):TPoint3d;

se1: TSpinEdit;

function GetM31:TPoint3d;

chk3: TCheckBox;

function Get11(n,i:Integer):TPoint3d;

chk4: TCheckBox;

function GetWater(i:Integer):TPoint3d;

chk5: TCheckBox;

end;

chk6: TCheckBox;

var chk7: TCheckBox;

Form1: TForm1;

ColorBox1: TColorBox;

const main_L=800;

// ColorBox3: TColorBox;

ColorBox4: TColorBox;

main_D=580;

// ColorBox5: TColorBox;

ColorBox6: TColorBox;

main_260=260;

// lbl1: TLabel;

main_11=11;

//- il1: TImageList;

main_31=31;

// act5: TAction;

btn2: TToolButton;

main_1090=1090;

// () N4: TMenuItem;

implementation btn3: TToolButton;

uses Unit2;

btn4: TToolButton;

{$R *.dfm} btn5: TToolButton;

procedure PixelFormat(hdc: HDC);

procedure FormCreate(Sender: TObject);

var procedure FormDestroy(Sender: TObject);

pfd: TPixelFormatDescriptor;

procedure tmr1Timer(Sender: TObject);

nPixelFormat: integer;

procedure pnl1Resize(Sender: TObject);

begin procedure pnl1MouseMove(Sender: TObject;

Shift: with pfd do TShiftState;

X, begin Y: Integer);

nsize := sizeof(TPixelFormatDescriptor);

procedure pnl1MouseDown(Sender: TObject;

nVersion := 1;

Button: TMouseButton;

dwFlags := PFD_DRAW_TO_WINDOW or Shift: TShiftState;

X, Y: Integer);

PFD_SUPPORT_OPENGL or procedure pnl1MouseUp(Sender: TObject;

Button: PFD_DOUBLEBUFFER;

TMouseButton;

iPixelType := PFD_TYPE_RGBA;

Shift: TShiftState;

X, Y: Integer);

cColorBits := 16;

credbits := 0;

credshift := 0;

procedure FormMouseWheelDown(Sender: cgreenbits := 0;

TObject;

Shift: TShiftState;

MousePos: TPoint;

var cgreenshift := 0;

cbluebits := 0;

cblueshift := 0;

Handled: Boolean);

calphabits := 0;

procedure FormMouseWheelUp(Sender: TObject;

calphashift := 0;

caccumbits := 0;

caccumredbits := 0;

Shift: TShiftState;

MousePos: TPoint;

var Handled: caccumgreenbits := 0;

Boolean);

caccumbluebits := 0;

caccumalphabits := 0;

procedure tmr2Timer(Sender: TObject);

cdepthbits := 32;

procedure act1Execute(Sender: TObject);

cstencilbits := 0;

cauxbuffers := 0;

ilayertype := procedure act2Execute(Sender: TObject);

PFD_MAIN_PLANE;

breserved := 0;

dwlayermask := 0;

dwvisiblemask := 0;

result.z:=STF(sg1.Cells[6,n]);

dwdamagemask := 0;

end;

end;

function TForm1.GetSeredina(n: Integer): TPoint3d;

npixelformat := choosepixelformat(hdc, @pfd);

begin setpixelformat(hdc, npixelformat, @pfd);

result.x:=(getlefthvat(n).x+getpravhvat(n).x)/2;

end;

result.y:=(getlefthvat(n).y+getpravhvat(n).y)/2;

result.z:=(getlefthvat(n).z+getpravhvat(n).z)/2;

{ TForm1 } end;

function GetWord(Str:string;

Smb: char;

WordNmbr: function TForm1.GetMarker(n: Integer): TPoint3d;

Byte): string;

begin var SWord: string;

Result.x := stf(sg2.Cells[10,n]);

Result.y := StrLen, N: Byte;

stf(sg2.Cells[11,n]);

begin Result.z := stf(sg2.Cells[12,n]);

StrLen := SizeOf(Str);

end;

N := 1;

procedure TForm1.FormCreate(Sender: TObject);

while ((WordNmbr = N) and (StrLen 0)) do var i:Integer;

begin begin StrLen := Pos(Smb, str);

scale:=0.0005;

mouse1:=0;

if StrLen 0 then sg11.Cells[1,0]:='x';

sg11.Cells[2,0]:='y';

begin for i:=1 to main_11 do sg11.Cells[0,i]:=IntToStr(i);

SWord := Copy(Str, 1, StrLen - 1);

sg11.Cells[1,1]:='0';

sg11.Cells[1,2]:='-18,4783';

Delete(Str, 1, StrLen);

sg11.Cells[1,3]:='-78,5326';

sg11.Cells[1,4]:=' Inc(N);

96,087';

end else SWord := Str;

sg11.Cells[1,5]:='-92,3913';

sg11.Cells[1,6]:=' end;

41,5761';

if WordNmbr = N then Result := SWord else Result sg11.Cells[1,7]:='0';

sg11.Cells[1,8]:='73,91304';

:= '';

sg11.Cells[1,9]:='70,21739';

sg11.Cells[1,10]:='57,28261';

end;

sg11.Cells[1,11]:='18,47826';

sg11.Cells[2,1]:='0';

sg11.Cells[2,2]:='0';

sg11.Cells[2,3]:='122,8419';

function TForm1.FTS(Value: Extended): string;

sg11.Cells[2,4]:='273,3925';

begin fts:= FloatToStr(Value) end;

sg11.Cells[2,5]:='407,3179';

sg11.Cells[2,6]:='520';

sg11.Cells[2,7]:='511,6874';

function TForm1.STF(const S: string): Extended;

sg11.Cells[2,8]:='422,0959';

var h:Char;

sg11.Cells[2,9]:='273,3925';

begin sg11.Cells[2,10]:='122,8419';

sg11.Cells[2,11]:='0';

h:=DecimalSeparator;

sgw.Cells[1,1]:='2000';

sgw.Cells[1,2]:='2000';

DecimalSeparator:=',';

sgw.Cells[1,3]:='-2000';

sgw.Cells[1,4]:='-2000';

if s='' then STF := 0 else STF :=strtofloat(s);

sgw.Cells[2,1]:='330';

sgw.Cells[2,2]:='330';

DecimalSeparator :=h;

sgw.Cells[2,3]:='330';

sgw.Cells[2,4]:='330';

end;

sgw.Cells[3,1]:='-2000';

sgw.Cells[3,2]:='2000';

function TForm1.GetLeftEnd(n: Integer): TPoint3d;


sgw.Cells[3,3]:='-2000';

sgw.Cells[3,4]:='2000';

begin result.x:=STF(sg2.Cells[1,n]);

// OpenGl result.y:=STF(sg2.Cells[2,n]);

dc := getdc(pnl1.Handle);

pixelformat(dc);

result.z:=STF(sg2.Cells[3,n]);

hrc := wglcreatecontext(dc);

wglmakecurrent(dc, end;

hrc);

function TForm1.GetPravEnd(n: Integer): TPoint3d;

glenable(GL_DEPTH_TEST);

begin glenable(GL_AUTO_NORMAL);

result.x:=STF(sg2.Cells[4,n]);

glEnable(GL_COLOR_MATERIAL);

result.y:=STF(sg2.Cells[5,n]);

glViewPort(0, 0, pnl1.Width, pnl1.Height);

result.z:=STF(sg2.Cells[6,n]);

glEnable(GL_LIGHT1);

end;

end;

function TForm1.GetLeftHvat(n: Integer): TPoint3d;

begin function TForm1.Get11base(n: Integer): TPoint3d;

result.x:=STF(sg1.Cells[1,n]);

begin result.y:=STF(sg1.Cells[2,n]);

Result.x := stf(sg11.cells[1,n]);

Result.y := result.z:=STF(sg1.Cells[3,n]);

stf(sg11.cells[2,n]);

end;

Result.z := 0;

function TForm1.GetPravHvat(n: Integer): TPoint3d;

end;

begin result.x:=STF(sg1.Cells[4,n]);

function TForm1.GetM31: TPoint3d;

result.y:=STF(sg1.Cells[5,n]);

begin Result.x := main_260*cos(main_31/ 180 * pi);

setColor(ColorBox5.Selected);

if chk6.Checked then Result.y := 0;

Line1(GetPravEnd(i),GetLeftHvat(i));

Result.z := main_260*sin(main_31/180*pi);

setColor(ColorBox4.Selected);

if chk5.Checked then end;

Line1(GetPravHvat(i),GetLeftHvat(i));

setColor(ColorBox3.Selected);

if chk4.Checked then procedure TForm1.FormDestroy(Sender: TObject);

Line1(GetSeredina(i),GetMarker(i));

begin end;

// OpenGl glLineWidth(3);

wglMakeCurrent(0, 0);

wglDeleteContext(hrc);

if chk2.Checked then ReleaseDC(Handle, DC);

DeleteDC(DC);

for i:=1 to 95 do end;

if tmr2.Tag=i then begin procedure SetColor(Color: Tcolor);

glColor3f(1,1,1);

var R, G, B: GLFloat;

Line1(GetSeredina(i),GetMarker(i));

begin Line1(getleftend(i),GetPravHvat(i));

R := (color mod $100) / 255;

G := ((color div $100) Line1(GetPravEnd(i),GetLeftHvat(i));

mod $100) / 255;

Line1(GetPravHvat(i),GetLeftHvat(i));

B := (color div $10000) / 255;

glcolor3f(r, g, b);

for j:=1 to main_11-1 do end;

Line1(Get11(j,i),Get11(j+1,i));

end;

procedure TForm1.tmr1Timer(Sender: TObject);

SwapBuffers(DC);

var i,j:Integer;

end;

procedure Line1(a,b:TPoint3d);

begin procedure TForm1.pnl1Resize(Sender: TObject);

glBegin(GL_LINES);

glVertex3f(a.x,a.y,- begin a.z);

glVertex3f(b.x,b.y,-b.z);

glViewPort(0, 0, pnl1.Width, pnl1.Height);

glend;

end;

end;

begin procedure TForm1.pnl1MouseMove(Sender: TObject;

glLoadIdentity;

Shift: TShiftState;

X, Y: Integer);

glClear(GL_COLOR_BUFFER_BIT or begin GL_DEPTH_BUFFER_BIT);

if Mouse1 =1 then glclearcolor(0.6, 0.6, 0.6, 0);

begin glLoadIdentity;

ax :=ax+ x-xx;

ay :=ay+ y-yy;

glrotate(-ay, 1, 0, 0);

// end;

glrotate(-ax, 0, 1, 0);

glscale(scale, scale, scale);

xx:=x;

yy:=y;

glTranslate(-1000,-1000,0);

end;

// DrawC(0.2, form1.CubeB);

// // function TForm1.Get11(n, i: Integer): TPoint3d;

// begin glLineWidth(1);

result.x:=STF(sg12.Cells[n*3-2,i]);

if chk3.Checked then result.y:=STF(sg12.Cells[n*3-1,i]);

begin result.z:=STF(sg12.Cells[n*3-0,i]);

glBegin(GL_LINES);

end;

glColor3f(1,0,0);

procedure TForm1.pnl1MouseDown(Sender: TObject;

glVertex3f(0,0,0);

glVertex3f(2000,0,0);

Button: TMouseButton;

Shift: TShiftState;

X, Y:

glColor3f(0,1,0);

Integer);

glVertex3f(0,0,0);

glVertex3f(0,2000,0);

begin glColor3f(0,0,1);

glVertex3f(0,0,- Mouse1:=1;

1000);

glVertex3f(0,0,1000);

end;

glEnd;

end;

procedure TForm1.pnl1MouseUp(Sender: TObject;

// Button: TMouseButton;

Shift: TShiftState;

X, Y:

setColor(ColorBox1.Selected);

Integer);

glBegin(GL_QUAD_STRIP);

begin if chk1.Checked then for i:=1 to 4 do Mouse1:=0;

glVertex3f(GetWater(i).x,GetWater(i).y,GetWater(i).z) end;

;

glEnd;

procedure TForm1.FormMouseWheelDown(Sender:

for i:=1 to 95 do TObject;

Shift: TShiftState;

MousePos: TPoint;

var begin Handled: Boolean);

setColor(ColorBox6.Selected);

if chk7.Checked then begin Line1(getleftend(i),GetPravHvat(i));

scale:=scale*0.9;

end;

Inc(n);

sg1.Cells[1+k,0] := 'x';

sg1.Cells[2+k,0] := 'y';

procedure TForm1.FormMouseWheelUp(Sender: sg1.Cells[0,n] := IntToStr(n);


TObject;

Shift: TShiftState;

MousePos: TPoint;

var sg1.Cells[1+k,n] Handled: Boolean);

:=StringReplace(GetWord(mmo1.Lines[i],' begin ',1),'.',',',[rfReplaceAll, rfIgnoreCase]);

scale:=scale*1.1;

sg1.Cells[2+k,n] end;

:=StringReplace(GetWord(mmo1.Lines[i],' ',2),'.',',',[rfReplaceAll, rfIgnoreCase]);

procedure TForm1.tmr2Timer(Sender: TObject);

end;

begin end;

if tmr2.Tag=95 then tmr2.Tag := 0;

tmr2.Tag := tmr2.Tag+1;

procedure TForm1.act2Execute(Sender: TObject);

end;

var i,k,j:Integer;

function TForm1.GetWater(i: Integer): TPoint3d;

ugol,u1,u2,u3, u4, c,s,a,b:real;

begin l,m,n:array[1..3]of real;

result.x:=STF(sgw.Cells[1,i]);

p1,p2,p3,xd, f:TPoint3d;

result.y:=STF(sgw.Cells[2,i]);

u:array[1..3,1..3]of Real;

result.z:=STF(sgw.Cells[3,i]);

begin end;

sg2.Cells[1,0] := 'x';

sg2.Cells[2,0] := 'y';

sg2.Cells[3,0] := 'z';

procedure TForm1.act1Execute(Sender: TObject);

sg2.Cells[4,0] := 'x';

sg2.Cells[5,0] := 'y';

var i,j,k,n:integer;

s:string;

sg2.Cells[6,0] := 'z';

begin sg2.Cells[7,0] := 'x';

sg2.Cells[8,0] := 'y';

dlgOpen1.FileName := sg2.Cells[9,0] := 'z';

'___4_95.txt';

sg2.Cells[10,0] := 'x';

sg2.Cells[11,0] := 'y';

dlgOpen1.InitialDir := sg2.Cells[12,0] := 'z';

ExtractFileDir(Application.ExeName);

for i:=1 to 95 do mmo1.Lines.LoadFromFile(dlgOpen1.FileName);

begin n:=0;

k:=0;

// for i:=0 to 95+95-1 do begin if getLefthvat(i).xgetpravhvat(i).x then k:=1 else if n = 95 then k:=-1;

begin sg2.Cells[1,i]:=FTS(getpravhvat(i).x Inc(k,3);

n:=0;

+k*(abs(getLefthvat(i).x end;

getpravhvat(i).x)/main_d)*main_l);

Inc(n);

if getPravhvat(i).xgetLefthvat(i).x then k:=1 else sg1.Cells[1+k,0] := 'x';

sg1.Cells[2+k,0] := 'y';

k:=-1;

sg1.Cells[3+k,0] := 'z';

sg1.Cells[0,n] := sg2.Cells[4,i]:=FTS(getLefthvat(i).x IntToStr(n);

+k*(abs(getPravhvat(i).x sg1.Cells[1+k,n] getLefthvat(i).x)/main_d)*main_l);

:=StringReplace(GetWord(mmo1.Lines[i],' if getLefthvat(i).y getpravhvat(i).y then k:=1 else ',1),'.',',',[rfReplaceAll, rfIgnoreCase]);

k:=-1;

sg1.Cells[2+k,n] sg2.Cells[2,i]:=FTS(getpravhvat(i).y :=StringReplace(GetWord(mmo1.Lines[i],' +k*({abs}(getLefthvat(i).y ',2),'.',',',[rfReplaceAll, rfIgnoreCase]);

getpravhvat(i).y)/main_d)*main_l);

sg1.Cells[3+k,n] if getLefthvat(i).zgetpravhvat(i).z then k:=1 else :=StringReplace(GetWord(mmo1.Lines[i],' k:=-1;

',3),'.',',',[rfReplaceAll, rfIgnoreCase]);

sg2.Cells[3,i]:=FTS(getpravhvat(i).z end;

+k*({abs}(getLefthvat(i).z dlgOpen1.FileName := getpravhvat(i).z)/main_d)*main_l);

'___2_95.txt';

if getPravhvat(i).y getLefthvat(i).y then k:=1 else mmo1.Lines.LoadFromFile(dlgOpen1.FileName);

k:=-1;

n:=0;

sg2.Cells[5,i]:=FTS(getLefthvat(i).y k:=6;

+k*({abs}(getPravhvat(i).y // for i:=0 to mmo1.Lines.Count-1 do getLefthvat(i).y)/main_d)*main_l);

for i:=95 to 95+95-1 do if getPravhvat(i).zgetLefthvat(i).z then k:=1 else begin k:=-1;

if n = 95 then sg2.Cells[6,i]:=FTS(getLefthvat(i).z begin +k*({abs}(getPravhvat(i).z Inc(k,3);

n:=0;

getLefthvat(i).z)/main_d)*main_l);

end;

// sg2.Cells[7,i]:=FTS(getseredina(i).x);

sg2.Cells[8,i]:=FTS(getseredina(i).y);

xd.z:=(GetSeredina(i).z+((getleftend(i).z sg2.Cells[9,i]:=FTS(getseredina(i).z);

GetSeredina(i).z)/(main_1090))*c);

// sg12.Cells[j*3-2,i]:=fts(xd.x+(f.x/main_260)*s);

sg2.Cells[10,i]:=sg1.Cells[7,i];

sg12.Cells[j*3-1,i]:=fts(xd.y+(f.y/main_260)*s);

sg2.Cells[11,i]:=sg1.Cells[8,i];

sg12.Cells[j*3-0,i]:=fts(xd.z+(f.z/main_260)*s);

sg2.Cells[12,i]:=fts(Sqrt(Sqr(main_260)- end;

sqr(getseredina(i).x-stf(sg2.Cells[10,i]))- end;

sqr(getseredina(i).y- end;

stf(sg2.Cells[11,i])))+getseredina(i).z);

// ( procedure TForm1.act3Execute(Sender:

) TObject);

//********************** begin p1:= getlefthvat(i);

p2:= GetPravHvat(i);

form2 := tform2.Create(self);

p3.x:= p1.x;

p3.y:= p2.y;

p3.z:= p1.z;

form2.ShowModal;

l[1]:=(getmarker(i).x-getseredina(i).x);

end;

l[2]:=(getmarker(i).y-getseredina(i).y);

l[3]:=(getmarker(i).z-getseredina(i).z);

procedure TForm1.se1Change(Sender: TObject);

u[1,1]:=0- p1.x;

u[2,1]:=0 -p1.y;

u[3,1]:=0-p1.z;

begin u[1,2]:=p2.x-p1.x;

u[2,2]:=p2.y-p1.y;

u[3,2]:=p2.z- tmr2.Interval := se1.Value;

p1.z;

end;

u[1,3]:=p3.x-p1.x;

u[2,3]:=p3.y-p1.y;

u[3,3]:=p3.z- procedure TForm1.act4Execute(Sender: TObject);

p1.z;

begin u1:= u[1,1]*u[2,2]*u[3,3] - u[1,1]*u[2,3]*u[3,2];

Close;

u2:= u[1,3]*u[2,1]*u[3,2] - u[1,2]*u[2,1]*u[3,3];

end;

u3:= u[1,2]*u[2,3]*u[3,1] - u[1,3]*u[2,2]*u[3,1];

procedure TForm1.act5Execute(Sender: TObject);

u4:= u1+u2+u3;

begin u1 := u1/ u[1,1];

u2 := u2/ u[2,1];

u3 := u3/ u[3,1];

tmr2.Enabled := not tmr2.Enabled ;

ugol:= ( (u1*l[1]+u2*l[2]+u3*l[3])/ end;

Sqrt((Sqr(u1)+Sqr(u2)+Sqr(u3))* end.

(Sqr(l[1])+Sqr(l[2])+Sqr(l[3])) ) )*180/pi;

sg7.Cells[1,i] := FTS(ugol);

//********************** //- l[1]:=(getmarker(i).x-getseredina(i).x)/main_260;

l[2]:=(getmarker(i).y-getseredina(i).y)/main_260;

l[3]:=(getmarker(i).z-getseredina(i).z)/main_260;

m[2]:= Sin(arccos(l[2]));

n[2]:=0;

n[3]:=(getmarker(i).x-getseredina(i).x)/sqrt( Sqr(getmarker(i).x getseredina(i).x)+sqr(getmarker(i).z-getseredina(i).z));

n[1]:=-Sqrt(1-sqr(n[2])-sqr(n[3]));

m[3]:=-Sqrt(1-sqr(l[3])-sqr(n[3]));

m[1]:=-Sqrt(1 sqr(m[2])-sqr(m[3]));

//31 f.x:=L[1]*getm31.x+m[1]*getm31.y+n[1]*getm31.z;

f.y:=L[2]*getm31.x+m[2]*getm31.y+n[2]*getm31.z;

f.z:=L[3]*getm31.x+m[3]*getm31.y+n[3]*getm31.z;

sg12.Cells[0,i]:= inttostr(i);

for j:=1 to main_11 do begin c:=get11base(j).y + main_D/2+280;

s:=get11base(j).x + 1-1;

sg12.Cells[j*3-2,0]:= 'x'+inttostr(j);

sg12.Cells[j*3-1,0]:= 'y'+inttostr(j);

sg12.Cells[j*3-0,0]:= 'z'+inttostr(j);

xd.x:=(GetSeredina(i).x+((getleftend(i).x GetSeredina(i).x)/(main_1090))*c);

xd.y:=(GetSeredina(i).y+((getleftend(i).y GetSeredina(i).y)/(main_1090))*c);

2.

3DGrebok_1.1.exe 3.

: 9;

25;

4.

: 0;

6;

5.

, .

. . : ldclipetsk@mail.ru.

5 .

. 2005 . .

2010 - 1000 , 2012.

METHOD OF SPATIAL RECONSTRUCTION OF UNDERWATER TRAJECTORY OF PADDLE MOTION AS A BASIS THEORETICAL AND APPLIED RESEARCH IN CANOEING New methodology of canoeing dimensional structure is represented in the paper.

Only one stroke made by international class master of sports Kirill Luchkin is taken as an object of study. The book reveals all the complexity & beauty of this motion as well as difficulty related to its research. There is detailed & stepped addressing algorithmization of the stroke dimensional reconstruction with the use of contemporary computer technologies.

The presented algorithm has unlimited potential for stroke kinematics research in canoeing as well as other types of rowing. The research is done at the Faculty of Physical Education and Sport of Lipetsk State Pedagogical University.

The suggested algorithm & methodology can be used to perform visual & calculation tasks in biomechanics at physical education faculties as well as to make profound stroke research at the departments of rowing sport theory & mythology of physical training universities.

17.09.2012 .

60 84 1/16.

. .

.-. . 11,6. 100 .

398020 . , . ,

Pages:     | 1 | 2 ||
 
 >>  ()





 
<<     |    
2013 www.libed.ru - -

, .
, , , , 1-2 .