Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  747 1404 (N34E07 L=167)   453    207        0 ( 665/1372- 840/1422) -18.4 E12-W00 N31-N36
      2  579 1277 (N31E21 L=153)   471     92        1 ( 532/1253- 631/1297) -23.2 E24-E17 N29-N33
      3  206 1056 (N26E58 L=117)  2023    300        3 ( 119/ 963- 303/1180) -32.6 E73-E48 N18-N34
      4 1392 1043 (S03W21 L=195)   243     85        0 (1373/1005-1417/1082)  45.0 W19-W23 S05-S01
      5 1890  953 (S24W59 L=234)   552     54        1 (1868/ 923-1906/ 991) -68.2 W56-W61 S26-S21
      6 1023  890 (S02E03 L=171)   855    226        4 ( 920/ 850-1120/ 926) -48.8 E08-W01 S06-N02
      7 1934  906 (S29W67 L=242)   611     41        1 (1906/ 887-1957/ 922)  -9.5 W61-W73 S30-S27
      8 1625  898 (S18W33 L=207)   444    127        1 (1578/ 870-1672/ 921) -23.2 W28-W35 S20-S16
      9 1634  772 (S26W31 L=205)   555    191        0 (1550/ 741-1707/ 833)   0.0 W24-W38 S27-S24
     10  422  755 (N04E43 L=131)   593    108        2 ( 398/ 700- 447/ 810)  56.3 E45-E40 N01-N07
     11  277  752 (N07E56 L=118)   412     76        2 ( 251/ 710- 300/ 784)  76.0 E58-E53 N04-N08
     12 1359  634 (S26W09 L=183)   648    149        2 (1295/ 595-1415/ 681)  12.5 W04-W13 S26-S23
     13 1178  627 (S21E02 L=172)   261     95        0 (1161/ 578-1194/ 679)  63.4 E03-W00 S23-S17
     14  844  545 (S17E23 L=151)   505    221        1 ( 753/ 512- 924/ 587) -36.9 E28-E18 S19-S12
     15  611  563 (S10E37 L=137)   439    110        2 ( 552/ 540- 670/ 582) -29.7 E40-E33 S12-S08
     16  343  485 (S10E63 L=111)  3633    305       10 ( 245/ 385- 469/ 574) -60.3 E78-E54 S17-S02
     17  449  492 (S11E52 L=122)   469    105        0 ( 409/ 463- 487/ 542) -63.4 E54-E50 S13-S07
     18  589  455 (S16E44 L=131)  1056    229        2 ( 520/ 370- 640/ 522)  22.4 E54-E37 S20-S12
     19  702  455 (S19E36 L=138)   543    106        2 ( 656/ 410- 740/ 506)  26.6 E40-E32 S21-S16
     20 1044  459 (S28E15 L=159)   366     86        0 ( 995/ 426-1087/ 493)   8.1 E18-E11 S28-S26
     21  946  292 (S36E29 L=145)   872    195        3 ( 923/ 203- 971/ 375)  42.7 E36-E23 S43-S30
     22 1095  208 (S49E26 L=148)   584     84        2 (1053/ 186-1131/ 235)  -8.1 E29-E21 S50-S46
     23  883  187 (S43E43 L=131)   633     83        1 ( 845/ 171- 929/ 203)  -7.1 E47-E39 S44-S40
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y