blitzmax/samples/tempest/boardgen.bmx

Strict

' this generates the web coordinates for tempest

Local fh = WriteFile("boarddata.bmx")
Local a#

WriteLine fh,"' Continuous, CenterY, YOFFSET, x1,y1,...x16,y16  - created by boardgen"

For Local b = 1 To 48
Select b
Case 1 'circle (level 1)

	WriteLine fh,"'Level 1 - circle"
	Local s$ = "DefData "+True+",400"+",-80,"
	
	For a#=0 Until 	16 '360 Step 22.5 '30
		s$ = s$ + Int(Cos(a*22.5)*200) +","+ Int(Sin(a*22.5)*200)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$
	
Case 2 ' square (level 2)
	Local stepsx#[] = [2.0,2.0,2.0,2.0,2.0,1.0,0.0,-1.0,-2.0,-2.0,-2.0,-2.0,-2.0,-1.0,0.0,1.0]
	Local stepsy#[] = [2.0,1.0,0.0,-1.0,-2.0,-2.0,-2.0,-2.0,-2.0,-1.0,0.0,1.0,2.0,2.0,2.0,2.0]

	WriteLine fh,"'Level 2 - square"
	Local s$ = "DefData "+True+",400"+",-80,"
	
	For a#=0 Until 16
		s$ = s$ + Int(-stepsx[a]*100) +","+ Int(stepsy[a]*100)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$
	
Case 3 ' plus (level 3)
	Local stepsx#[] = [1.0,2.0,2.0,2.0,1.0,1.0,0.0,-1.0,-1.0,-2.0,-2.0,-2.0,-1.0,-1.0,0.0,1.0]
	Local stepsy#[] = [1.0,1.0,0.0,-1.0,-1.0,-2.0,-2.0,-2.0,-1.0,-1.0,0.0,1.0,1.0,2.0,2.0,2.0]

	WriteLine fh,"'Level 3 - plus"
	Local s$ = "DefData "+True+",400"+",-80,"
	
	For a#=0 Until 16
		s$ = s$ + Int(-stepsx[a]*100) +","+ Int(stepsy[a]*100)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$

Case 4 'binoculars - level 4
	Local stepsx#[] = [ 1.0, 3.0, 5.5, 6.5, 6.5, 5.5, 3.0, 1.0,-1.0,-3.0,-5.5,-6.5,-6.5,-5.5,-3.0,-1.0]
	Local stepsy#[] = [-3.5,-5.0,-4.0,-2.0, 1.0, 3.0, 4.0, 2.5, 2.5, 4.0, 3.0, 1.0,-2.0,-4.0,-5.0,-3.5]

	WriteLine fh,"'Level 4 - binoculars"
	Local s$ = "DefData "+True+",380"+",-75,"
	
	For a#=0 Until 16
		s$ = s$ + Int(-stepsx[a]*40) +","+ Int(-stepsy[a]*30)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$
	
Case 5 ' cross level 5
	Local stepsx#[] = [ 1.0, 2.0, 4.0, 7.0, 7.0, 4.0, 2.0, 1.0,-1.0,-2.0,-4.0,-7.0,-7.0,-4.0,-2.0,-1.0]
	Local stepsy#[] = [-7.0,-4.0,-2.0,-1.0, 1.0, 2.0, 4.0, 7.0, 7.0, 4.0, 2.0, 1.0,-1.0,-2.0,-4.0,-7.0]

	WriteLine fh,"'Level 5 - cross"
	Local s$ = "DefData "+True+",415"+",-90,"
	
	For a#=0 Until 16
		s$ = s$ + Int(-stepsx[a]*30) +","+ Int(-stepsy[a]*30)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$
	
Case 6 ' triangle level 6
	Local stepsx#[] = [ 3.4, 5.0, 4.0, 3.0, 2.0, 1.0, 0.0,-1.0,-2.0,-3.0,-4.0,-5.0,-3.4,-1.6, 0.0, 1.6]
	Local stepsy#[] = [ 6.0, 6.0, 3.0, 0.0,-3.0,-6.0,-9.0,-6.0,-3.0, 0.0, 3.0, 6.0, 6.0, 6.0, 6.0, 6.0]

	WriteLine fh,"'Level 6 - triangle"
	Local s$ = "DefData "+True+",390"+",-40,"
	
	For a#=0 Until 16
		s$ = s$ + Int(-stepsx[a]*35) +","+ Int(stepsy[a]*28)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$

Case 7 'clover (level 7)
	Local stepsx#[] = [1.8, 2.0, 1.0, 2.0, 1.8, 0.5, 0.0,-0.5,-1.8,-2.0,-1.0,-2.0,-1.8,-0.5, 0.0, 0.5]
	Local stepsy#[] = [1.8, 0.5, 0.0,-0.5,-1.8,-2.0,-1.0,-2.0,-1.8,-0.5, 0.0, 0.5, 1.8, 2.0, 1.0, 2.0]

	WriteLine fh,"'Level 7 - clover"
	Local s$ = "DefData "+True+",310"+",-10,"
	
	For a#=0 Until 16
		s$ = s$ + Int(-stepsx[a]*100) +","+ Int(stepsy[a]*100)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$

Case 8 'V (level 8)
	Local stepsx#[] = [ 8.0, 7.0, 6.0, 5.0, 4.0, 3.0, 2.0, 1.0,-1.0,-2.0,-3.0,-4.0,-5.0,-6.0,-7.0,-8.0]
	Local stepsy#[] = [ 4.0, 3.0, 2.0, 1.0, 0.0,-1.0,-2.0,-3.0,-3.0,-2.0,-1.0, 0.0, 1.0, 2.0, 3.0, 4.0]

	WriteLine fh,"'Level 8 - Vee"
	Local s$ = "DefData "+False+",240"+",90,"
	
	For a#=0 Until 16
		s$ = s$ + Int(stepsx[a]*30) +","+ Int(-stepsy[a]*55)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$
Case 9 'steps (level 9)
	Local stepsx#[] = [ 7.0, 7.0, 5.0, 5.0, 3.0, 3.0, 1.0, 1.0,-1.0,-1.0,-3.0,-3.0,-5.0,-5.0,-7.0,-7.0]
	Local stepsy#[] = [-3.0,-1.0,-1.0, 1.0, 1.0, 3.0, 3.0, 5.0, 5.0, 3.0, 3.0, 1.0, 1.0,-1.0,-1.0,-3.0]

	WriteLine fh,"'Level 9 - steps"
	Local s$ = "DefData "+False+",200"+",100,"
	
	For a#=0 Until 16
		s$ = s$ + Int(stepsx[a]*40) +","+ Int(stepsy[a]*36)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$
	
Case 10 'U (level 10)
	Local stepsx#[] = [ 7.0, 7.0, 7.0, 7.0, 6.8, 5.5, 3.5, 1.0,-1.0,-3.5,-5.5,-6.8,-7.0,-7.0,-7.0,-7.0]
	Local stepsy#[] = [-5.0,-3.0,-1.0, 1.0, 3.0, 5.0, 6.5, 7.0, 7.0, 6.5, 5.0, 3.0, 1.0,-1.0,-3.0,-5.0]

	WriteLine fh,"'Level 10 - U"
	Local s$ = "DefData "+False+",500"+",-200,"
	
	For a#=0 Until 16
		s$ = s$ + Int(stepsx[a]*30) +","+ Int(stepsy[a]*35)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$

Case 11 'line (level 11)
	Local x# = -7.5

	WriteLine fh,"'Level 11 - horiz line"
	Local s$ = "DefData "+False+",230"+",70,"
	For a#=0 Until 16
		s$ = s$ + Int(-x*40) +","+"160"
		x:+1.0
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$
	
Case 12 'heart (level 12)
	Local stepsx#[] = [2.0, 5.0, 6.0, 6.0, 5.0, 3.0, 0.0,-3.0,-5.0,-6.0,-6.0,-5.0,-2.0,-0.5, 0.0, 0.5]
	Local stepsy#[] = [6.0, 5.7, 2.0,-2.0,-5.0,-7.0,-8.0,-7.0,-5.0,-2.0, 2.0, 5.7, 6.0, 3.0,-1.0, 3.0]

	WriteLine fh,"'Level 12 - heart"
	Local s$ = "DefData "+True+",540"+",-210,"
	
	For a#=0 Until 16
		s$ = s$ + Int(stepsx[a]*30) +","+ Int(-stepsy[a]*30)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$

Case 13 ' star (level 13)
	Local stepsx#[] = [1.5,2.5,2.0, 2.5, 1.5, 1.0, 0.0,-1.0,-1.5,-2.5,-2.0,-2.5,-1.5,-1.0,0.0,1.0]
	Local stepsy#[] = [1.3,1.0,0.0,-1.0,-1.3,-2.2,-1.7,-2.2,-1.3,-1.0, 0.0, 1.0, 1.3, 2.2,1.7,2.2]

	WriteLine fh,"'Level 13 - star"
	Local s$ = "DefData "+True+",415"+",-95,"
	
	For a#=0 Until 16
		s$ = s$ + Int(-stepsx[a]*80) +","+ Int(stepsy[a]*100)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$

Case 14 'W (level 14)
	Local stepsx#[] = [ 8.0, 7.0, 6.7, 6.1, 4.7, 2.7, 1.5, 0.6,-0.6,-1.5,-2.7,-4.7,-6.1,-6.7,-7.0,-8.0]
	Local stepsy#[] = [-3.0,-1.0, 1.5, 3.7, 5.2, 5.2, 4.0, 2.0, 2.0, 4.0, 5.2, 5.2, 3.7, 1.5,-1.0,-3.0]

	WriteLine fh,"'Level 14 - W"
	Local s$ = "DefData "+False+",140"+",120,"
	
	For a#=0 Until 16
		s$ = s$ + Int(stepsx[a]*35) +","+ Int(stepsy[a]*35)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$

Case 15 ' broken v (level 15)

	Local stepsx#[] = [ -8.0, -7.5, -7.0, -6.5, -4.0, -2.8, -2.1, -1.1, 1.0, 2.5, 3.7, 4.5, 5.0, 5.5, 6.5,8.0]
	Local stepsy#[] = [ 8.0, 5.4, 3.0, 0.2, 0.7,-1.5,-4.0,-5.5,-5.0,-6.5,-4.0,-2.0, 1.0, 3.0, 5.0, 7.0]

	WriteLine fh,"'Level 15 - broken V"
	Local s$ = "DefData "+False+",240"+",75,"
	
	For a#=0 Until 16
		s$ = s$ + Int(-stepsx[a]*35) +","+ Int(-stepsy[a]*30)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$

Case 16 'level 16 infinity
	Local stepsx#[] = [0.0,-1.0,-3.0,-5.0,-6.0,-5.0,-3.0,-1.0, 0.0, 1.0, 3.0, 5.0, 6.0, 5.0, 3.0, 1.0]
	Local stepsy#[] = [0.0, 2.0, 3.0, 2.0, 0.0,-2.0,-3.0,-2.0, 0.0, 2.0, 3.0, 2.0, 0.0,-2.0,-3.0,-2.0]

	WriteLine fh,"'Level 16 - infinity"
	Local s$ = "DefData "+True+",310"+",0,"
	
	For a#=0 Until 16
		s$ = s$ + Int(-stepsx[a]*48) +","+ Int(-stepsy[a]*55)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$
	

'Tubes
Case 17 ' octagon (level 1)
	Local stepsx#[] = [2.0, 3.0, 3.0, 3.0, 2.0, 1.0, 0.0,-1.0,-2.0,-3.0,-3.0,-3.0,-2.0,-1.0,0.0,1.0]
	Local stepsy#[] = [1.5, 1.0, 0.0,-1.0,-1.5,-2.0,-2.0,-2.0,-1.5,-1.0, 0.0, 1.0, 1.5, 2.0,2.0,2.0]

	WriteLine fh,"'Level 17 - Tubes 1 - octagon"
	Local s$ = "DefData "+True+",400"+",-80,"
	
	For a#=0 Until 16
		s$ = s$ + Int(-stepsx[a]*60) +","+ Int(stepsy[a]*80)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$
	
Case 18 ' tear (level 2)
	Local stepsx#[] = [ 3.5, 4.5, 4.5, 3.5, 2.0, 1.0, 0.0,-1.0,-2.0,-3.5,-4.5,-4.5,-3.5,-1.6, 0.0, 1.6]
	Local stepsy#[] = [ 5.0, 3.0, 0.0,-2.0,-4.0,-6.0,-8.0,-6.0,-4.0,-2.0, 0.0, 3.0, 5.0, 6.0, 6.0, 6.0]

	WriteLine fh,"'Level 18 - Tubes 2 - tear"
	Local s$ = "DefData "+True+",390"+",-40,"
	
	For a#=0 Until 16
		s$ = s$ + Int(-stepsx[a]*35) +","+ Int(stepsy[a]*30)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$

Case 19 'closed V (level 3)
	WriteLine fh,"'Level 19 - Tubes 3 - false closed V"
	WriteLine fh,"DefData 0,400,0,0,-210,75,-210,150,-175,225,-125,225,-50,150,-25,95,45,50,110,-50,110,-95,45,-150,-25,-225,-50,-225,-125,-150,-175,-75,-210,0,-210"
	
Case 20 ' bowtie (level 4)
	Local stepsx#[] = [3.0, 5.0, 5.0, 5.0, 5.0, 3.0, 1.0,-1.0,-3.0,-5.0,-5.0,-5.0,-5.0,-3.0,-1.0, 1.0]
	Local stepsy#[] = [1.5, 3.0, 1.5,-1.5,-3.0,-1.5,-1.0,-1.0,-1.5,-3.0,-1.5, 1.5, 3.0, 1.5, 1.0, 1.0]

	WriteLine fh,"'Level 20 - Tubes 4 - bowtie"
	Local s$ = "DefData "+True+",300"+",0,"
	
	For a#=0 Until 16
		s$ = s$ + Int(-stepsx[a]*50) +","+ Int(stepsy[a]*50)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$

Case 21 ' | (level 5)
	Local stepsx#[] = [ 7.0, 7.0, 7.0, 7.0, 7.0, 6.5, 6.0, 5.0, 4.0, 3.5, 3.0, 3.0, 3.0, 3.0, 3.0, 3.0]
	Local stepsy#[] = [ 7.0, 6.0, 5.0, 4.0, 3.0, 2.0, 1.0, 0.0,-1.0,-2.0,-3.0,-4.0,-5.0,-6.0,-7.0,-8.0]

	WriteLine fh,"'Level 21 - Tubes 5 - vert bent line"
	Local s$ = "DefData "+False+",280"+",0,"
	
	For a#=0 Until 16
		s$ = s$ + Int(stepsx[a]*30) +","+ Int(-stepsy[a]*30)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$

Case 22 ' [] (level 6)
	Local stepsx#[] = [1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0,-1.0,-1.0,-1.0,-1.0,-1.0,-1.0,-1.0,-1.0, 1.0]
	Local stepsy#[] = [5.0, 3.0, 1.0,-1.0,-3.0,-5.0,-7.0,-7.0,-5.0,-3.0,-1.0, 1.0, 3.0, 5.0, 7.0, 7.0]

	WriteLine fh,"'Level 22 - Tubes 6 - thin rectangle"
	Local s$ = "DefData "+True+",300"+",0,"
	
	For a#=0 Until 16
		s$ = s$ + Int(-stepsx[a]*30) +","+ Int(stepsy[a]*30)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$
	

Case 23 ' @ (level 7)
	Local stepsx#[] = [ 3.0, 2.0, 1.0, 0.0,-1.0,-2.0,-3.0,-2.0,-1.0, 0.0, 1.0, 2.0, 1.0, 0.0,-1.0, 0.0]
	Local stepsy#[] = [ 0.0, 1.0, 2.0, 3.0, 2.0, 1.0, 0.0,-1.0,-2.0,-3.0,-2.0,-1.0, 0.0, 1.0, 0.0,-1.0]

	WriteLine fh,"'Level 23 - Tubes 7 - spiral"
	Local s$ = "DefData "+False+",300"+",0,"
	
	For a#=0 Until 16
		s$ = s$ + Int(-stepsx[a]*70) +","+ Int(-stepsy[a]*70)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$


Case 24 ' ^U^ (level 8)
	Local stepsx#[] = [8.0, 6.0, 4.0, 2.0, 1.0, 1.0, 1.0, 1.0,-1.0,-1.0,-1.0,-1.0,-2.0,-4.0,-6.0,-8.0]
	Local stepsy#[] = [1.0, 2.0, 2.0, 1.0,-1.0,-3.0,-5.0,-7.0,-7.0,-5.0,-3.0,-1.0, 1.0, 2.0, 2.0, 1.0]

	WriteLine fh,"'Level 24 - Tubes 8 - ^U^"
	Local s$ = "DefData "+False+",100"+",90,"
	
	For a#=0 Until 16
		s$ = s$ + Int(stepsx[a]*30) +","+ Int(-stepsy[a]*30)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$
	

Case 25 ' half spade (level 9)
	Local stepsx#[] = [ 1.0, 1.0, 2.0, 4.0, 6.0, 7.0, 8.0, 9.0, 8.0, 6.0, 4.0, 2.0, 1.0, 1.0, 1.0, 1.0]
	Local stepsy#[] = [ 6.0, 5.0, 4.0, 3.0, 2.0, 1.0, 0.0,-1.0,-2.5,-4.0,-4.0,-2.5,-1.0,-2.0,-3.0,-4.0]

	WriteLine fh,"'Level 25 - Tubes 9 - half spade"
	Local s$ = "DefData "+False+",350"+",0,"
	
	For a#=0 Until 16
		s$ = s$ + Int(stepsx[a]*30) +","+ Int(-stepsy[a]*45)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$

Case 26 ' / (level 10)
	Local stepsx#[] = [-7.5,-6.5,-5.5,-4.5,-3.5,-2.5,-1.5,-0.5, 0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5]
	Local stepsy#[] = [ 8.0, 7.0, 6.0, 5.0, 4.0, 3.0, 2.0, 1.0, 0.0,-1.0,-2.0,-3.0,-4.0,-5.0,-6.0,-7.0]

	WriteLine fh,"'Level 26 - Tubes 10 - diagonal line"
	Local s$ = "DefData "+False+",250"+",90,"
	
	For a#=0 Until 16
		s$ = s$ + Int(-stepsx[a]*40) +","+ Int(-stepsy[a]*25)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$

Case 27 ' --- (level 11)
	Local stepsx#[] = [-7.0,-6.0,-5.0,-4.0,-3.0,-2.0,-1.0, 0.0, 0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0]
	Local stepsy#[] = [ 0.0, 1.0, 0.0, 1.0, 0.0, 1.0, 0.0, 1.0,-1.0,-0.0,-1.0,-0.0,-1.0,-0.0,-1.0,-0.0]

	WriteLine fh,"'Level 27 - Tubes 11 - jagged horz line"
	Local s$ = "DefData "+False+",200"+",200,"
	
	For a#=0 Until 16
		s$ = s$ + Int(-stepsx[a]*40) +","+ Int(stepsy[a]*25)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$
	
Case 28 ' star (level 12)
	Local stepsx#[] = [1.0, 2.0, 1.5, 2.0, 1.0, 1.0, 0.0,-1.0,-1.0,-2.0,-1.5,-2.0,-1.0,-1.0, 0.0, 1.0]
	Local stepsy#[] = [1.0, 1.0, 0.0,-1.0,-1.0,-2.0,-1.5,-2.0,-1.0,-1.0, 0.0, 1.0, 1.0, 2.0, 1.5, 2.0]

	WriteLine fh,"'Level 28 - Tubes 12 - star/cross"
	Local s$ = "DefData "+True+",400"+",-80,"
	
	For a#=0 Until 16
		s$ = s$ + Int(-stepsx[a]*100) +","+ Int(stepsy[a]*100)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$	

Case 29 ' claw (level 13)
	Local stepsx#[] = [4.0, 3.0, 4.5, 6.0, 4.0, 2.0, 0.0,-2.0,-4.0,-6.0,-4.5,-3.0,-4.0,-2.0, 0.0, 2.0]
	Local stepsy#[] = [1.0, 4.0, 2.0, 0.0,-2.0,-4.0,-6.0,-4.0,-2.0, 0.0, 2.0, 4.0, 1.0, 0.0,-1.0, 0.0]

	WriteLine fh,"'Level 29 - Tubes 13 - claw"
	Local s$ = "DefData "+True+",400"+",-100,"
	
	For a#=0 Until 16
		s$ = s$ + Int(stepsx[a]*50) +","+ Int(-stepsy[a]*35)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$
	
Case 30 ' ^-^ (level 14)
	Local stepsx#[] = [6.7, 5.7, 4.7, 3.7, 3.0, 2.5, 1.5, 0.5,-0.5,-1.5,-2.5,-3.0,-3.7,-4.7,-5.7,-6.7]
	Local stepsy#[] = [0.4, 1.5, 1.5, 0.5,-1.0,-3.0,-3.0,-3.0,-3.0,-3.0,-3.0,-1.0, 0.5, 1.5, 1.5, 0.4]

	WriteLine fh,"'Level 30 - Tubes 14 - ^-^"
	Local s$ = "DefData "+False+",200"+",150,"
	
	For a#=0 Until 16
		s$ = s$ + Int(stepsx[a]*40) +","+ Int(-stepsy[a]*25)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$
	
Case 31 ' bent steps (level 15)
	Local stepsx#[] = [ 7.0, 6.0, 8.0, 6.0, 6.0, 4.0, 2.0, 1.0,-1.0,-2.0,-4.0,-6.0,-6.0,-8.0,-6.0,-7.0]
	Local stepsy#[] = [-3.0,-1.0, 0.0, 1.0, 3.0, 2.0, 4.0, 2.0, 2.0, 4.0, 2.0, 3.0, 1.0, 0.0,-1.0,-3.0]

	WriteLine fh,"'Level 31 - Tubes 15 - bent steps"
	Local s$ = "DefData "+False+",200"+",80,"
	
	For a#=0 Until 16
		s$ = s$ + Int(stepsx[a]*35) +","+ Int(stepsy[a]*50)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$
	
Case 32 'triple infinity <><><>  (level 16)
	Local stepsx#[] = [ 1.0, 3.0, 5.0, 8.0, 8.0, 5.0, 3.0, 1.0,-1.0,-3.0,-5.0,-8.0,-8.0,-5.0,-3.0,-1.0]
	Local stepsy#[] = [-3.0, 0.0, 3.0, 1.0,-1.0,-3.0, 0.0, 3.0, 3.0, 0.0,-3.0,-1.0, 1.0, 3.0, 0.0,-3.0]

	WriteLine fh,"'Level 32 - Tubes 16 - triple infinity"
	Local s$ = "DefData "+True+",310"+",0,"
	
	For a#=0 Until 16
		s$ = s$ + Int(stepsx[a]*35) +","+ Int(-stepsy[a]*35)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$
	
Case 33 'arc 
	WriteLine fh,"'Level 33 - rainbow"
	Local s$ = "DefData "+False+",480"+",-80,"
	
	For a#=0 Until 16 
		s$ = s$ + Int(-Cos((a+.5)*11.25)*200) +","+ Int(-Sin((a+.5)*11.25)*240)
		If a < 15 Then s$=s$+","
	Next
	WriteLine fh,s$

Case 34 ' pointy square 
	WriteLine fh,"'Level 34 - pointy square"
	WriteLine fh,"DefData 1,400,-80,-200,200,-170,100,-130,0,-170,-100,-200,-200,-100,-170,0,-130,100,-170,200,-200,170,-100,130,0,170,100,200,200,100,170,0,130,-100,170"
	
Case 35 ' 3 leaf
	WriteLine fh,"'Level 35 - 3 leaf clover"
	WriteLine fh,"DefData 1,375,0,0,0,170,0,260,66,190,144,75,118,0,0,-85,-128,-80,-228,0,-270,80,-228,85,-128,0,0,-75,118,-190,144,-260,66,-170,0"
	
Case 36 ' lips	
	WriteLine fh,"'Level 36 - lips"
	WriteLine fh,"DefData 1,400,-80,290,0,244,76,171,141,86,164,0,160,-86,164,-171,141,-244,76,-290,0,-244,-76,-171,-141,-76,-154,0,-100,76,-154,171,-141,244,-76"

Case 37 ' ~
	WriteLine fh,"'Level 37 - /\/"
	WriteLine fh,"DefData 0,310,0,280,-60,280,21,270,108,240,170,170,198,100,173,60,117,20,41,-20,-41,-60,-117,-100,-173,-170,-198,-240,-170,-270,-108,-280,-21,-280,60"
	
Case 38 ' cat
	WriteLine fh,"'Level 38 - cat"
	WriteLine fh,"DefData 1,400,-80,0,-100,66,-124,131,-111,204,-186,220,-60,214,46,161,121,86,174,0,180,-86,174,-161,121,-214,46,-220,-60,-204,-186,-131,-111,-66,-124"

Case 39 ' rocket
	WriteLine fh,"'Level 39 - rocket"
	WriteLine fh,"DefData 1,390,-40,-119,168,-175,108,-120,64,-65,0,-30,-74,-15,-158,0,-242,15,-158,30,-74,65,0,110,64,175,108,119,168,56,128,0,168,-56,128"
	
Case 40 ' pontiac 
	WriteLine fh,"'Level 40 - pontiac"
	WriteLine fh,"DefData 1,370,-50,160,-150,250,-190,200,-110,150,-30,100,50,50,130,0,210,-50,130,-100,50,-150,-30,-200,-110,-250,-190,-160,-150,-75,-110,0,-70,75,-110"

Case 41 ' Ev3
	WriteLine fh,"'Level 41 - Ev3"
	WriteLine fh,"DefData 0,220,40,170,-188,270,-136,230,-56,270,36,190,46,190,148,100,148,40,220,-40,220,-100,148,-190,148,-190,56,-270,36,-230,-56,-270,-136,-170,-188"
	
Case 42 ' \O/
	WriteLine fh,"'Level 42 - \O/"
	WriteLine fh,"DefData 0,270,30,300,130,200,160,100,160,0,140,-100,90,-150,0,-130,-100,-50,-170,50,-170,130,-100,150,0,100,90,0,140,-100,160,-200,160,-300,130"
	
Case 43 ' yakhorns
	WriteLine fh,"'Level 43 - yakhorns"
	WriteLine fh, "DefData 0,200,80,120,-210,200,-185,240,-100,200,-25,120,0,90,65,60,130,30,195,-30,195,-60,130,-90,65,-120,0,-200,-25,-240,-100,-200,-185,-120,-210"

Case 44 ' asteroid
	WriteLine fh,"'Level 44 - asteroid"
	WriteLine fh,"DefData 1,300,40,-150,90,-220,30,-220,-90,-140,-90,-60,-90,-100,-200,0,-200,100,-200,160,-140,230,-70,100,-30,160,20,220,70,130,170,70,100,-70,160"

Case 45 ' broken house
	WriteLine fh,"'Level 45 - broken house"
	WriteLine fh, "DefData 0,140,90,70,-138,150,-116,200,-46,200,36,200,116,230,228,120,178,40,210,-40,210,-120,178,-230,228,-200,116,-200,36,-200,-46,-150,-116,-70,-138"

Case 46 ' overlap star +
	WriteLine fh,"'Level 46 - overlap star"
	WriteLine fh,"DefData 1,300,0,-80,80,-100,10,-200,0,-100,-10,-80,-80,-10,-100,0,-200,10,-100,80,-80,100,-10,200,0,100,10,80,80,10,100,0,200,-10,100"

Case 47 ' pentagon
	WriteLine fh,"'Level 47 - pentagon"
	WriteLine fh,"DefData 1,440,-130,160,-80,250,-20,220,60,190,140,160,220,80,220,0,220,-80,220,-160,220,-190,140,-220,60,-250,-20,-160,-80,-75,-140,0,-190,75,-140"

Case 48 ' skull
	WriteLine fh,"'Level 48 - skull"
	WriteLine fh,"DefData 1,400,-80,180,40,124,86,111,151,66,204,0,220,-66,204,-111,151,-124,86,-180,40,-194,-46,-161,-131,-86,-184,0,-200,86,-184,161,-131,194,-46"
		
End Select	
Next

CloseFile(fh)