AdamCon 15 - Friday August 8, 2003


Ron and Jeff
medium res | hires

Bob Slopsema
medium res | hires
Morning keynote from Bob
medium res | hires

Ron at the projector
medium res | hires

Jeff gives his 2nd gen Adam user perspective.
medium res | hires

Neil gave a talk on Fractals
medium res | hires

He used a combination of flip chart and projector
medium res | hires

SmartLogo demo program on the left
medium res | hires

Pointing outr how to calculate fractal dimension
medium res | hires

The ancient art of paper folding
medium res | hires

Creates a fractal by folding paper
medium res | hires

His research is in lingusitics, and he explains how fractals apply.
medium res | hires

Jeff Wick's embroidered t-shirt
medium res | hires

Looks pretty special.
medium res | hires

Dinner at Boston Pizza
medium res | hires

From the other end.
medium res | hires

SmartLOGO example of a Koch curve
TO TRI :LENGTH :DEPTH
IF :DEPTH=0 [FD :LENGTH][TRI :LENGTH/3 :DEPTH-1 LT 60 TRI :LENGTH/3 :DEPTH-1 RT 120 TRI :LENGTH/3 :DEPTH-1 LT 60 TRI :LENGTH/3 :DEPTH-1]
END
SmartBASIC example of a fern plotted as an Iterrated Fractal System
1 REM FernIFS - Interrated fractal system that draws a fern.  Adapted for SmartBASIC
10 mp=100000
20 p1=77:p2=89:p3=99
30 x=0:y=0
40 HGR2: POKE 16777,7
100 FOR n=1 TO mp
110 p = RND(1)*100
120 xt=x
125 IF p < p1 THEN x= .85*x+.04*y+.075: y=-.04*xt+.85*y+.18: GOTO 200
130 IF p < p2 THEN x=.2*x-.26*y+.4: y=.23*xt+.22*y+.045: GOTO 200
140 IF p < p3 THEN x=-.15*x+.28*y+.575: y=.26*xt+.24*y-.086: GOTO 200
150 x=.5: y=.16*y
200 IF n > 100 THEN HPLOT x*180, 180-y*180
210 NEXT