Racket在线运行

版本:

所属目录
点击了解高性能代码运行API
运行结果
教程手册
代码仓库
极速运行
终端运行
图形+终端

                        
以下是用户最新保存的代码
学习如何编程记录 发布于:2021-03-14 11:52 [更多]
显示目录

对象



学习嵌入式的绝佳套件,esp8266开源小电视成品,比自己去买开发板+屏幕还要便宜,省去了焊接不当搞坏的风险。 蜂鸣版+触控升级仅36元,更强的硬件、价格全网最低。

点击购买 固件广场

对象

一个对象系统是另一个复杂的语言扩展的例子,值得球拍用户学习和使用。对象有时比函数更好,即使你有lambda,对象特别适合图形用户界面。球拍的GUI和图形系统的API是用对象和类来表示的。

类系统本身是由racket/class库实现的,racket/gui/base库提供了gui和绘图类。按照惯例,类的名字以%结尾:

(require racket/class
         racket/gui/base)
(define f (new frame% [label "My Art"]
                      [width 300]
                      [height 300]
                      [alignment '(center center)]))


> (send f show #t)

新表单创建一个类的实例,其中初始化参数(如label和width)由名称提供。发送表单调用对象的一个方法,例如show,方法名后面有参数;在本例中,参数#t是布尔常量“true”。

使用slideshow生成的图片封装了一个函数,该函数使用图形工具箱的绘制命令将图片呈现到绘图上下文,例如框架中的画布。来自slideshow的make-pict-drawer函数公开了图片的绘制函数。我们可以在canvas-painting回调中使用make-pict-drawer绘制一张图片到画布上:

(define (add-drawing p)
  (let ([drawer (make-pict-drawer p)])
    (new canvas% [parent f]
                 [style '(border)]
                 [paint-callback (lambda (self dc)
                                   (drawer dc 0 0))])))


> (add-drawing (pict+code (circle 10)))
#(struct:object:canvas% ...)

> (add-drawing (colorize (filled-flash 50 30) "yellow"))
#(struct:object:canvas% ...)

[image]

每个canvas扩展以填充框架的相等部分,因为这是框架在默认情况下管理其子元素的方式。

由JSRUN为你提供的Racket在线运行、在线编译工具
        JSRUN提供的Racket 在线运行,Racket 在线运行工具,基于linux操作系统环境提供线上编译和线上运行,具有运行快速,运行结果与常用开发、生产环境保持一致的特点。
yout