![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to lfxform.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [OS/2 SDKs] / pmsdk / samples / linefrac|
Return to lfxform.c CVS log | Up to [OS/2 SDKs] / pmsdk / samples / linefrac |
1.1 root 1: /************************************************************************
2: *
3: * lfxform.c -- Built-in similarity transforms.
4: *
5: * Created by Microsoft Corporation, 1989
6: *
7: ************************************************************************/
8:
9: #define INCL_GPI
10: #include <os2.h>
11: #include "linefrac.h"
12:
13:
14:
15:
16: #define SQRT_2 1.4142136
17: #define SQRT_3 1.7320508
18:
19:
20:
21:
22: /************************************************************************
23: *
24: * SharkTooth
25: *
26: * Set up the similarity transform for the following linefractal,
27: * which looks roughly like:
28: *
29: *
30: * *
31: * ===> * *
32: * * *
33: * *************** * *
34: *
35: ************************************************************************/
36:
37: LINEFRAC SharkTooth[] =
38: {
39: &SharkTooth[1], PI / 6.0, (1.0/SQRT_3), FALSE,
40: EOLIST, -PI / 3.0, (1.0/SQRT_3), FALSE
41: };
42:
43:
44:
45:
46: /************************************************************************
47: *
48: * SawTooth
49: *
50: * Set up the similarity transform for the following linefractal,
51: * which looks roughly like:
52: *
53: *
54: *
55: * ===> *
56: * * *
57: * *************** * * *
58: * * *
59: * *
60: *
61: ************************************************************************/
62:
63: LINEFRAC SawTooth[] =
64: {
65: &SawTooth[1], PI / 4.0, (0.5 / SQRT_2), FALSE,
66: &SawTooth[2], -PI / 2.0, (1.0 / SQRT_2), FALSE,
67: EOLIST, PI / 2.0, (0.5 / SQRT_2), FALSE
68: };
69:
70:
71:
72:
73: /************************************************************************
74: *
75: * KochIsland
76: *
77: * Set up the similarity transform for the following linefractal,
78: * which looks roughly like:
79: *
80: * This is known as the Koch, or snowflake, transform.
81: *
82: *
83: * *
84: * ===> * *
85: * * *
86: * *************** ***** *****
87: *
88: ************************************************************************/
89:
90: LINEFRAC Koch[] =
91: {
92: &Koch[1], 0.0, 1.0 / 3.0, FALSE,
93: &Koch[2], PI / 3.0, 1.0 / 3.0, FALSE,
94: &Koch[3], -2 * PI / 3.0, 1.0 / 3.0, FALSE,
95: EOLIST, PI / 3.0, 1.0 / 3.0, FALSE
96: };
97:
98:
99:
100:
101: /************************************************************************
102: *
103: * SpaceFiller
104: *
105: * Set up the similarity transform for the following linefractal,
106: * which looks roughly like:
107: *
108: *
109: * ***B******C***
110: * * *
111: * A D
112: * ************** ===> * *
113: *
114: *
115: * where sides A and D are reflections.
116: *
117: *
118: *
119: ************************************************************************/
120:
121: LINEFRAC SpaceFiller[] =
122: {
123: &SpaceFiller[1], PI / 2.0, 0.5, TRUE,
124: &SpaceFiller[2], -PI / 2.0, 0.5, FALSE,
125: &SpaceFiller[3], 0.0, 0.5, FALSE,
126: EOLIST, -PI / 2.0, 0.5, TRUE
127: };
128:
129:
130:
131:
132: /************************************************************************
133: *
134: * StovePipe
135: *
136: * Set up the similarity transform for the following linefractal,
137: * which looks roughly like:
138: *
139: * This is sometimes known as the stovepipe transform.
140: *
141: *
142: * ******
143: * * *
144: * ===> * *
145: * * *
146: * ************** ***** *****
147: *
148: ************************************************************************/
149:
150: LINEFRAC StovePipe[] =
151: {
152: &StovePipe[1], 0.0, 1.0 / 3.0, FALSE,
153: &StovePipe[2], PI / 2.0, 1.0 / 3.0, FALSE,
154: &StovePipe[3], -PI / 2.0, 1.0 / 3.0, FALSE,
155: &StovePipe[4], -PI / 2.0, 1.0 / 3.0, FALSE,
156: EOLIST, PI / 2.0, 1.0 / 3.0, FALSE
157: };
158:
159:
160:
161:
162: /************************************************************************
163: *
164: * SquareWave
165: *
166: * Set up the similarity transform for the following linefractal,
167: * which looks roughly like:
168: *
169: *
170: * ******
171: * * *
172: * ************** ===> * * *
173: * * *
174: * ******
175: *
176: ************************************************************************/
177:
178: LINEFRAC SquareWave[] =
179: {
180: &SquareWave[1], PI / 2.0, 0.25, FALSE,
181: &SquareWave[2], -PI / 2.0, 0.5, FALSE,
182: &SquareWave[3], -PI / 2.0, 0.5, FALSE,
183: &SquareWave[4], PI / 2.0, 0.5, FALSE,
184: EOLIST, PI / 2.0, 0.25, FALSE
185: };
186:
187:
188:
189:
190: /************************************************************************
191: *
192: * HourGlass
193: *
194: * Set up the similarity transform for the following linefractal,
195: * which looks roughly like:
196: *
197: *
198: * * * * * *
199: * * *
200: * *
201: * ===> * *
202: * * *
203: * ************** * *
204: *
205: ************************************************************************/
206:
207: #define HOURGLASSANGLE 0.463648
208: #define HOURGLASSLEN 0.83852549
209:
210: LINEFRAC HourGlass[] =
211: {
212: &HourGlass[1], HOURGLASSANGLE, HOURGLASSLEN, FALSE,
213: &HourGlass[2], PI-HOURGLASSANGLE, 0.5, FALSE,
214: EOLIST, -PI-HOURGLASSANGLE, HOURGLASSLEN, FALSE
215: };
216:
217:
218:
219:
220: /************************************************************************
221: *
222: * aXform
223: *
224: * This lists all the built-in transforms available, with their default
225: * coordinate offsets and scale factors.
226: *
227: ************************************************************************/
228:
229: XFORMDATA aXform[] =
230: {
231: SharkTooth, 0.200, 0.200, 0.60, 0.60, 3,
232: SawTooth, 0.125, 0.125, 0.75, 0.75, 3,
233: Koch, 0.125, 0.125, 0.75, 0.75, 3,
234: SpaceFiller, 0.000, -0.500, 1.00, 1.00, 1,
235: StovePipe, 0.125, 0.125, 0.75, 0.75, 4,
236: SquareWave, 0.200, 0.200, 0.60, 0.60, 5,
237: HourGlass, 0.250, 0.250, 0.50, 0.50, 2
238: };
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.