Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  527 1660 (N24E50 L=104)  2650    316        5 ( 493/1527- 620/1818) -46.3 E67-E39 N14-N37
      2 1324 1736 (N47W06 L=160)   352     47        0 (1291/1721-1354/1749)  18.4 W03-W09 N45-N48
      3  876 1703 (N33E26 L=129)   742    180        0 ( 795/1653- 934/1734)   0.0 E31-E19 N30-N35
      4  376 1522 (N13E56 L= 98)  1082    192        2 ( 351/1432- 406/1610) -59.7 E60-E51 N07-N19
      5 1088 1548 (N26E06 L=148)   586    129        0 (1066/1492-1112/1602) -76.0 E08-E03 N22-N30
      6  612 1556 (N18E38 L=117)   595    120        4 ( 563/1525- 653/1596)  59.0 E41-E34 N16-N21
      7 1295 1473 (N25W08 L=162)   326    153        0 (1254/1426-1349/1538) -32.0 W04-W12 N23-N29
      8 1886 1219 (N25W62 L=216)  2893    310        4 (1834/1074-1930/1308) -65.2 W54-W70 N16-N29
      9 1683 1196 (N17W39 L=193)   776    128        3 (1651/1130-1708/1254)  83.7 W36-W41 N12-N21
     10  780 1118 (S06E16 L=138)   200     58        0 ( 755/1093- 807/1138)  56.3 E17-E14 S07-S04
     11 1748 1078 (N12W46 L=200)   408     64        1 (1726/1042-1765/1113)  76.0 W44-W47 N09-N13
     12  459 1053 (S14E36 L=118)   680    167        0 ( 420/ 979- 517/1094)  54.5 E38-E32 S18-S11
     13  913  906 (S16E04 L=150)   302     92        1 ( 867/ 879- 954/ 932)  36.9 E07-E02 S17-S13
     14  302  883 (S26E49 L=105)   591    145        0 ( 244/ 833- 354/ 918) -20.0 E55-E43 S28-S24
     15  262  743 (S35E56 L= 99)   556     66        1 ( 230/ 718- 301/ 768) -23.2 E60-E51 S36-S33
     16  579  691 (S34E24 L=130)   246     49        0 ( 561/ 663- 599/ 712)  45.0 E25-E22 S36-S32
     17  984  648 (S30W05 L=159)  1228    404        3 ( 801/ 601-1148/ 689)   7.4 E07-W16 S32-S26
     18 1604  590 (S19W49 L=203)   500    145        0 (1544/ 550-1639/ 649)  74.1 W46-W51 S22-S15
     19  441  571 (S45E38 L=116)  1471    249        2 ( 335/ 536- 551/ 615)   7.1 E50-E26 S47-S41
     20 1108  508 (S36W18 L=172)   363     71        0 (1078/ 478-1148/ 533)  59.0 W15-W19 S38-S33
     21  611  386 (S56E22 L=132)   348     63        0 ( 586/ 360- 627/ 419)  45.0 E26-E20 S59-S53
     22  597  273 (S68E31 L=123)  1375    274        2 ( 489/ 242- 732/ 309)   2.3 E58-E06 S69-S65
  

    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