unmaintained/adsoda/adsoda-tests.factor

   1 USING: adsoda
   2 kernel
   3 math
   4 accessors
   5 sequences
   6     adsoda.solution2
   7     fry
   8     tools.test
   9     arrays ;
  10
  11 IN: adsoda.tests
  12
  13
  14
  15 : s1 ( -- solid )
  16     <solid>
  17     2 >>dimension
  18     "s1" >>name
  19     { 1 1 1 } >>color
  20     { 1 -1 -5 } cut-solid
  21     { -1 -1 -21 } cut-solid
  22     { -1 0 -12 } cut-solid
  23     { 1 2 16 } cut-solid
  24 ;
  25 : solid1 ( -- solid )
  26     <solid>
  27     2 >>dimension
  28     "solid1" >>name
  29     { 1 -1 -5 } cut-solid
  30     { -1 -1 -21 } cut-solid
  31     { -1 0 -12 } cut-solid
  32     { 1 2 16 } cut-solid
  33     ensure-adjacencies
  34
  35 ;
  36 : solid2 ( -- solid )
  37     <solid>
  38     2 >>dimension
  39     "solid2" >>name
  40     { -1 1 -10 } cut-solid
  41     { -1 -1 -28 } cut-solid
  42     { 1 0 13 } cut-solid
  43  !   { 1 2 16 } cut-solid
  44     ensure-adjacencies
  45
  46 ;
  47
  48 : solid3 ( -- solid )
  49       <solid>
  50     2 >>dimension
  51     "solid3" >>name
  52     { 1 1 1 } >>color
  53     { 1 0 16 } cut-solid
  54     { -1 0 -36 } cut-solid
  55     { 0 1 1 } cut-solid
  56     { 0 -1  -17 } cut-solid
  57  !   { 1 2 16 } cut-solid
  58     ensure-adjacencies
  59
  60
  61 ;
  62
  63 : solid4 ( -- solid )
  64       <solid>
  65     2 >>dimension
  66     "solid4" >>name
  67     { 1 1 1 } >>color
  68     { 1 0 21 } cut-solid
  69     { -1 0 -36 } cut-solid
  70     { 0 1 1 } cut-solid
  71     { 0 -1  -17 } cut-solid
  72     ensure-adjacencies
  73
  74 ;
  75
  76 : solid5 ( -- solid )
  77       <solid>
  78     2 >>dimension
  79     "solid5" >>name
  80     { 1 1 1 } >>color
  81     { 1 0 6 } cut-solid
  82     { -1 0 -17 } cut-solid
  83     { 0 1 17 } cut-solid
  84     { 0 -1  -19 } cut-solid
  85     ensure-adjacencies
  86
  87 ;
  88
  89 : solid7 ( -- solid )
  90       <solid>
  91     2 >>dimension
  92     "solid7" >>name
  93     { 1 1 1 } >>color
  94     { 1 0 38 } cut-solid
  95     { 1 -5 -66 } cut-solid
  96     { -2 1 -75 } cut-solid
  97     ensure-adjacencies
  98
  99 ;
 100
 101 : solid6s ( -- seq )
 102   solid3 clone solid2 clone subtract
 103 ;
 104
 105 : space1 ( -- space )
 106     <space>
 107         2 >>dimension
 108      !    solid3 suffix-solids
 109         solid1 suffix-solids
 110         solid2 suffix-solids
 111     !   solid6s [ suffix-solids ] each
 112         solid4 suffix-solids
 113      !   solid5 suffix-solids
 114         solid7 suffix-solids
 115         { 1 1 1 } >>ambient-color
 116             <light>
 117         { -100 -100 } >>position
 118         { 0.2 0.7 0.1 } >>color
 119         suffix-lights
 120 ;
 121
 122 : space2 ( -- space )
 123     <space>
 124         4 >>dimension
 125        ! 4cube suffix-solids
 126         { 1 1 1 } >>ambient-color
 127             <light>
 128         { -100 -100 } >>position
 129         { 0.2 0.7 0.1 } >>color
 130         suffix-lights
 131
 132        ;
 133
 134
 135
 136 ! {
 137 !        { 1 0 0 0 }
 138 !        { 0 1 0 0 }
 139 !        { 0 0 0.984807753012208 -0.1736481776669303 }
 140 !        { 0 0 0.1736481776669303 0.984807753012208 }
 141 !    }
 142
 143 ! ------------------------------------------------------------
 144 ! constant+
 145 [ { 1 2 5 } ] [ { 1 2 3 } 2 constant+ ] unit-test
 146
 147 ! ------------------------------------------------------------
 148 ! translate
 149 [ { 1 -1 0 } ] [ { 1 -1 -5 } { 3 -2 } translate ] unit-test
 150
 151 ! ------------------------------------------------------------
 152 ! transform
 153 [ { -1 -1 -5 21.0 } ] [ { -1 -1 -5 21 }
 154   { { 1 0 0 }
 155     { 0 1 0 }
 156     { 0 0 1 }
 157     } transform
 158 ] unit-test
 159
 160 ! ------------------------------------------------------------
 161 ! compare-nleft-to-identity-matrix
 162 [ t ] [
 163     {
 164         { 1 0 0 1232 }
 165         { 0 1 0 0 321 }
 166         { 0 0 1 0 } }
 167         3 compare-nleft-to-identity-matrix
 168 ]  unit-test
 169
 170 [ f ] [
 171     { { 1 0 0 } { 0 1 0 } { 0 0 0 } }
 172     3 compare-nleft-to-identity-matrix
 173 ] unit-test
 174
 175 [ f ] [
 176     { { 2 0 0 } { 0 1 0 } { 0 0 1 } }
 177     3 compare-nleft-to-identity-matrix
 178 ] unit-test
 179 ! ------------------------------------------------------------
 180 [ t ] [
 181   { { 1 0 0 }
 182     { 0 1 0 }
 183     { 0 0 1 } } 3 valid-solution?
 184 ] unit-test
 185
 186 [ f ] [
 187   { { 1 0 0 1 }
 188     { 0 0 0 1 }
 189     { 0 0 1 0 } } 3 valid-solution?
 190 ] unit-test
 191
 192 [ f ] [
 193   { { 1 0 0 1 }
 194     { 0 0 0 1 } } 3 valid-solution?
 195 ] unit-test
 196
 197 [ f ] [
 198   { { 1 0 0 1 }
 199     { 0 0 0 1 }
 200     { 0 0 1 0 } } 2 valid-solution?
 201 ] unit-test
 202
 203 ! ------------------------------------------------------------
 204 [ 3 ] [ { 1 2 3 } last ] unit-test
 205
 206 [ { 1 2 5 } ] [ { 1 2 3 } dup [ 2 + ] change-last ] unit-test
 207
 208 ! ------------------------------------------------------------
 209 ! position-point
 210 [ 0 ] [
 211     { 1 -1 -5 } { 2 7 } position-point
 212 ] unit-test
 213
 214 ! ------------------------------------------------------------
 215
 216 ! transform
 217 ! TODO construire un exemple
 218
 219
 220 ! ------------------------------------------------------------
 221 ! slice-solid
 222
 223 ! ------------------------------------------------------------
 224 ! solve-equation
 225 ! deux cas de tests, avec solution et sans solution
 226
 227 [ { 2 7 } ]
 228 [ { { 1 -1 -5 } { 1 2 16 } } intersect-hyperplanes ]
 229 unit-test
 230
 231 [ f ]
 232 [ { { 1 -1 -5 } { 1 2 16 } { -1 -1 -21 } } intersect-hyperplanes  ]
 233 unit-test
 234
 235 [ f ]
 236 [ { { 1 0 -5 } { 1 0 16 }  } intersect-hyperplanes  ]
 237 unit-test
 238
 239 ! ------------------------------------------------------------
 240 ! point-inside-halfspace
 241 [ t ] [ { 1 -1 -5 } { 0 0 }  point-inside-halfspace? ]
 242 unit-test
 243 [ f ] [ { 1 -1 -5 } { 8 13 }  point-inside-halfspace? ]
 244 unit-test
 245 [ t ] [ { 1 -1 -5 } { 8 13 }  point-inside-or-on-halfspace? ]
 246 unit-test
 247
 248
 249 ! ------------------------------
 250 ! order solid
 251
 252 [  1 ] [ 0 >pv solid1 solid2 order-solid ] unit-test
 253 [ -1 ] [ 0 >pv solid2 solid1 order-solid ] unit-test
 254 [  f ] [ 1 >pv solid1 solid2 order-solid ] unit-test
 255 [  f ] [ 1 >pv solid2 solid1 order-solid ] unit-test
 256
 257
 258 ! clip-solid
 259 [ { { 13 15 } { 15 13 } { 13 13 } } ]
 260     [ 0 >pv solid2 solid1 clip-solid first corners>> ] unit-test
 261
 262 solid1 corners>> '[ _ ]
 263     [ 0 >pv solid1 solid1 clip-solid first corners>> ] unit-test
 264
 265 solid1 corners>> '[ _ ]
 266     [ 0 >pv solid1 solid2 clip-solid first corners>> ] unit-test
 267
 268 solid1 corners>> '[ _ ]
 269     [ 1 >pv solid1 solid2 clip-solid first corners>> ] unit-test
 270 solid2 corners>> '[ _ ]
 271     [ 1 >pv solid2 solid1 clip-solid first corners>> ] unit-test
 272
 273 !
 274 [
 275     {
 276         { { 13 15 } { 15 13 } { 13 13 } }
 277         { { 16 17 } { 16 13 } { 36 17 } { 36 13 } }
 278         { { 16 1 } { 16 2 } { 36 1 } { 36 2 } }
 279     }
 280 ] [     0 >pv solid2 solid3  2array
 281         solid1 (solids-silhouette-subtract)
 282         [ corners>> ] map
 283   ] unit-test
 284
 285
 286 [
 287 {
 288     { { 8 13 } { 2 7 } { 12 9 } { 12 2 } }
 289     { { 13 15 } { 15 13 } { 13 13 } }
 290     { { 16 17 } { 16 15 } { 36 17 } { 36 15 } }
 291     { { 16 1 } { 16 2 } { 36 1 } { 36 2 } }
 292 }
 293 ] [
 294     0 >pv  <space> solid1 suffix-solids
 295         solid2 suffix-solids
 296         solid3 suffix-solids
 297      remove-hidden-solids
 298     solids>> [ corners>> ] map
 299 ] unit-test
 300
 301 ! { }
 302 ! { }
 303 ! <light> { 0.2 0.3 0.4 } >>color { 1 -1 1 } >>direction     suffix
 304 ! <light> { 0.4 0.3 0.1 } >>color { -1 -1 -1 } >>direction   suffix
 305 ! suffix
 306 ! { 0.1 0.1 0.1 } suffix ! ambient color
 307 ! { 0.23 0.32 0.17 } suffix ! solid color
 308 ! solid3 faces>> first
 309
 310 ! enlight-projection