Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1298 1791 (N41W54 L=258)   611    103        1 (1259/1747-1341/1823)   0.0 W46-W58 N39-N42
      2 1712 1371 (N05W54 L=258)   816    153        1 (1641/1317-1764/1412) -48.8 W49-W56 N00-N08
      3 1568 1156 (S02W35 L=239)   265     72        0 (1538/1122-1587/1193)  26.6 W32-W37 S02-N00
      4 1193  919 (S03W06 L=211)   681    245        2 (1150/ 850-1268/1019) -84.8 W04-W09 S09-N02
      5  188  913 (N19E63 L=142)   502     85        1 ( 157/ 883- 217/ 956) -39.8 E66-E59 N17-N22
      6  827  708 (S06E19 L=185)   265    113        0 ( 775/ 685- 885/ 737)   0.0 E22-E15 S06-S04
      7  772  614 (S10E26 L=179)   246     56        1 ( 737/ 596- 804/ 636) -14.0 E27-E23 S10-S08
      8  824  555 (S15E25 L=180)   417     97        2 ( 802/ 513- 852/ 610)  45.0 E27-E22 S17-S11
      9  903  530 (S18E21 L=184)   930    307        2 ( 821/ 425- 963/ 600)  25.0 E30-E15 S23-S12
     10 1331  467 (S35W02 L=207)  1941    420        5 (1157/ 364-1487/ 587)   6.1 E12-W16 S37-S31
     11 1084  465 (S27E13 L=191)  1143    230        1 (1025/ 370-1150/ 565)  31.0 E20-E05 S32-S22
     12  406  418 (S14E62 L=142)  2578    290        8 ( 352/ 307- 484/ 540)  67.6 E70-E57 S22-S05
     13  701  480 (S16E35 L=169)   417    105        0 ( 656/ 463- 754/ 503) -38.7 E37-E32 S18-S13
     14  609  367 (S21E48 L=156)  1321    196        2 ( 553/ 282- 679/ 445)  25.3 E58-E39 S26-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