Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1304 1661 (N39W00 L=271)  1560    309        4 (1251/1543-1384/1752) -40.6 E06-W08 N32-N46
      2  966 1605 (N25E19 L=251)   446    109        1 ( 947/1556- 984/1655) -45.0 E22-E16 N22-N28
      3  695 1526 (N14E33 L=237)  1133    214        3 ( 668/1431- 722/1622) -53.1 E37-E28 N08-N20
      4  260 1461 (N03E67 L=203)   790    180        1 ( 226/1409- 282/1490) -26.6 E72-E62 N00-N04
      5 1313 1420 (N23W07 L=277)   314     68        0 (1297/1382-1326/1454) -53.1 W05-W08 N20-N25
      6  812 1343 (N06E20 L=250)   576    143        1 ( 743/1303- 872/1393) -11.3 E25-E15 N03-N07
      7 1299 1161 (N07W12 L=282)  1043    299        0 (1268/1005-1328/1298) -54.5 W07-W17 N00-N14
      8  153 1134 (S18E65 L=205)  5606    621       11 (  92/1023- 212/1237) -85.6 E74-E59 S24-S11
      9 1925  975 (N16W65 L=336)   551    103        0 (1911/ 931-1936/1015) -38.7 W62-W68 N14-N18
     10  467  923 (S25E33 L=237)   973    294        0 ( 346/ 873- 577/ 979)  32.9 E42-E25 S30-S19
     11 1386  901 (S05W24 L=294)   229     51        0 (1367/ 870-1402/ 923) -45.0 W22-W25 S06-S03
     12  187  813 (S37E58 L=213)  1501    378        2 ( 129/ 759- 276/ 854)  21.8 E63-E48 S40-S33
     13 1880  767 (N04W69 L=339)   746    151        4 (1852/ 733-1897/ 814)  90.0 W65-W72 N01-N06
     14 1477  607 (S18W39 L=310)   265     55        0 (1446/ 595-1511/ 620)  36.9 W37-W41 S19-S16
     15 1563  493 (S21W51 L=321)   961    122        0 (1510/ 443-1609/ 559)  90.0 W48-W52 S25-S16
  

    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