TK :: AbstractCanvas. lona com centro abstrato, zoom e rotação métodos
Baixe Agora

TK :: AbstractCanvas. Classificação e resumo

TK :: AbstractCanvas. Tag

Módulo Perl. perl tk tela TK lona. lona abstrata

TK :: AbstractCanvas. Descrição

Lona com centro abstrato, zoom e rotação métodos TK :: Abstrenstscanvas é uma aula de lona de TK com centro abstrato, zoom e modos de giro.synopsis #! / Usr / bin / perl -w Use rigoroso; use tk; use tk :: abstractcanvas; meu $ mwin = tk :: mainwindow-> novo (); Meu $ ACNV = $ mwin-> abstractcanvas () -> Pack ('-Expand' => 1, '-fill' => 'ambos'); # $ ACNV-> Inverty (1); # Desconto para eixo y-eixo invertido $ ACNV-> Controlnav (1); # Super Control Navegação $ Acnv-> Recttopoly (1); # $ ACNV-> Ovaltopoly (1); Meu $ RECT = $ ACNV-> CreaterTangle (7, 8, 24, 23, '-Fill' => 'Red'); Meu $ Oval = $ ACNV-> CreateOval (23, 24, 32, 27, '-Fill' => 'Verde'); Minha $ LONA = $ ACNV-> CREDLINA (0, 1, 31, 32, '-Fill' => 'azul', '-Arrow' => 'último'); meu $ labl = $ mwin-> etiqueta ('- texto' => 'olá abstractcanvas! =)'); Meu $ Wind = $ Acnv-> Createwindow (15, 16, '-Window' => $ labl); $ ACNV-> Canvasbind ('' => sub {$ acnv-> zoom (1.04);}); $ ACNV-> Canvasbind ('' => Sub {$ acnv-> girar ($ rect, 5); $ acnv-> girar ($ vento, 5); # não deve fazer nada porque não pode ACNV-> girar ($ oval, -5); # gire sobre o centro $ ACNV-> girar ($ line, -5);}); $ ACNV-> Canvasbind ('' => sub {$ acnv-> zoom (0,97);}); $ ACNV-> Viewall (); Mainloop (); Abstrenstcanvas fornece uma alternativa a um objeto TK :: Canvas, que abstrai as coordenadas de objetos desenhados para a tela. Isso permite que toda a tela seja ampliada ou girada. As rotações modificam as coordenadas que o objeto original foi colocado em mas zoom toda a tela não. :: Rotcanvas por Ala Qumsieh. Requisitos: · Perl.

TK :: AbstractCanvas. Software Relacionado