Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1231 1780 (N51W42 L=173)  1351    186        3 (1160/1739-1316/1810)  -2.7 W32-W54 N47-N52
      2 1447 1662 (N37W50 L=181)   471     62        2 (1418/1633-1480/1683) -31.0 W46-W53 N35-N38
      3 1694 1457 (N18W59 L=189)   501    100        0 (1646/1435-1739/1474) -32.0 W54-W62 N15-N20
      4 1765 1363 (N11W61 L=192)  1575    273        3 (1677/1301-1819/1472)  25.2 W49-W70 N08-N17
      5 1533 1251 (N10W36 L=167)   851    202        0 (1438/1213-1610/1290) -13.0 W30-W43 N08-N13
      6 1894 1067 (S09W67 L=198)  4325    327       12 (1830/ 980-1951/1157)  19.3 W57-W83 S14-S03
      7  948 1105 (N13E03 L=128)   296     98        3 ( 922/1057- 968/1149)  71.6 E05-E01 N09-N15
      8  472 1070 (N17E35 L= 95)   427    133        1 ( 448/1011- 507/1127) -66.8 E37-E33 N13-N20
      9 1718  973 (S10W45 L=176)  1020    242        2 (1687/ 844-1746/1061)  69.0 W41-W48 S17-S04
     10 1604  918 (S11W35 L=166)   675    106        3 (1559/ 879-1647/ 956)   0.0 W31-W38 S13-S08
     11 1626  786 (S19W36 L=166)   282    106        1 (1585/ 770-1680/ 810)   7.1 W32-W40 S19-S18
     12  970  721 (S11E08 L=123)   634    152        2 ( 940/ 663-1010/ 794)  53.1 E10-E04 S14-S06
     13 1760  744 (S26W48 L=179)   771    197        2 (1712/ 665-1815/ 791)  26.6 W43-W54 S29-S23
     14  602  647 (S10E33 L= 98)  1405    402        6 ( 457/ 553- 746/ 739) -43.2 E41-E25 S17-S02
     15  892  701 (S11E13 L=117)   260     45        1 ( 872/ 673- 914/ 729) -90.0 E14-E11 S12-S08
     16  517  613 (S11E40 L= 90)   280     77        3 ( 471/ 596- 546/ 634) -31.0 E43-E38 S12-S09
     17  760  473 (S24E28 L=103)   456    104        2 ( 739/ 418- 784/ 519)  49.4 E31-E24 S27-S20
     18  909  393 (S32E20 L=110)   973    229        1 ( 830/ 358-1007/ 455)  10.6 E27-E11 S33-S28
     19  499  391 (S26E53 L= 77)  1157    126        1 ( 457/ 347- 545/ 451)  82.9 E57-E48 S29-S21
     20 1322  340 (S45W09 L=140)   424     35        1 (1301/ 317-1347/ 364)  53.1 W07-W11 S47-S43
     21 1225  263 (S51E01 L=130)   395     53        0 (1199/ 244-1254/ 281) -11.3 E03-W02 S52-S48
     22 1158  234 (S52E08 L=123)   358     51        0 (1135/ 219-1188/ 257) -21.8 E10-E05 S54-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