File: mesh-test.tk

package info (click to toggle)
xmorph 1%3A20011220
  • links: PTS
  • area: main
  • in suites: woody
  • size: 3,468 kB
  • ctags: 1,534
  • sloc: ansic: 16,401; sh: 2,651; makefile: 556; tcl: 516
file content (24 lines) | stat: -rw-r--r-- 347 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
#!/usr/local/bin/wish4.2

load ./morph.so

# Create a MeshT
MeshT mesh

# Allocate the mesh arrays
mesh alloc 12 10

# Fill the mesh with a regular grid for a 320x240 image
mesh reset 320 240

# Create a canvas to draw on
canvas .c

# Manage the canvas
pack .c

# Read the mesh drawing routine
source mesh.tk

# Draw the mesh
meshDraw mesh red .c