根据中心点、半径长度和角度画点
直接上代码: 需要引用 Math 单元。
procedure CenterRadiusPoint(const PX, PY: Integer; const Angle: Double; const Radius: Integer; var X, Y: Integer); var AngleHude: Double; begin AngleHude := Angle * PI / 180; // 角度变成弧度 X := Round(Radius * Cos(AngleHude)) + PX; Y := Round(Radius * Sin(AngleHude)) + PY; end;
C#版:
/// 根据中心点、半径、角度,求半径另一端的坐标。注意用的是笛卡尔坐标系 /// </summary> /// <param name="center">中心点</param> /// <param name="angle">半径角度</param> /// <param name="radius">半径长度</param> /// <returns>半径另一端的坐标</returns> public static Point CenterRadiusPoint(Point center, double angle, double radius) { Point p = new Point(); double angleHude = angle * Math.PI / 180;/*角度变成弧度*/ p.X = (int)(radius * Math.Cos(angleHude)) + center .X; p.Y = (int)(radius * Math.Sin(angleHude)) + center .Y; return p; }
使用示例:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Timer1Timer(Sender: TObject); private { Private declarations } AX, AY: Integer; R: Integer; public { Public declarations } procedure Clear(); procedure CenterRadiusPoint(const PX, PY: Integer; const Angle: Double; const Radius: Integer; var X, Y: Integer); end; var Form1: TForm1; implementation {$R *.dfm} uses Math; procedure TForm1.CenterRadiusPoint(const PX, PY: Integer; const Angle: Double; const Radius: Integer; var X, Y: Integer); var AngleHude: Double; begin AngleHude := Angle * PI / 180; // 角度变成弧度 X := Round(Radius * Cos(AngleHude)) + PX; Y := Round(Radius * Sin(AngleHude)) + PY; end; procedure TForm1.Clear; begin Canvas.FillRect(Canvas.ClipRect); end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin AX := X; AY := Y; R := 0; Clear(); end; procedure TForm1.Timer1Timer(Sender: TObject); var I: Integer; X, Y: Integer; T: Cardinal; begin Inc(R, 8); T := GetTickCount; for I := 0 to 360 - 1 do begin CenterRadiusPoint(AX, AY, I, R, X, Y); Canvas.Pixels[X, Y] := 0; end; T := GetTickCount - T; Canvas.TextOut(10, 10, IntToStr(T)); end; end.
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 深入理解 Mybatis 分库分表执行原理
· 如何打造一个高并发系统?
· .NET Core GC压缩(compact_phase)底层原理浅谈
· 现代计算机视觉入门之:什么是图片特征编码
· .NET 9 new features-C#13新的锁类型和语义
· Sdcb Chats 技术博客:数据库 ID 选型的曲折之路 - 从 Guid 到自增 ID,再到
· 语音处理 开源项目 EchoSharp
· 《HelloGitHub》第 106 期
· Spring AI + Ollama 实现 deepseek-r1 的API服务和调用
· 使用 Dify + LLM 构建精确任务处理应用