Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1368 1762 (N46W32 L= 76)   468     47        1 (1346/1737-1397/1786)  38.7 W28-W34 N44-N48
      2 1430 1675 (N39W33 L= 77)   394     50        0 (1405/1651-1453/1697) -33.7 W30-W35 N37-N40
      3 1192 1579 (N31W12 L= 56)  1037    256        2 (1069/1517-1294/1616) -18.4 W03-W18 N27-N34
      4 1814 1290 (N14W57 L=101)  1580    213        5 (1781/1199-1857/1381)  74.7 W52-W63 N08-N19
      5  334 1278 (N13E47 L=357)  1059    163        3 ( 311/1197- 360/1358) -78.7 E48-E43 N08-N18
      6  198 1210 (N10E60 L=344)  1524    205        3 ( 170/1114- 244/1275)  71.6 E63-E55 N04-N13
      7  253 1198 (N09E53 L=351)   310     66        2 ( 236/1164- 274/1231)  76.0 E55-E51 N06-N10
      8 1661 1153 (N05W41 L= 85)   436    133        0 (1631/1098-1712/1196)  45.0 W38-W45 N01-N07
      9  522 1076 (N00E31 L= 13)   823    234        0 ( 427/1027- 615/1109)   4.4 E37-E24 S02-N02
     10  846  899 (S11E11 L= 33)  1750    492        2 ( 799/ 669- 880/1092) -90.0 E14-E08 S24-N00
     11 1811  906 (S09W55 L= 99)   394     57        0 (1787/ 876-1836/ 937)  45.0 W52-W57 S11-S07
     12 1628  868 (S12W39 L= 83)   721    237        2 (1569/ 773-1666/ 927) -48.4 W34-W43 S17-S08
     13  428  783 (S17E40 L=  4)  1117    311        0 ( 398/ 700- 506/ 922) -85.6 E43-E34 S21-S08
     14  517  894 (S10E32 L= 12)   809    173        2 ( 449/ 861- 610/ 922)   9.5 E37-E25 S12-S08
     15 1562  803 (S16W35 L= 79)   371    108        0 (1537/ 760-1598/ 846)  59.0 W33-W37 S18-S13
     16  309  694 (S21E53 L=351)  1605    302        0 ( 242/ 595- 373/ 812)  31.8 E65-E44 S27-S14
     17 1299  684 (S24W18 L= 62)   929    308        0 (1163/ 656-1436/ 748)  12.5 W08-W26 S25-S19
     18  553  472 (S37E38 L=  6)  3633    623        6 ( 319/ 369- 822/ 630)  12.8 E79-E13 S43-S26
     19 1752  506 (S34W64 L=108)  1104    116        1 (1703/ 478-1793/ 543)  -3.8 W56-W72 S36-S31
     20 1465  392 (S44W38 L= 82)  2028    268        3 (1355/ 324-1596/ 459)  26.6 W28-W49 S49-S38
     21 1267  326 (S49W22 L= 66)   277     26        0 (1251/ 305-1284/ 355) -68.2 W20-W23 S51-S46
  

    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