Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  563 1546 (N41E35 L= 65)   526     64        2 ( 541/1516- 590/1582) -51.3 E38-E32 N38-N43
      2 1066 1559 (N39W07 L=108)   500    153        0 ( 990/1536-1131/1572)  -5.2 W01-W12 N37-N40
      3 1262 1465 (N31W20 L=121)   347    113        0 (1217/1423-1298/1506) -56.3 W17-W22 N27-N33
      4  542 1305 (N24E32 L= 68)   568    120        0 ( 521/1241- 561/1363) -69.4 E33-E30 N20-N28
      5  318 1208 (N19E50 L= 50)   419    147        0 ( 302/1146- 343/1268) -82.9 E51-E48 N14-N22
      6 1760 1133 (N05W53 L=153)   412     54        1 (1741/1108-1786/1155) -71.6 W50-W55 N03-N06
      7 1863  999 (S04W63 L=163)   744    124        1 (1821/ 946-1890/1038) -49.4 W57-W67 S08-S01
      8  214  884 (S01E61 L= 39)  1178    190        1 ( 195/ 805- 245/ 962)  56.3 E63-E56 S06-N03
      9 1790  891 (S10W54 L=155)   432    111        0 (1751/ 857-1824/ 933)  29.7 W50-W58 S11-S07
     10 1833  872 (S12W60 L=160)   448     58        0 (1804/ 854-1866/ 888)   0.0 W56-W64 S12-S10
     11 1804  805 (S16W57 L=157)  2823    232        5 (1726/ 735-1890/ 856)  17.4 W48-W70 S19-S12
     12 1423  797 (S12W24 L=125)   403    154        0 (1371/ 741-1465/ 845)  45.0 W20-W27 S15-S09
     13  787  778 (S09E16 L= 84)   306     94        2 ( 750/ 746- 819/ 808) -14.0 E18-E14 S11-S07
     14 1806  686 (S24W61 L=161)  2022    244        1 (1763/ 600-1860/ 775)  65.6 W55-W67 S29-S18
     15  429  657 (S16E44 L= 56)   406    105        0 ( 390/ 614- 451/ 694) -68.2 E46-E42 S18-S13
     16  923  471 (S31E11 L= 89)  1635    372        0 ( 805/ 385-1038/ 609)  36.9 E21-E01 S36-S21
     17 1169  527 (S28W07 L=107)   317    104        1 (1152/ 474-1183/ 573)  90.0 W05-W07 S32-S24
     18  464  494 (S27E47 L= 53)   603    125        1 ( 408/ 473- 531/ 510)   4.4 E53-E40 S28-S25
     19  748  422 (S33E25 L= 75)   310     64        1 ( 714/ 407- 788/ 434) -11.3 E27-E22 S34-S32
  

    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