Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  589 1668 (N36E37 L= 85)  3183    588        8 ( 434/1593- 750/1750) -19.4 E57-E22 N30-N43
      2  567 1418 (N19E32 L= 91)   465    144        1 ( 526/1368- 615/1466) -36.9 E35-E27 N15-N21
      3  499 1401 (N17E36 L= 86)   317     59        1 ( 483/1372- 517/1429)  76.0 E37-E34 N15-N19
      4  426 1340 (N13E41 L= 81)   458     97        0 ( 411/1288- 442/1392) -80.5 E42-E39 N10-N16
      5 1225 1230 (N09W11 L=133)   455    131        0 (1181/1167-1273/1301) -53.1 W08-W14 N05-N13
      6  756 1048 (S04E16 L=106)   282     33        1 ( 739/1019- 776/1079)  90.0 E17-E15 S05-S01
      7 1787  787 (S14W55 L=177)   872    144        1 (1740/ 760-1837/ 820)  26.6 W50-W60 S15-S11
      8 1253  693 (S23W16 L=138)   473    146        1 (1177/ 663-1326/ 731)  29.1 W11-W20 S25-S20
      9  521  614 (S31E34 L= 88)  1289    358        0 ( 443/ 490- 638/ 730)  38.3 E43-E24 S39-S23
     10 1809  661 (S21W61 L=183)   718    166        0 (1749/ 613-1855/ 709)  41.2 W55-W64 S24-S17
     11  978  569 (S33E01 L=121)   386     73        2 ( 941/ 542-1024/ 588)  36.9 E03-W01 S34-S31
     12  615  323 (S52E36 L= 86)   367     63        0 ( 599/ 299- 632/ 349)  38.7 E39-E33 S54-S50
  

    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