Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1598 1661 (N35W54 L=271)  1731    178        2 (1529/1617-1663/1701)  -8.7 W45-W61 N31-N37
      2  360 1439 (N29E46 L=171)   581     91        2 ( 333/1390- 383/1479) -45.0 E50-E43 N25-N32
      3 1443 1370 (N16W29 L=246)   267     70        0 (1426/1332-1467/1403)  59.0 W27-W31 N13-N18
      4 1888 1272 (N08W68 L=284)   917     93        0 (1843/1250-1930/1294)   0.0 W61-W75 N06-N09
      5  874  950 (S05E09 L=207)   369     81        1 ( 831/ 918- 911/ 972) -14.0 E11-E07 S06-S03
      6 1774  863 (S16W51 L=268)   330     52        0 (1762/ 831-1788/ 898)  90.0 W49-W52 S17-S13
      7 1892  823 (S19W66 L=283)   770    117        3 (1868/ 775-1936/ 858)  29.7 W62-W73 S21-S16
      8  369  728 (S14E47 L=170)  1616    302        4 ( 337/ 571- 422/ 845)  66.4 E52-E41 S23-S07
      9  257  689 (S15E59 L=158)  4198    285       13 ( 188/ 585- 337/ 774)  74.7 E69-E49 S21-S10
     10 1389  547 (S34W22 L=239)   600    184        1 (1296/ 513-1461/ 590)  18.4 W15-W27 S35-S31
     11  925  518 (S32E11 L=206)   600    133        1 ( 866/ 500-1003/ 535)   0.0 E15-E05 S33-S30
     12  404  441 (S32E57 L=160)   784     71        2 ( 367/ 413- 446/ 473)   9.5 E63-E51 S33-S30
     13 1116  451 (S38W02 L=219)   698    195        0 (1021/ 432-1213/ 473)  -4.1 E05-W09 S39-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