Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  400 1488 (N31E52 L=235)   401     73        1 ( 375/1461- 436/1520) -18.4 E55-E46 N29-N33
      2 1633 1452 (N30W48 L=335)  1047    158        2 (1575/1383-1689/1501) -41.2 W43-W51 N25-N33
      3 1771 1470 (N30W67 L=354)   667     76        1 (1730/1442-1803/1493) -18.4 W61-W71 N28-N32
      4  376 1024 (N02E44 L=243)   274     70        0 ( 358/ 990- 396/1059) -53.1 E45-E42 N00-N04
      5 1686  957 (S01W45 L=332)   768    122        2 (1655/ 896-1717/1000) -71.6 W42-W47 S05-N01
      6  153  870 (S09E71 L=216)  1536    101        5 ( 127/ 826- 176/ 936)  45.0 E77-E65 S12-S04
      7 1826  856 (S08W60 L=347)   572     79        3 (1794/ 822-1849/ 882)  31.0 W56-W63 S10-S06
      8  260  772 (S14E57 L=230)   416     90        2 ( 247/ 732- 284/ 809)  63.4 E58-E54 S17-S11
      9 1729  699 (S18W53 L=339)   374     71        1 (1708/ 665-1746/ 736)  63.4 W51-W54 S19-S15
     10 1192  680 (S18W11 L=298)   279    101        0 (1175/ 632-1208/ 725) -80.5 W09-W12 S21-S15
     11  206  684 (S21E69 L=218)  2074     96        3 ( 166/ 645- 242/ 724) -45.0 E83-E62 S23-S17
     12 1567  661 (S20W38 L=325)   288     57        1 (1540/ 643-1592/ 677)  14.0 W36-W40 S20-S18
     13  854  572 (S26E11 L=276)   249     95        0 ( 814/ 544- 887/ 607)  33.7 E14-E08 S27-S23
     14 1766  547 (S29W66 L=353)  1012    137        2 (1716/ 506-1813/ 595)  33.7 W60-W71 S31-S25
     15 1112  512 (S30W07 L=293)  1575    349        1 ( 941/ 458-1252/ 573)  21.8 E05-W16 S33-S25
  

    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