Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1549 1607 (N24W52 L=357)   320     67        1 (1528/1575-1580/1631)  14.0 W48-W56 N22-N25
      2 1261 1566 (N28W29 L=334)   300     51        1 (1234/1547-1294/1584) -33.7 W26-W30 N26-N29
      3  716 1442 (N34E10 L=295)   330     93        1 ( 675/1415- 763/1462)   8.1 E13-E06 N32-N34
      4 1276 1448 (N21W25 L=330)   241     69        0 (1233/1433-1313/1460) -21.8 W22-W27 N19-N22
      5 1652 1415 (N10W50 L=355)   679     97        1 (1604/1392-1704/1439) -29.7 W46-W53 N08-N12
      6  708 1215 (N20E15 L=290)   199     74        1 ( 670/1199- 747/1229) -11.3 E17-E12 N18-N20
      7 1841 1132 (S10W58 L=  3)  1315    206        5 (1804/1036-1867/1223)  48.0 W52-W62 S14-S04
      8 1798 1161 (S07W54 L=359)   621    105        0 (1776/1115-1819/1204)  23.2 W50-W57 S09-S04
      9  622  990 (N09E24 L=281)   252     69        2 ( 592/ 955- 649/1019) -76.0 E25-E22 N06-N10
     10 1604  784 (S24W31 L=336)  4685    959        9 (1216/ 498-1899/ 997)  11.0 W00-W62 S32-S18
     11 1435  928 (S12W22 L=327)   355    150        0 (1358/ 901-1498/ 962)   0.0 W16-W26 S12-S10
     12  446  882 (N06E38 L=267)  1234    307        5 ( 342/ 795- 559/ 949)  11.9 E47-E28 N02-N08
     13 1118  718 (S17E01 L=304)   190     58        1 (1092/ 697-1143/ 743)  26.6 E03-W00 S18-S15
     14  685  317 (S32E44 L=261)  2161    433        5 ( 553/ 219- 880/ 435)   5.9 E66-E24 S37-S28
     15 1026  314 (S41E20 L=285)  1050    284        2 ( 917/ 243-1144/ 385)   9.9 E31-E08 S44-S38
  

    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