Frusta

Check-in [d5150d3425]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Added circle exercise
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:d5150d342592e4136ff530d0dedfb41367b32e7a
User & Date: rmelton 2013-10-22 00:27:38
Context
2013-10-23
00:06
initial exercise preview check-in: b3b3d219dc user: rmelton tags: trunk
2013-10-22
00:27
Added circle exercise check-in: d5150d3425 user: rmelton tags: trunk
00:19
Started machine exercise code generator check-in: ad37e479e2 user: rmelton tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to lib/machine/machine_0.1.tcl.

47
48
49
50
51
52
53










54
55
56
57
58
59
60
    }
    for {set i 0} {$i < 12} {incr i} {
      set y0 [expr {$i*($v(y0)-$v(y1))/12.0+$v(y1)}]
      set y1 [expr {$i*($v(y1)-$v(y0))/12.0+$v(y0)}]
      $w.view create line $X0 $y0 $X1 $y1 -fill blue
      update idletasks
      after 100










    }
    
  }
  proc buildExercise {} {
    
  }








>
>
>
>
>
>
>
>
>
>







47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
    }
    for {set i 0} {$i < 12} {incr i} {
      set y0 [expr {$i*($v(y0)-$v(y1))/12.0+$v(y1)}]
      set y1 [expr {$i*($v(y1)-$v(y0))/12.0+$v(y0)}]
      $w.view create line $X0 $y0 $X1 $y1 -fill blue
      update idletasks
      after 100
    }
    for {set deg 0} {$deg < 180} {incr deg} {
      set i [expr {$deg/360.0*2*3.1415}]
      set x0 [expr {cos($i)*100+100}]
      set y0 [expr {sin($i)*100+100}]
      set x1 [expr {cos($i+3.1415)*100+100}]
      set y1 [expr {sin($i+3.1415)*100+100}]
      $w.view create line $x0 $y0 $x1 $y1 -fill green
      update idletasks
      after 100
    }
    
  }
  proc buildExercise {} {
    
  }