Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  874 1785 (N60W20 L=297)   383     41        1 ( 850/1759- 895/1807)   0.0 W16-W23 N57-N61
      2 1281 1747 (N41W47 L=324)   583     74        1 (1235/1723-1314/1771) -45.0 W43-W49 N39-N43
      3  717 1703 (N59E02 L=276)   400     55        0 ( 685/1683- 745/1719)   0.0 E05-W01 N56-N60
      4 1140 1593 (N37W26 L=303)  1050    206        3 (1047/1551-1243/1629) -10.6 W18-W34 N33-N38
      5  922 1564 (N41W09 L=287)   294     67        1 ( 889/1542- 953/1581)  -9.5 W06-W12 N39-N42
      6  517 1093 (N22E30 L=247)   563    148        0 ( 470/1046- 574/1142) -53.1 E32-E26 N18-N26
      7 1523 1048 (S04W30 L=307)   836    208        0 (1500/ 950-1560/1141)  45.0 W25-W34 S09-N00
      8  468 1006 (N18E35 L=242)   473    153        0 ( 403/ 974- 541/1030)   0.0 E40-E29 N17-N19
      9 1739  707 (S32W41 L=319)  2741    368        3 (1625/ 587-1814/ 856)  30.1 W29-W49 S36-S23
     10  600  552 (S11E38 L=239)   369     61        0 ( 571/ 516- 626/ 584) -78.7 E39-E36 S13-S08
     11  432  510 (S10E53 L=224)   464     73        0 ( 405/ 483- 457/ 541) -90.0 E54-E51 S12-S08
     12  401  412 (S16E63 L=214)  2048    163        6 ( 335/ 354- 462/ 456) -53.1 E71-E57 S21-S13
     13  725  334 (S28E40 L=237)  1518    213        1 ( 647/ 301- 826/ 376) -12.1 E45-E31 S30-S23
     14 1013  248 (S42E26 L=251)  1705    276        1 ( 908/ 170-1131/ 328)  12.1 E41-E13 S46-S38
     15  874  156 (S46E47 L=230)   524     56        1 ( 848/ 136- 897/ 189)  45.0 E52-E42 S49-S42
  

    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