Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1543 1404 (N13W43 L=342)   414     51        2 (1513/1384-1571/1422) -56.3 W40-W45 N11-N14
      2 1501 1071 (S03W29 L=328)   394    110        2 (1456/1036-1541/1090) -45.0 W25-W31 S06-S01
      3 1433 1034 (S03W23 L=322)   207     62        1 (1413/ 990-1453/1066)  36.9 W21-W25 S05-S01
      4  995 1008 (N07E02 L=297)   192    106        0 ( 947/ 967-1043/1044)  18.4 E05-W01 N05-N07
      5  615  986 (N15E25 L=274)   313     75        1 ( 580/ 961- 656/1010)   0.0 E27-E21 N13-N15
      6  812  986 (N10E13 L=286)   536    184        1 ( 723/ 961- 910/1006) -28.6 E18-E07 N06-N12
      7  173  824 (N13E67 L=232)   805    160        2 ( 136/ 799- 208/ 861)   0.0 E73-E62 N11-N15
      8  246  763 (N09E61 L=238)  1083    239        3 ( 191/ 742- 314/ 792) -13.0 E67-E53 N07-N11
      9 1313  739 (S17W09 L=308)   577     97        3 (1266/ 709-1362/ 781) -18.4 W05-W11 S19-S14
     10 1170  520 (S26E05 L=294)   327    102        0 (1138/ 478-1197/ 569)  39.8 E08-E02 S28-S23
     11  423  501 (S10E55 L=244)   428     64        0 ( 404/ 470- 442/ 540) -90.0 E57-E53 S11-S07
     12  484  492 (S11E50 L=249)   610    155        3 ( 456/ 439- 511/ 523)  35.5 E54-E46 S14-S09
     13  394  449 (S13E61 L=238)  1243    191        3 ( 349/ 414- 442/ 499) -54.5 E65-E56 S15-S08
  

    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