Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1394 1671 (N34W49 L=322)  2283    430        4 (1232/1607-1590/1718) -33.1 W36-W60 N24-N40
      2  896 1370 (N30W01 L=274)   513    120        0 ( 847/1341- 953/1388) -18.4 E02-W04 N28-N31
      3 1608 1336 (N09W45 L=318)   786    153        2 (1546/1302-1660/1376) -18.4 W41-W50 N06-N12
      4 1244 1326 (N19W21 L=294)   291    116        0 (1187/1309-1308/1339) -15.9 W17-W24 N16-N20
      5 1779 1288 (N01W58 L=331)   552     65        0 (1753/1258-1806/1320) -71.6 W55-W61 N00-N03
      6 1824  950 (S19W53 L=326)   414     45        1 (1801/ 922-1838/ 976) -76.0 W50-W54 S21-S17
      7 1422  767 (S17W18 L=290)   239     48        0 (1401/ 743-1441/ 794)  26.6 W15-W19 S18-S15
      8  215  711 (N04E67 L=205)   499     57        0 ( 196/ 685- 241/ 732)  14.0 E71-E63 N02-N04
      9  497  690 (S01E41 L=232)   849    168        0 ( 407/ 660- 562/ 708) -20.0 E47-E36 S04-N01
     10  420  560 (S08E52 L=221)   511    122        2 ( 379/ 523- 467/ 603) -56.3 E54-E49 S10-S04
     11  733  470 (S19E33 L=240)   270    116        0 ( 696/ 431- 783/ 503)  18.4 E36-E27 S21-S18
     12  807  413 (S25E30 L=242)   327     76        0 ( 790/ 383- 828/ 444)  68.2 E31-E27 S27-S22
     13  869  264 (S38E35 L=238)  1271    182        3 ( 805/ 217- 937/ 334) -85.2 E38-E32 S43-S30
  

    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