Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  373 1588 (N11E65 L=189)  2254    240        3 ( 287/1521- 429/1673) -85.2 147-E54 N08-S-2
      2  805 1467 (N14E26 L=228)   396    115        0 ( 759/1430- 866/1530)  69.4 E31-E21 N13-N16
      3 1142 1458 (N22E06 L=248)   641    128        1 (1111/1405-1176/1525) -40.6 E10-E02 N20-N26
      4  198 1237 (S13E65 L=189)  6766    808       12 ( 126/1095- 273/1429) -71.6 147-E53 S20-S-2
      5  698 1320 (N02E27 L=227)   478    115        0 ( 665/1263- 723/1373) -45.0 E30-E23 S00-N05
      6  599 1302 (S01E32 L=222)   604    125        2 ( 534/1278- 659/1332)  12.5 E38-E28 S01-S01
      7 1380 1309 (N20W13 L=267)   270     80        0 (1347/1280-1419/1325)  45.0 W11-W16 N20-N20
      8 1061 1237 (N07E04 L=250)   540    135        0 ( 996/1182-1108/1271)  -8.1 E08-W00 N05-N07
      9  375 1172 (S13E45 L=209)  1723    349        5 ( 293/1090- 467/1239)  47.7 E54-E36 S16-S11
     10  932 1141 (S02E08 L=246)   563    147        0 ( 871/1113-1011/1195)   0.0 E13-E03 S01-S00
     11 1824 1110 (N24W54 L=308)   447     56        1 (1800/1084-1842/1135)  76.0 W51-W57 N23-N24
     12  471 1052 (S18E35 L=219)   529     93        2 ( 423/1014- 501/1097)  71.6 E39-E32 S19-S16
     13  271 1066 (S22E53 L=201)   306    114        0 ( 238/1046- 310/1095)  -7.1 E57-E48 S22-S20
     14  510  942 (S23E30 L=224)   933    215        3 ( 466/ 881- 554/1007)  69.4 E34-E25 S26-S21
     15  584  972 (S20E25 L=229)   232     54        0 ( 567/ 933- 600/1005)  90.0 E27-E23 S22-S18
     16  817  955 (S15E10 L=244)   364     93        2 ( 766/ 931- 852/ 982)  21.8 E14-E07 S15-S15
     17  796  786 (S25E07 L=247)   463    141        1 ( 723/ 754- 856/ 840)  -5.7 E13-E02 S25-S24
     18 1247  800 (S12W19 L=273)   299     61        0 (1219/ 773-1284/ 823)  63.4 W17-W22 S12-S11
     19  221  763 (S42E61 L=193)   462     67        1 ( 198/ 744- 243/ 785)  20.6 E64-E58 S42-S40
     20 1594  568 (S13W51 L=305)   493    112        0 (1574/ 517-1606/ 621) -56.3 W46-W55 S16-S11
     21  589  573 (S45E18 L=236)   296     70        0 ( 571/ 537- 614/ 611) -45.0 E20-E15 S46-S42
     22 1034  376 (S43W27 L=281)  1826    304        2 ( 917/ 314-1169/ 466)  67.6 W13-W41 S42-S41
     23  870  374 (S49W15 L=269)   402     80        0 ( 836/ 351- 912/ 400)   0.0 W11-W20 S49-S48
  

    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