Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  959 1857 (N60W38 L=334)   395     44        1 ( 934/1833- 982/1879)  78.7 W35-W42 N56-N61
      2  833 1810 (N62W21 L=317)   679    123        2 ( 779/1787- 902/1827) -17.1 W14-W27 N57-N64
      3  682 1753 (N64W00 L=296)   506     65        1 ( 656/1715- 708/1788)  40.6 E04-W05 N60-N66
      4 1211 1739 (N41W41 L=337)   400     66        0 (1181/1709-1246/1755) -18.4 W37-W44 N39-N42
      5 1089 1691 (N42W29 L=325)   268     54        2 (1069/1663-1109/1718)  18.4 W26-W32 N40-N43
      6  355 1588 (N60E51 L=245)  1121    142        2 ( 294/1545- 412/1627)   8.1 E63-E41 N57-N62
      7 1452 1586 (N24W46 L=342)   392    105        0 (1418/1556-1494/1609)  -9.5 W41-W48 N22-N25
      8 1824 1265 (S04W60 L=356)   510     29        1 (1801/1239-1842/1287)  11.3 W57-W63 S06-S03
      9 1908 1158 (S13W67 L=  3)  1508     50        0 (1882/1103-1927/1215)  50.2 W62-W72 S16-S10
     10  484 1152 (N26E30 L=266)  1039    314        1 ( 352/1084- 612/1208) -34.4 E41-E22 N19-N32
     11 1757  894 (S22W43 L=340)  2640    366        3 (1648/ 772-1836/1038)  25.5 W32-W53 S27-S15
     12 1315  869 (S10W12 L=308)   533    135        0 (1297/ 801-1333/ 941)  54.5 W09-W14 S13-S06
     13  320  842 (N12E50 L=247)  1063    234        4 ( 228/ 778- 386/ 903) -42.3 E57-E44 N07-N17
     14  363  678 (N02E51 L=245)   450     80        1 ( 328/ 648- 393/ 714)   7.1 E55-E47 N00-N03
     15 1410  558 (S32W11 L=307)   683    177        0 (1347/ 522-1480/ 618)   5.2 W05-W16 S33-S29
     16  563  561 (S09E41 L=256)   279     48        1 ( 537/ 533- 579/ 591)  45.0 E42-E38 S10-S07
     17  442  428 (S15E58 L=239)   494     73        3 ( 413/ 393- 466/ 458)  45.0 E59-E55 S16-S12
     18  354  424 (S13E68 L=228)   627     82        1 ( 330/ 398- 377/ 452) -90.0 E71-E64 S15-S11
     19 1149  384 (S35E12 L=284)  1502    291        1 (1029/ 330-1274/ 452)   0.0 E21-E01 S37-S32
     20  617  251 (S30E58 L=238)   726     74        0 ( 592/ 216- 648/ 279)  13.0 E65-E52 S32-S28
     21  793  160 (S42E55 L=241)  2824    165        2 ( 719/ 121- 867/ 212)   0.0 E68-E42 S46-S39
  

    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