Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1633 1678 (N27W63 L=303)   654     64        2 (1611/1654-1658/1703)  45.0 W59-W65 N25-N28
      2 1621 1506 (N17W51 L=291)  1270    191        2 (1561/1464-1695/1542) -14.0 W45-W57 N13-N19
      3 1780 1462 (N11W65 L=305)  1291    346        1 (1721/1432-1833/1512)   2.9 W57-W77 N09-N12
      4 1172 1415 (N22W18 L=258)  1040    294        0 (1031/1380-1326/1463) -27.9 W10-W27 N18-N27
      5  252 1269 (N32E50 L=190)   334     44        0 ( 230/1250- 280/1286)  11.3 E52-E47 N30-N33
      6  588 1209 (N22E23 L=217)  1814    439        4 ( 423/1165- 787/1243) -11.3 E35-E10 N17-N24
      7 1246 1181 (N07W16 L=256)   193     46        0 (1224/1155-1271/1211) -76.0 W15-W17 N04-N08
      8  904 1192 (N14E04 L=236)   229     50        0 ( 873/1177- 941/1207)   0.0 E05-E01 N13-N15
      9 1904 1121 (S11W66 L=306)  1784    319        3 (1866/1068-1940/1199)  23.2 W59-W74 S13-S07
     10  964 1057 (N05E03 L=237)   229     22        0 ( 945/1032- 986/1079)  33.7 E04-E01 N04-N06
     11  209  993 (N16E57 L=183)   641    131        1 ( 176/ 941- 239/1051) -66.8 E59-E54 N12-N19
     12 1871  867 (S26W57 L=297)  3119    255        3 (1803/ 770-1921/ 970)  57.5 W49-W63 S30-S19
     13  149  909 (N12E66 L=174)   634    135        2 ( 129/ 870- 165/ 941)  63.4 E69-E63 N09-N13
     14 1376  861 (S14W17 L=257)   302     36        0 (1354/ 835-1396/ 890)  56.3 W15-W18 S15-S12
     15 1150  850 (S10W04 L=244)   227     81        0 (1108/ 817-1186/ 873)  18.4 W00-W06 S11-S09
     16 1287  767 (S18W10 L=250)   412    165        0 (1192/ 750-1361/ 796) -10.3 W04-W15 S18-S16
     17 1181  684 (S21W02 L=242)   206     40        0 (1155/ 668-1212/ 698) -14.0 W00-W04 S21-S19
     18  302  565 (S11E62 L=178)   536     60        2 ( 277/ 544- 333/ 590) -18.4 E64-E58 S12-S09
     19  253  524 (S12E71 L=169)  2141    183        0 ( 223/ 486- 287/ 556) -45.0 E76-E66 S14-S10
     20 1653  519 (S44W37 L=277)   577     44        0 (1630/ 489-1675/ 550)  45.0 W34-W39 S46-S41
     21 1480  393 (S49W20 L=260)  1097    127        2 (1432/ 358-1527/ 441) -21.8 W15-W25 S53-S45
     22  721  347 (S33E38 L=202)  1413    288        3 ( 662/ 266- 770/ 438)  36.3 E47-E31 S37-S26
  

    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