Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1036 1555 (N37W18 L=339)   560    156        1 ( 966/1515-1101/1601)   4.8 W12-W24 N35-N37
      2 1332 1562 (N28W37 L=358)   308     83        0 (1295/1540-1381/1577)  -8.1 W33-W40 N26-N28
      3  851 1521 (N40W04 L=325)   326     68        0 ( 810/1492- 875/1543) -45.0 W01-W05 N38-N42
      4 1771 1329 (N01W58 L= 19)   423     79        1 (1746/1298-1787/1376)  23.2 W53-W61 N00-N03
      5  819 1287 (N27E05 L=316)  1253    348        3 ( 649/1245- 966/1329) -16.7 E16-W04 N22-N30
      6  254 1287 (N41E54 L=267)  1009    171        2 ( 185/1264- 345/1309)  -9.5 E66-E42 N38-N42
      7 1829 1110 (S12W55 L= 16)  1235    163        2 (1795/1028-1865/1182)  45.0 W50-W60 S16-S08
      8  485 1038 (N20E33 L=288)  1108    359        1 ( 326/1008- 647/1053) -16.3 E46-E22 N15-N23
      9 1760 1016 (S15W46 L=  7)   371     70        0 (1733/ 987-1788/1049) -59.0 W44-W48 S17-S12
     10 1607  969 (S12W33 L=354)   759    145        1 (1557/ 909-1640/1039)  26.6 W28-W36 S14-S08
     11  316  789 (N10E52 L=269)  3172    505        6 ( 253/ 566- 414/ 994)  80.9 E56-E46 S04-N21
     12  742  926 (N09E18 L=303)   270    117        0 ( 691/ 891- 780/ 965) -56.3 E20-E16 N05-N11
     13 1364  754 (S17W12 L=333)   293     68        0 (1337/ 723-1393/ 782)  26.6 W10-W14 S18-S16
     14 1160  749 (S12W00 L=321)   277     52        0 (1131/ 720-1185/ 774)  18.4 E01-W02 S13-S10
     15 1098  710 (S12E04 L=317)   231     79        1 (1086/ 669-1115/ 748)  76.0 E05-E02 S14-S10
     16 1328  582 (S27W06 L=327)   292    107        0 (1309/ 532-1353/ 626)  45.0 W03-W08 S29-S24
     17  789  448 (S20E31 L=290)   760     85        3 ( 756/ 405- 828/ 489)  33.7 E34-E27 S22-S17
     18  439  426 (S14E58 L=263)  1839    266        2 ( 368/ 364- 528/ 477) -14.9 E67-E50 S18-S11
     19  502  328 (S22E60 L=261)  1127    189        2 ( 437/ 285- 532/ 398)  28.1 E70-E53 S25-S17
     20  753  369 (S25E37 L=284)   274     53        1 ( 729/ 344- 778/ 397) -90.0 E38-E36 S26-S22
     21 1498  319 (S55W14 L=335)   710     89        0 (1453/ 298-1538/ 337) -28.6 W08-W19 S59-S51
     22  765  179 (S40E54 L=267)  1074    119        2 ( 741/ 128- 787/ 237)  23.5 E69-E46 S44-S34
  

    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