Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1071 1839 (N55W11 L=312)   553     89        1 (1027/1817-1112/1855) -29.7 W06-W15 N52-N57
      2  788 1716 (N45E16 L=285)   488     60        1 ( 758/1690- 824/1738) -18.4 E18-E12 N42-N47
      3 1230 1634 (N36W19 L=320)   945    282        0 (1083/1609-1341/1652)  -9.0 W07-W27 N33-N37
      4 1643 1604 (N32W54 L=355)   450     89        0 (1600/1582-1687/1621) -20.6 W50-W58 N30-N33
      5  663 1543 (N32E23 L=277)   962    192        0 ( 564/1522- 750/1562)  -7.6 E31-E16 N30-N33
      6 1653 1487 (N24W49 L=350)  1223    217        6 (1584/1425-1735/1558) -42.0 W45-W56 N20-N29
      7 1033 1464 (N25W03 L=304)  1468    422        1 ( 844/1359-1188/1520) -26.6 E09-W12 N17-N29
      8 1586 1367 (N16W40 L=340)  1552    478        5 (1454/1249-1757/1498) -33.7 W31-W52 N08-N25
      9 1307 1332 (N15W19 L=320)   885    312        1 (1238/1236-1392/1441) -74.1 W14-W23 N08-N22
     10 1807 1350 (N15W60 L=  1)   406     73        0 (1779/1328-1823/1386)  45.0 W56-W62 N13-N17
     11  901 1337 (N17E06 L=295)   268    122        0 ( 883/1282- 938/1375)  63.4 E07-E03 N13-N19
     12  259 1309 (N19E55 L=246)   569     68        3 ( 232/1272- 294/1341) -53.1 E58-E51 N17-N21
     13 1022 1247 (N11W01 L=302)   212     97        1 ( 980/1222-1063/1276)  26.6 E01-W03 N09-N12
     14  290 1247 (N15E51 L=250)   306     52        1 ( 266/1234- 323/1265) -18.4 E53-E47 N14-N16
     15  319 1182 (N11E47 L=254)   725     98        1 ( 281/1153- 361/1211) -20.6 E51-E43 N09-N13
     16 1393  890 (S12W22 L=323)  1488    377        1 (1318/ 745-1492/1053)  66.0 W17-W29 S20-S02
     17  711  826 (S13E20 L=280)   331     97        1 ( 682/ 780- 741/ 867)  45.0 E22-E18 S15-S10
     18  987  749 (S19E04 L=297)   362    163        2 ( 959/ 684-1041/ 802)  66.8 E05-W00 S22-S15
     19 1457  618 (S29W29 L=329)   630    189        1 (1414/ 554-1505/ 710)  68.2 W25-W31 S33-S23
     20  736  603 (S27E22 L=279)   471    145        1 ( 698/ 541- 773/ 671)  53.1 E25-E18 S30-S22
     21 1338  507 (S36W21 L=322)   636    138        1 (1269/ 477-1402/ 550)  11.3 W15-W25 S38-S33
     22  993  443 (S39E06 L=295)   627    163        2 ( 925/ 422-1077/ 468) -11.3 E10-W00 S40-S37
     23  653  396 (S40E35 L=266)   585    137        1 ( 584/ 376- 706/ 416)   0.0 E40-E29 S41-S39
  

    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