Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  984 1673 (N49W11 L=183)  2018    415        2 ( 798/1634-1171/1705) -17.9 E06-W25 N42-N53
      2 1520 1638 (N34W55 L=226)  2072    258        3 (1414/1600-1648/1666) -14.6 W43-W66 N28-N36
      3  853 1532 (N41E03 L=168)   397    104        0 ( 806/1517- 912/1545) -23.2 E06-W01 N39-N42
      4 1021 1503 (N36W09 L=180)   216     38        0 (1001/1483-1049/1518)  14.0 W07-W11 N34-N36
      5 1673 1424 (N18W55 L=226)   778    125        0 (1639/1387-1722/1472) -60.3 W52-W58 N14-N21
      6  831 1294 (N26E08 L=163)   320     96        1 ( 777/1275- 873/1312) -18.4 E11-E05 N24-N27
      7 1239 1271 (N17W17 L=189)   343    159        0 (1162/1236-1299/1291) -26.6 W12-W20 N14-N19
      8  246 1117 (N21E57 L=114)   592    100        2 ( 231/1065- 272/1159)  90.0 E58-E53 N17-N23
      9 1140 1113 (N10W08 L=180)   334    153        0 (1076/1073-1196/1148)  12.5 W03-W12 N08-N11
     10  325 1072 (N18E48 L=123)   499     83        3 ( 283/1046- 367/1101)   0.0 E52-E44 N16-N19
     11  880 1062 (N11E08 L=163)   383    129        1 ( 834/1033- 949/1101) -26.6 E10-E03 N08-N13
     12 1779  987 (S10W51 L=222)  1763    266        5 (1725/ 888-1830/1094) -90.0 W47-W56 S15-S02
     13  511 1047 (N15E33 L=138)   236     87        0 ( 497/1010- 526/1087)  76.0 E33-E31 N12-N16
     14 1435  995 (S02W25 L=196)   226     59        2 (1404/ 973-1459/1017) -45.0 W22-W26 S03-N00
     15 1026  895 (S01E02 L=169)   629    375        0 ( 861/ 845-1177/ 926) -22.4 E11-W06 S06-N01
     16 1892  848 (S22W66 L=238)  1586    111        5 (1849/ 795-1931/ 899)  45.0 W59-W76 S25-S19
     17 1009  749 (S10E05 L=166)   942    181        3 ( 965/ 699-1081/ 824) -56.3 E07-W00 S12-S04
     18 1764  756 (S24W49 L=221)  1494    135        4 (1711/ 688-1810/ 819)  45.0 W43-W54 S28-S20
     19  254  661 (S07E64 L=107)  3129    314        8 ( 180/ 573- 335/ 752) -57.5 E74-E58 S13-S01
     20 1130  666 (S17W01 L=172)   504    130        2 (1091/ 617-1157/ 709)  45.0 E02-W03 S19-S14
     21  335  638 (S09E56 L=116)   813    171        0 ( 293/ 577- 396/ 700) -56.3 E58-E51 S13-S04
     22  411  642 (S09E48 L=123)   337     64        1 ( 392/ 606- 432/ 675)  38.7 E50-E45 S11-S07
     23  284  542 (S15E68 L=103)  1931    159        5 ( 240/ 475- 332/ 600) -71.6 E72-E63 S20-S11
     24  433  538 (S16E50 L=121)   486     72        2 ( 400/ 504- 456/ 574)  45.0 E53-E46 S18-S13
     25 1249  520 (S29W06 L=178)   613    118        0 (1206/ 483-1293/ 564)  26.6 W03-W09 S31-S26
     26  859  213 (S48E35 L=136)  1060    179        1 ( 807/ 152- 919/ 269)  21.4 E48-E25 S54-S42
  

    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