Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1386 1357 (N16W31 L=211)   461    109        2 (1340/1317-1428/1394) -63.4 W28-W32 N13-N19
      2  970 1353 (N27W06 L=186)   452    153        0 ( 915/1302-1039/1381)   0.0 W00-W10 N25-N28
      3  488 1290 (N35E30 L=150)  1860    525        2 ( 326/1185- 714/1349)  -3.5 E46-E12 N29-N38
      4 1788 1263 (S01W58 L=238)   576     48        1 (1755/1238-1818/1284) -15.9 W54-W61 S02-N00
      5 1430 1094 (N01W25 L=205)  1117    344        1 (1382/ 955-1474/1234)  68.2 W22-W30 S08-N07
      6 1870  978 (S20W59 L=239)  1148    194        0 (1820/ 886-1924/1037)  13.2 W51-W68 S23-S17
      7 1890  835 (S30W62 L=242)   785    130        0 (1857/ 782-1913/ 898)  66.8 W56-W66 S33-S26
      8 1339  658 (S22W09 L=190)   915    303        0 (1221/ 584-1418/ 758)  17.4 W00-W16 S24-S18
      9 1497  629 (S29W19 L=200)   331    144        0 (1460/ 572-1540/ 676)  26.6 W15-W23 S31-S26
     10  935  647 (S12E15 L=166)   198     89        0 ( 902/ 629- 976/ 675) -53.1 E16-E12 S13-S09
     11  490  470 (S14E51 L=129)   511     59        2 ( 460/ 437- 518/ 500) -78.7 E52-E48 S16-S11
     12  881  330 (S32E31 L=150)  1055    279        0 ( 813/ 228- 970/ 408)  24.4 E43-E21 S38-S26
     13 1300  367 (S42E01 L=179)   336     55        0 (1284/ 337-1314/ 405)  68.2 E02-W01 S44-S39
  

    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