Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1074 1720 (N52W10 L= 52)   316     94        1 (1038/1700-1124/1732)   6.3 W06-W15 N50-N53
      2 1256 1615 (N42W23 L= 65)   268     57        0 (1230/1584-1278/1633) -63.4 W21-W25 N39-N43
      3 1482 1523 (N33W39 L= 81)  1078    283        1 (1343/1494-1601/1560) -15.9 W28-W50 N30-N37
      4  412 1427 (N32E47 L=355)   767    146        0 ( 389/1376- 451/1501) -42.0 E53-E41 N28-N37
      5  575 1183 (N16E29 L= 13)   239     74        0 ( 557/1140- 587/1215) -68.2 E30-E28 N13-N18
      6  512 1139 (N13E34 L=  8)   432    194        0 ( 455/1064- 560/1206) -45.0 E38-E29 N08-N17
      7  847 1095 (N10E11 L= 31)   526    108        1 ( 800/1047- 877/1144)  80.5 E13-E08 N06-N12
      8 1855  871 (S11W64 L=106)   656    111        0 (1819/ 834-1876/ 921)  39.8 W59-W66 S13-S08
      9 1212  785 (S11W11 L= 53)   256     74        0 (1177/ 763-1249/ 808)  21.8 W08-W13 S12-S09
     10  270  738 (S12E58 L=344)   615    102        1 ( 239/ 700- 311/ 763)  12.5 E62-E53 S14-S10
     11 1520  704 (S19W32 L= 74)   268     83        0 (1500/ 683-1554/ 734) -26.6 W30-W35 S20-S16
     12 1759  696 (S22W55 L= 97)   434     52        0 (1735/ 672-1783/ 722)  36.9 W52-W57 S23-S19
     13  259  620 (S20E65 L=337)  1056     95        2 ( 240/ 566- 280/ 671)  49.4 E70-E60 S23-S16
     14 1478  595 (S26W30 L= 72)   394     80        1 (1443/ 566-1514/ 625)  21.8 W27-W32 S27-S23
  

    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