Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  970 1845 (N60W36 L=263)   387     49        0 ( 946/1821- 995/1867)   5.2 W31-W42 N58-N61
      2 1702 1592 (N18W70 L=296)   751     52        0 (1664/1573-1732/1610)  -9.5 W63-W75 N16-N18
      3 1232 1342 (N19W21 L=247)   650    240        1 (1123/1308-1336/1369) -21.0 W13-W26 N15-N20
      4 1262 1182 (N10W17 L=244)   278    140        0 (1225/1134-1298/1233)  26.6 W14-W20 N07-N11
      5  216  962 (N20E59 L=167)   620     85        2 ( 178/ 935- 263/ 990) -21.8 E63-E53 N18-N22
      6  385  957 (N17E42 L=184)   304    103        0 ( 342/ 920- 418/ 979) -45.0 E45-E39 N14-N19
      7  630  913 (N10E26 L=201)   262     51        1 ( 604/ 885- 657/ 938) -56.3 E26-E24 N08-N11
      8  296  887 (N15E52 L=175)   320     78        1 ( 284/ 841- 306/ 926) -90.0 E52-E50 N11-N16
      9 1619  540 (S40W29 L=255)  1869    454        1 (1455/ 421-1799/ 682)   9.5 W12-W48 S44-S36
     10 1291  651 (S21W06 L=232)   206     35        1 (1269/ 630-1315/ 671)   0.0 W04-W07 S21-S19
     11  574  607 (S07E38 L=188)   343     72        0 ( 542/ 571- 601/ 637) -78.7 E39-E36 S09-S04
     12 1356  584 (S27W09 L=235)   230     37        0 (1344/ 556-1368/ 613) -90.0 W07-W09 S29-S25
     13  796  529 (S16E27 L=200)   800    247        1 ( 725/ 452- 873/ 589) -63.4 E29-E23 S21-S11
     14  951  494 (S22E18 L=208)   470    117        1 ( 905/ 460- 987/ 549)  29.7 E21-E14 S23-S19
     15  695  472 (S17E35 L=191)   302     64        1 ( 673/ 451- 718/ 498)  21.8 E37-E32 S18-S15
     16  457  336 (S22E65 L=162)  2824    168        2 ( 424/ 255- 492/ 408)  35.8 E77-E55 S29-S16
     17 1341  323 (S47W01 L=227)  1319    193        2 (1247/ 288-1422/ 377)  -3.6 E08-W08 S49-S43
     18  655  297 (S28E49 L=177)   430     82        1 ( 626/ 271- 678/ 337)  39.8 E51-E44 S30-S25
     19  874  270 (S36E35 L=191)   575    104        1 ( 843/ 223- 897/ 326)  38.7 E40-E30 S39-S31
  

    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