Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1565 1700 (N27W62 L=139)   579     60        1 (1537/1671-1590/1724)   0.0 W58-W67 N25-N28
      2 1389 1606 (N27W41 L=117)   664    121        1 (1335/1569-1444/1638) -63.4 W37-W43 N23-N30
      3 1726 1581 (N16W68 L=145)   974     91        3 (1699/1543-1757/1615)  26.6 W64-W75 N13-N17
      4 1714 1516 (N13W61 L=138)   558     93        2 (1686/1483-1746/1547) -68.2 W59-W64 N10-N15
      5 1662 1510 (N14W56 L=132)   500     74        1 (1637/1475-1687/1546) -90.0 W53-W58 N11-N16
      6 1345 1406 (N17W29 L=105)  1236    416        3 (1188/1356-1526/1502) -43.3 W21-W39 N10-N26
      7  966 1382 (N25W06 L= 82)  2085    620        4 ( 711/1260-1206/1442) -34.7 E10-W17 N12-N32
      8  846 1238 (N20E05 L= 71)   470    181        0 ( 754/1222- 932/1256) -26.6 E10-W00 N17-N22
      9 1582 1126 (S04W35 L=111)   451    110        1 (1561/1069-1601/1179)  56.3 W33-W37 S07-S01
     10 1872 1008 (S19W58 L=134)  1500    150        3 (1807/ 960-1937/1042)  -3.2 W50-W68 S20-S16
     11  788  936 (N04E15 L= 61)   416    127        1 ( 753/ 882- 846/ 974)  23.2 E18-E11 N01-N05
     12 1199  873 (S09W06 L= 82)   344    170        1 (1154/ 816-1222/ 945)  39.8 W02-W08 S11-S04
     13 1880  846 (S29W59 L=135)   863    142        1 (1824/ 797-1928/ 902)  11.3 W51-W66 S31-S27
     14  716  694 (S08E26 L= 51)   909    197        4 ( 666/ 616- 761/ 771)  48.8 E29-E21 S11-S03
     15  276  716 (N02E57 L= 19)  1441    156        2 ( 206/ 670- 348/ 758) -15.9 E65-E51 S01-N04
     16  607  649 (S08E34 L= 42)   767    155        4 ( 569/ 592- 646/ 726)  82.9 E37-E30 S11-S03
     17  995  621 (S18E12 L= 65)   388    135        1 ( 922/ 600-1052/ 647) -14.0 E15-E07 S19-S16
     18  287  531 (S09E66 L= 10)  3239    221       13 ( 237/ 451- 334/ 621)  32.0 E76-E59 S13-S03
     19  453  517 (S12E50 L= 26)  1197    245        2 ( 380/ 469- 555/ 608) -52.1 E54-E43 S16-S06
     20  842  480 (S23E25 L= 51)  2226    557        6 ( 638/ 406-1043/ 598) -32.5 E34-E12 S29-S12
     21  701  299 (S32E45 L= 31)  3983    334        6 ( 628/ 133- 767/ 437)  33.3 E73-E37 S44-S21
     22 1577  311 (S62W30 L=107)   514     56        0 (1549/ 293-1608/ 329) -25.0 W24-W39 S66-S58
  

    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