Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1146 1659 (N45W23 L=235)   884    150        3 (1090/1615-1221/1695) -48.8 W18-W27 N40-N48
      2  618 1580 (N48E25 L=186)  1609    423        2 ( 463/1486- 783/1639) -20.4 E45-E10 N38-N53
      3 1593 1526 (N26W53 L=265)   684    115        2 (1537/1495-1621/1558)   0.0 W47-W57 N24-N28
      4 1081 1496 (N34W12 L=224)  1379    345        2 ( 934/1469-1247/1515) -12.8 W01-W23 N30-N36
      5 1734 1421 (N17W61 L=272)  1499    142        0 (1670/1367-1779/1464) -45.0 W55-W65 N13-N20
      6 1758 1256 (N07W56 L=267)   359     51        1 (1730/1235-1781/1279) -21.8 W52-W57 N05-N08
      7  624 1128 (N17E24 L=188)   304    132        1 ( 576/1086- 662/1170) -45.0 E27-E21 N14-N20
      8  401  992 (N11E42 L=170)   905    339        2 ( 294/ 939- 542/1033)   2.7 E51-E30 N08-N13
      9  754  861 (S00E19 L=193)   273     42        1 ( 731/ 841- 780/ 889) -63.4 E20-E17 S01-N01
     10  152  854 (N04E72 L=140)   716     63        2 ( 130/ 821- 174/ 881)  53.1 E76-E67 N01-N05
     11 1200  748 (S13W07 L=219)   965    358        1 (1084/ 673-1304/ 852)  25.0 E01-W14 S16-S08
     12 1097  808 (S08W01 L=213)   301     77        2 (1068/ 784-1125/ 840)  33.7 W00-W03 S09-S06
     13  392  766 (S02E46 L=166)  1042    193        2 ( 317/ 689- 458/ 825) -63.4 E51-E40 S07-N01
     14 1125  747 (S12W02 L=214)   199     68        2 (1109/ 707-1144/ 778)  63.4 W00-W03 S14-S10
     15 1056  730 (S12E02 L=210)   202     70        1 (1026/ 714-1093/ 745)   0.0 E03-W00 S13-S10
     16 1527  709 (S21W28 L=240)   405     86        1 (1484/ 683-1566/ 732)  18.4 W25-W31 S22-S20
     17 1268  608 (S23W10 L=221)  1397    282        4 (1169/ 562-1384/ 662)   3.8 W02-W17 S26-S19
     18  457  637 (S11E44 L=168)   432    181        0 ( 391/ 624- 530/ 654)   0.0 E49-E37 S11-S09
     19  620  582 (S16E33 L=179)   269     81        1 ( 590/ 550- 656/ 605) -53.1 E35-E31 S18-S14
     20  432  538 (S17E50 L=162)   960    191        2 ( 372/ 468- 476/ 577) -69.4 E55-E46 S22-S14
     21  681  388 (S30E36 L=175)   490     85        0 ( 657/ 344- 705/ 428)  40.6 E40-E32 S33-S27
  

    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