Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1285 1782 (N41W51 L=208)   739    129        1 (1221/1742-1345/1812) -13.0 W43-W59 N39-N42
      2 1515 1601 (N23W52 L=209)   962    125        2 (1454/1575-1581/1629) -13.0 W47-W60 N20-N25
      3  602 1439 (N41E17 L=140)   420     73        0 ( 566/1410- 638/1469) -50.2 E19-E13 N38-N44
      4 1173 1437 (N24W21 L=178)   331    149        0 (1119/1398-1243/1464) -50.2 W18-W23 N20-N26
      5 1040 1260 (N18W07 L=164)   765    332        0 ( 907/1219-1203/1298) -20.6 W00-W16 N14-N21
      6 1614 1032 (S10W35 L=191)   996    394        1 (1512/ 869-1681/1157) -81.5 W31-W38 S20-N00
      7  422 1030 (N21E38 L=119)   312     70        0 ( 393/1005- 462/1055) -38.7 E39-E34 N18-N22
      8  835 1029 (N11E10 L=146)   204     55        0 ( 808/1010- 855/1055)  14.0 E12-E08 N09-N12
      9  827  978 (N08E12 L=144)   316    118        0 ( 786/ 952- 884/1013)   0.0 E14-E08 N07-N09
     10  556  860 (N08E32 L=125)   267     63        1 ( 539/ 823- 573/ 899)  78.7 E32-E30 N05-N10
     11  307  826 (N11E52 L=104)   331    104        0 ( 272/ 810- 353/ 850)   0.0 E55-E47 N10-N12
     12 1240  591 (S25W01 L=157)   258     75        1 (1196/ 567-1281/ 616)   0.0 E02-W03 S25-S23
     13  916  410 (S27E25 L=131)  1218    260        4 ( 876/ 308- 948/ 536)  49.1 E33-E20 S33-S18
  

    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