Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1304 1763 (N56W16 L= 84)   885    143        0 (1228/1742-1374/1788)  -3.4 W07-W24 N54-N57
      2  702 1534 (N29E30 L= 39)  1181    232        2 ( 666/1416- 759/1605) -81.3 E32-E26 N21-N34
      3  397 1535 (N25E56 L= 12)   621    106        0 ( 366/1487- 442/1568)  71.6 E58-E52 N21-N27
      4  505 1437 (N20E41 L= 27)   291     74        1 ( 472/1420- 552/1457)  18.4 E43-E37 N18-N21
      5  438 1163 (N03E40 L= 29)   685    173        1 ( 372/1096- 483/1204) -18.4 E45-E35 N00-N05
      6 1702 1143 (N15W45 L=114)   320     66        0 (1680/1107-1722/1175) -45.0 W43-W47 N13-N17
      7 1509  955 (N02W31 L=100)   607     97        3 (1477/ 908-1532/1002)  90.0 W28-W32 N00-N04
      8  882  920 (S07E08 L= 61)   580    169        0 ( 830/ 854- 937/ 982)  60.9 E10-E04 S11-S02
      9 1765  678 (S12W59 L=128)  1094    133        2 (1730/ 615-1805/ 744)  90.0 W56-W62 S16-S08
     10 1797  637 (S15W66 L=134)   630    106        2 (1773/ 600-1816/ 697) -66.8 W63-W68 S17-S10
     11 1638  586 (S20W50 L=118)   311     52        0 (1614/ 571-1669/ 600)  11.3 W47-W52 S20-S18
     12 1684  496 (S25W61 L=129)   676    101        1 (1644/ 471-1725/ 525)  39.8 W57-W64 S27-S22
     13 1411  315 (S41W46 L=114)  1477    197        4 (1345/ 275-1504/ 362)  48.4 W40-W51 S45-S36
  

    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