Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1364 1771 (N39W52 L=199)  1618    274        3 (1241/1719-1479/1817)  -3.5 W37-W70 N37-N40
      2 1580 1588 (N22W55 L=201)   322    110        1 (1528/1558-1629/1612) -39.8 W51-W57 N18-N24
      3 1811 1465 (N09W71 L=218)   615     79        2 (1782/1439-1839/1501) -90.0 W66-W74 N06-N10
      4  671 1413 (N34E14 L=133)   444    112        1 ( 620/1393- 737/1433) -14.0 E17-E09 N31-N35
      5 1764 1336 (N03W57 L=204)   513     78        0 (1732/1316-1793/1357)   0.0 W53-W60 N01-N04
      6  899 1315 (N22E01 L=146)   199     61        0 ( 868/1301- 931/1328)   0.0 E02-W01 N21-N23
      7 1388 1257 (N08W27 L=173)   265     66        1 (1363/1222-1412/1285) -63.4 W25-W27 N05-N09
      8  960 1173 (N13E00 L=146)   181    112        0 ( 910/1156-1008/1200)   0.0 E03-W02 N12-N13
      9  121 1153 (N29E73 L= 74)   924     86        1 (  98/1111- 143/1199) -24.8 E81-E67 N25-N31
     10 1816 1176 (S07W57 L=203)   517     28        0 (1790/1156-1844/1197) -18.4 W54-W60 S08-S05
     11 1864 1083 (S14W60 L=207)  2706    211        9 (1803/ 997-1924/1172)  28.1 W52-W70 S17-S08
     12  404 1053 (N18E39 L=108)  1330    328        3 ( 257/1010- 523/1137)   2.4 E52-E28 N15-N20
     13 1631 1032 (S10W37 L=184)   306     92        0 (1617/ 997-1658/1081)  78.7 W36-W38 S12-S07
     14 1728  876 (S22W43 L=189)   445     86        0 (1708/ 832-1745/ 922)  68.2 W40-W44 S24-S19
     15 1578  801 (S23W30 L=176)   871    191        1 (1506/ 732-1627/ 885)  35.0 W23-W34 S25-S18
     16 1390  746 (S21W16 L=162)   691    266        0 (1347/ 632-1447/ 858)  50.2 W11-W21 S27-S15
     17 1072  708 (S16E04 L=142)   200    107        0 (1042/ 669-1104/ 757)  38.7 E06-E01 S17-S13
     18 1611  694 (S30W31 L=178)   478    120        0 (1558/ 653-1647/ 745)  26.6 W26-W34 S31-S27
     19  513  628 (S09E41 L=105)   293     70        1 ( 498/ 592- 531/ 668)  68.2 E43-E38 S11-S06
     20 1021  541 (S25E12 L=135)   282     92        0 ( 992/ 501-1048/ 580)  31.0 E14-E09 S27-S23
     21 1735  492 (S50W51 L=197)   533     57        0 (1701/ 481-1768/ 504) -13.0 W44-W58 S52-S48
     22  716  340 (S31E41 L=106)   932    267        1 ( 697/ 222- 738/ 476)  40.4 E52-E32 S40-S22
  

    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