Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  738 1723 (N60E11 L= 23)   396     56        1 ( 714/1695- 765/1745)  26.6 E14-E07 N57-N62
      2  645 1689 (N59E23 L= 11)   812     74        3 ( 611/1644- 680/1720)  81.9 E27-E18 N54-N61
      3  546 1646 (N57E35 L=359)  1081    108        2 ( 505/1597- 598/1686)  81.9 E42-E28 N52-N60
      4  989 1602 (N44W10 L= 44)   647    136        2 ( 924/1577-1059/1628) -21.8 W04-W15 N41-N47
      5 1205 1581 (N38W26 L= 60)   623    109        2 (1149/1558-1267/1600)  -5.7 W21-W31 N36-N39
      6  951 1181 (N17E02 L= 32)   357    108        0 ( 915/1133- 980/1218) -68.2 E03-W00 N13-N19
      7  436 1175 (N24E38 L=356)   260     47        2 ( 419/1151- 454/1208)  76.0 E39-E36 N22-N26
      8  310 1034 (N17E50 L=344)   313     38        1 ( 290/1013- 337/1049)  14.0 E52-E47 N15-N17
      9 1886  854 (S22W65 L= 99)   667    104        0 (1858/ 807-1909/ 898)  26.6 W61-W69 S24-S20
     10 1352  646 (S22W14 L= 48)  1605    298        6 (1283/ 535-1428/ 780) -77.5 W10-W19 S31-S13
     11 1730  667 (S30W46 L= 81)   938    202        1 (1664/ 616-1803/ 732)  14.9 W39-W54 S32-S27
     12 1572  638 (S28W31 L= 65)   344     85        0 (1543/ 606-1606/ 678)  45.0 W28-W34 S29-S25
     13  717  542 (S18E28 L=  6)   244     73        1 ( 693/ 514- 740/ 577)  31.0 E31-E26 S20-S16
  

    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