Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1657 1514 (N18W54 L=185)  1657    227        2 (1559/1452-1761/1578) -32.7 W47-W62 N13-N23
      2  386 1351 (N31E39 L= 92)  1127    207        1 ( 333/1270- 454/1443)  38.7 E43-E33 N26-N36
      3 1181 1391 (N20W16 L=147)   573    131        3 (1113/1362-1234/1419)   0.0 W11-W19 N17-N20
      4  978 1376 (N22W03 L=134)   619    186        0 ( 891/1334-1064/1409) -41.2 E01-W07 N18-N25
      5  721 1342 (N25E13 L=118)   556    167        1 ( 667/1286- 779/1408) -56.3 E16-E10 N20-N29
      6  194 1268 (N29E60 L= 71)  1883    208        2 ( 101/1226- 292/1307) -12.2 E84-E47 N24-N32
      7  667 1141 (N13E19 L=112)  1001    319        1 ( 570/1043- 723/1255)  39.8 E26-E14 N08-N19
      8 1375 1205 (N05W24 L=155)   344     78        1 (1342/1168-1410/1233) -68.2 W21-W25 N02-N07
      9 1614 1107 (S04W38 L=169)   304     65        1 (1590/1078-1650/1135)  11.3 W35-W40 S05-S02
     10 1393 1076 (S02W22 L=153)   296     77        0 (1378/1032-1406/1117)  76.0 W21-W23 S04-N00
     11 1633  972 (S12W37 L=168)   480    132        3 (1597/ 919-1672/1006)  33.7 W33-W40 S14-S10
     12 1885  939 (S19W61 L=192)   670     90        1 (1855/ 899-1910/ 983)  33.7 W57-W65 S20-S16
     13 1822  928 (S18W54 L=185)   525     63        0 (1800/ 892-1844/ 960)  76.0 W51-W56 S20-S16
     14 1614  865 (S18W35 L=166)   280     74        1 (1592/ 838-1644/ 896) -53.1 W33-W36 S20-S16
     15  858  835 (S07E13 L=118)   256     98        2 ( 835/ 786- 885/ 888)  51.3 E14-E10 S09-S04
     16  317  863 (N03E48 L= 83)   316     65        1 ( 282/ 846- 344/ 885) -21.8 E51-E46 N01-N03
     17 1431  840 (S16W22 L=153)   275     60        0 (1402/ 814-1453/ 869)  45.0 W19-W23 S17-S14
     18  389  721 (S06E46 L= 85)   690    181        4 ( 361/ 648- 417/ 803)  77.5 E48-E43 S10-S01
     19  270  770 (S02E55 L= 76)   386     64        1 ( 239/ 751- 296/ 792) -36.9 E58-E52 S03-N00
     20 1222  737 (S19W07 L=138)   333    111        0 (1164/ 715-1277/ 759)   8.1 W03-W10 S19-S18
     21  212  665 (S07E66 L= 65)  1847    210        8 ( 170/ 600- 264/ 756)  83.7 E71-E60 S10-S01
     22  280  683 (S07E57 L= 74)   361     56        2 ( 254/ 650- 300/ 711) -63.4 E59-E55 S09-S05
     23 1312  639 (S27W11 L=142)   264     67        0 (1270/ 624-1349/ 652) -31.0 W08-W13 S28-S25
     24 1405  313 (S54W17 L=148)   318     22        0 (1383/ 298-1428/ 329) -26.6 W14-W20 S55-S51
     25 1221  259 (S54E02 L=129)  1082    196        2 (1134/ 216-1306/ 311)   9.5 E11-W07 S56-S50
  

    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