paul@manray.asd.sgi.com (Paul Haeberli) (02/08/91)
/*
* weave -
* A weaving simulator for IRIS workstations. This simulates
* a loom and the pattern created with different settings of the headles
* and various treadling patterns. The tieups are also programable.
* Click the left mouse over the left area to change the treadling
* pattern, Click the left mouse over the top area to change the
* threading of the headles. Click the left mouse over the box in
* the upper left corner to alter the tieups.
*
* To compile on IRIS 4D:
*
* cc weave.c -o weave -lgl_s
*
* Paul Haeberli and Amie Slate - 1991
*/
#include "stdio.h"
#include "gl.h"
#include "device.h"
/* feel free to change the number of treadles and headles */
#define NTREADLES 4
#define NHEADLES 4
#define BOXSIZE 8
#define TOTX (1200/BOXSIZE)
#define TOTY (800/BOXSIZE)
#define NX (TOTX-NTREADLES)
#define NY (TOTY-NHEADLES)
int up[NX];
int headles[NX];
int treadles[NY];
int tieup[NHEADLES][NTREADLES];
main()
{
short val;
int x, y, menu;
prefsize(TOTX*BOXSIZE,TOTY*BOXSIZE);
winopen("weave");
qmouse();
RGBmode();
gconfig();
initstate();
makeframe();
menu = defpup("weave %t|init state|print help");
while(1) {
switch(qread(&val)) {
case REDRAW:
makeframe();
break;
case LEFTMOUSE:
if(val) {
x = getmousex()/BOXSIZE;
y = getmousey()/BOXSIZE;
if(x<NTREADLES) {
if(y>=NY) {
y = y-NY;
tieup[y][x] = 1-tieup[y][x];
makeframe();
} else {
treadles[y] = x;
updaterow(y);
/* makeframe(); */
}
} else if(y>=NY) {
x = x-NTREADLES;
headles[x] = y-NY;
updatecol(x);
/* makeframe(); */
}
}
break;
case MENUBUTTON:
if(val) {
switch(dopup(menu)) {
case 1:
initstate();
makeframe();
break;
case 2:
printhelp();
break;
}
}
}
}
}
initstate()
{
int i, j;
for(i=0; i<NX; i++)
headles[i] = i%NHEADLES;
for(i=0; i<NY; i++)
treadles[i] = i%NTREADLES;
for(i=0; i<NHEADLES; i++) {
for(j=0; j<NTREADLES; j++) {
if(i == j || i == ((j+1)%NTREADLES))
tieup[i][j] = 1;
else
tieup[i][j] = 0;
}
}
}
#define DEL 0.20
makeframe()
{
int x, y, t, ty;
reshapeviewport();
ortho2(0.0,(float)TOTX,0.0,(float)TOTY);
panelcolor();
clear();
/* draw the contents of the headles */
pushmatrix();
translate((float)NTREADLES,(float)NY,0.0);
markcolor();
for(x=0; x<NX; x++) {
rectfi(x,headles[x],x+1,headles[x]+1);
}
popmatrix();
/* draw the contents of the treadles */
markcolor();
for(y=0; y<NY; y++) {
rectfi(treadles[y],y,treadles[y]+1,y+1);
}
/* draw the contents of the tieups */
pushmatrix();
translate(0.0,(float)NY,0.0);
markcolor();
for(y=0; y<NHEADLES; y++) {
for(x=0; x<NTREADLES; x++) {
if(tieup[y][x])
rectfi(x,y,x+1,y+1);
}
}
popmatrix();
/* draw the pattern */
pushmatrix();
translate(NTREADLES.0,0.0,0.0);
backcolor();
rectfi(0,0,NX,NY);
darkthreadcolor();
for(x=0; x<NX; x++)
rectf(x+DEL,0.0,x+1-DEL,(float)NY);
lightthreadcolor();
for(y=0; y<NY; y++)
rectf(0.0,y+DEL,(float)NX,y+1-DEL);
for(y=0; y<NY; y++) {
for(x=0; x<NX; x++)
up[x] = 0;
t = treadles[y];
for(ty=0; ty<NHEADLES; ty++) {
if(tieup[ty][t]) {
for(x=0; x<NX; x++) {
if(headles[x] == ty)
up[x] = 1;
}
}
}
darkthreadcolor();
for(x=0; x<NX; x++) {
if(up[x])
rectf(x+DEL,y+DEL,x+1-DEL,y+1-DEL);
}
}
popmatrix();
drawgrid();
}
drawgrid()
{
int x, y;
/* draw grid */
gridcolor();
for(x=0; x<TOTX; x++) {
if(x<NTREADLES) {
move2i(x,0);
draw2i(x,TOTY);
} else {
move2i(x,NY);
draw2i(x,TOTY);
}
}
for(y=0; y<TOTY; y++) {
if(y<NY) {
move2i(0,y);
draw2i(NTREADLES,y);
} else {
move2i(0,y);
draw2i(TOTX,y);
}
}
/* draw dark lines */
blackcolor();
move2i(NTREADLES,0);
draw2i(NTREADLES,TOTY);
move2i(0,NY);
draw2i(TOTX,NY);
}
updaterow(y)
int y;
{
int x, t, ty;
frontbuffer(1);
pushmatrix();
translate(NTREADLES.0,0.0,0.0);
lightthreadcolor();
rectf(0.0,y+DEL,(float)NX,y+1-DEL);
for(x=0; x<NX; x++)
up[x] = 0;
t = treadles[y];
for(ty=0; ty<NHEADLES; ty++) {
if(tieup[ty][t]) {
for(x=0; x<NX; x++) {
if(headles[x] == ty)
up[x] = 1;
}
}
}
darkthreadcolor();
for(x=0; x<NX; x++) {
if(up[x])
rectf(x+DEL,y+DEL,x+1-DEL,y+1-DEL);
}
popmatrix();
panelcolor();
rectfi(0,y,NTREADLES,y+1);
markcolor();
rectfi(treadles[y],y,treadles[y]+1,y+1);
drawgrid();
frontbuffer(0);
}
updatecol(x)
int x;
{
int y, t, ty;
frontbuffer(1);
pushmatrix();
translate(NTREADLES.0,0.0,0.0);
darkthreadcolor();
rectf(x+DEL,0.0,x+1-DEL,(float)NY);
for(y=0; y<NY; y++) {
t = treadles[y];
up[0] = 0;
for(ty=0; ty<NHEADLES; ty++) {
if(tieup[ty][t]) {
if(headles[x] == ty)
up[0] = 1;
}
}
lightthreadcolor();
if(!up[0])
rectf(x+DEL,y+DEL,x+1-DEL,y+1-DEL);
}
panelcolor();
rectfi(x,NY,x+1,NY+NHEADLES);
markcolor();
rectfi(x,NY+headles[x],x+1,NY+headles[x]+1);
popmatrix();
drawgrid();
frontbuffer(0);
}
panelcolor()
{
rgb(0.8,0.8,0.8);
}
backcolor()
{
rgb(0.25,0.25,0.25);
}
lightthreadcolor()
{
rgb(0.5,0.5,0.5);
}
darkthreadcolor()
{
rgb(0.0,0.0,0.0);
}
blackcolor()
{
rgb(0.0,0.0,0.0);
}
markcolor()
{
rgb(0.25,0.25,0.25);
}
gridcolor()
{
rgb(0.4,0.4,0.4);
}
printhelp()
{
printf("\n\nPaul Haeberli and Amie Slate's weaving simulator:\n\n");
printf("The state of the headles is shown across the top. This can be\n");
printf("changed by clicking with left mouse button to select which\n");
printf("headle the threads go through.\n\n");
printf("The treadling pattern can be changed by clicking the left\n");
printf("mouse over the area on the left hand part of the window\n\n");
printf("The state of the tieup can be changed by clicking the left\n");
printf("mouse on the area in the upper left corner\n\n");
}
rgb(r,g,b)
float r,g,b;
{
float c[3];
c[0] = r;
c[1] = g;
c[2] = b;
c3f(c);
}
qmouse()
{
qdevice(LEFTMOUSE);
qdevice(MIDDLEMOUSE);
qdevice(RIGHTMOUSE);
}
getmousex()
{
int xorg, yorg;
getorigin(&xorg,&yorg);
return getvaluator(MOUSEX)-xorg;
}
getmousey()
{
int xorg, yorg;
getorigin(&xorg,&yorg);
return getvaluator(MOUSEY)-yorg;
}rbe@yrloc.ipsa.reuter.COM (Robert Bernecky) (02/10/91)
Wow. That's quite an impressive bunch of code you got there. In APL (See "APL: A Prototyping Language" by yrs trly in ACM SIGAPL Quote Quad Vol 16 No 4), we'd do it this way for a simple weave. wv gets ' *'[tieup[tread;] or.=thread] Where "or" is a logical or symbol which doesn't print here. Ditto for "gets", which is a left arrow, denoting assignment. If you want to make a quilt of several rectangles of cloth formed from the above function, do (In SHARP APL -- IBM apl2 is a bit different): 4 5 reshape < wv Where reshape is rho -- the reshape function, to give a 4 by 5 matrix of pieces. Of course, you can combine several rectangles to get a real quilt... tread and thread are integer vectors, 0-origin. tieup is a matrix also 0-origin. I'll try this in J, and supply similar expressions in J, for your edification. (J is a modern dialect of APL, which has discarded a lot of the old baggage of APL, such as the funny character set -- J uses vanilla ASCII). Bob Bernecky Snake Island Research Inc.