请用易语言写一个爱心

下面是一个用易语言编写的爱心图案的示例代码：

// 爱心图案
// 编写：智能助手
// 时间：2022年6月1日

// 导入图形库
FindPicDLL 导入库("FindPicDLL.dll")
FindPicDLL 导入库函数("FindPic", "int", "string", "int", "int", "int", "int")

// 设置窗口大小
窗口 宽度(600), 高度(400)

// 设置画笔颜色和宽度
画笔 颜色(RGB(255, 0, 0))
画笔 宽度(3)

// 绘制爱心图案
函数 绘制爱心(x, y) {
    // 计算爱心的大小和位置
    宽度 = 200
    高度 = 200
    左 = x - 宽度 / 2
    上 = y - 高度 / 2

    // 绘制爱心的左半边
    圆弧(左, 上, 左 + 宽度 / 2, 上 + 高度, 0, 180)
    圆弧(左 + 宽度 / 2, 上, 左 + 宽度, 上 + 高度, 0, 180)

    // 绘制爱心的右半边
    圆弧(左 - 宽度 / 2, 上, 左, 上 + 高度, 0, 180)
    圆弧(左 + 宽度, 上, 左 + 宽度 + 宽度 / 2, 上 + 高度, 0, 180)

    // 绘制爱心的中间部分
    线段(左 - 宽度 / 2, 上 + 高度, 左 + 宽度 + 宽度 / 2, 上 + 高度)
    线段(左, 上 + 高度 / 2, 左 + 宽度, 上 + 高度 / 2)
}

// 主程序
函数 主程序() {
    // 清空窗口
    清屏()

    // 获取窗口中心坐标
    中心X = 窗口宽度() / 2
    中心Y = 窗口高度() / 2

    // 绘制爱心图案
    绘制爱心(中心X, 中心Y)

    // 显示窗口
    显示窗口()
}

// 调用主程序
主程序()

你可以将上述代码复制到易语言的编译器中运行，即可在窗口中看到绘制出的爱心图案