Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  370 1555 (N19E55 L=277)  2947    374        6 ( 296/1451- 463/1631)  65.2 E60-E48 N11-N24
      2  558 1590 (N23E41 L=292)   779    149        0 ( 503/1540- 604/1617) -16.7 E45-E35 N19-N24
      3  696 1521 (N20E29 L=304)   487     72        1 ( 673/1489- 723/1560) -59.0 E30-E26 N17-N22
      4  569 1409 (N11E34 L=298)  1109    226        1 ( 506/1331- 681/1457)  45.0 E37-E27 N05-N14
      5 1161 1402 (N18W03 L=335)   339     81        0 (1136/1352-1188/1441) -59.0 W00-W05 N15-N20
      6  142 1081 (S11E67 L=266)  1505    367        3 (  73/1056- 220/1122)   8.5 E79-E57 S12-S08
      7 1315  986 (S04W18 L=350)   282     87        1 (1280/ 954-1357/1009) -21.8 W15-W20 S05-S03
      8  540  861 (S22E29 L=303)   785    195        1 ( 455/ 826- 631/ 903)  21.0 E35-E22 S24-S18
      9 1291  797 (S15W20 L=352)   213     54        0 (1266/ 772-1326/ 828)  53.1 W18-W21 S17-S12
     10 1787  702 (S11W60 L= 32)  1266    162        1 (1752/ 624-1828/ 794)  84.8 W56-W61 S16-S05
     11  314  678 (S36E48 L=284)   323     50        0 ( 299/ 645- 331/ 708) -90.0 E49-E47 S37-S33
     12 1838  633 (S14W69 L= 41)   652     80        2 (1820/ 606-1860/ 673)  78.7 W66-W71 S15-S10
     13  980  600 (S32W04 L=336)   464    128        2 ( 942/ 562-1013/ 632) -18.4 W00-W06 S34-S30
  

    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