Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1448 1711 (N53W07 L=273)   356     31        0 (1423/1693-1468/1728)  11.3 W04-W09 N50-N55
      2  911 1672 (N29E28 L=238)   310     75        1 ( 870/1651- 940/1692)  11.3 E30-E25 N27-N30
      3  635 1526 (N12E38 L=228)   681    177        0 ( 571/1485- 697/1579)  54.5 E41-E36 N09-N17
      4  991 1516 (N21E16 L=250)   561    109        1 ( 960/1463-1028/1562) -29.7 E19-E12 N18-N23
      5  533 1411 (N03E40 L=225)   363     85        1 ( 506/1374- 556/1444) -31.0 E42-E37 N01-N05
      6 1255 1349 (N19W04 L=270)   366    102        1 (1223/1295-1282/1400) -63.4 W00-W05 N15-N21
      7  459 1350 (S02E44 L=222)   313     82        1 ( 429/1328- 501/1366)  11.3 E45-E40 S03-N00
      8  879 1316 (N06E16 L=250)   353    143        0 ( 818/1257- 913/1342) -15.9 E19-E12 N03-N07
      9  768 1229 (S01E20 L=246)   611    233        1 ( 697/1197- 855/1295)   0.0 E25-E14 S02-N00
     10  244 1207 (S14E57 L=208)  1216    297        2 ( 191/1115- 340/1291)  67.4 E62-E51 S19-S07
     11  337 1155 (S15E47 L=219)  1399    292        5 ( 258/1062- 382/1244) -39.3 E56-E42 S20-S11
     12  370 1001 (S24E41 L=225)  1126    215        5 ( 332/ 934- 414/1076)  84.3 E43-E37 S28-S18
     13 1032  864 (S14W05 L=271)   275    120        0 ( 978/ 833-1090/ 911)  60.3 W02-W06 S17-S10
     14  668  861 (S24E16 L=249)   225     68        0 ( 638/ 847- 707/ 878)  26.6 E18-E14 S25-S22
     15  157  786 (S41E60 L=205)   623    101        1 ( 142/ 753- 179/ 813)  63.4 E62-E57 S43-S39
     16  955  769 (S22W03 L=269)   668    201        1 ( 840/ 731-1038/ 806)  37.9 E02-W07 S25-S18
     17  490  602 (S46E26 L=240)   268     98        0 ( 472/ 563- 520/ 642) -38.7 E27-E22 S48-S43
     18 1602  527 (S15W53 L=319)   326     57        0 (1570/ 513-1628/ 543)  11.3 W50-W55 S16-S13
     19 1382  496 (S24W39 L=305)   294    117        0 (1334/ 475-1431/ 517)  14.0 W35-W43 S24-S22
     20  794  428 (S48W05 L=271)   912    186        0 ( 710/ 396- 888/ 470)  11.3 E02-W13 S51-S44
  

    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