Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  880 1748 (N49E26 L=293)   528     85        1 ( 838/1725- 919/1772)  45.0 E28-E22 N46-N51
      2  789 1615 (N37E26 L=292)   436     88        1 ( 765/1563- 809/1655) -45.0 E29-E23 N33-N39
      3  289 1511 (N23E71 L=248)   644     63        3 ( 260/1476- 311/1539) -63.4 E75-E66 N20-N24
      4 1578 1295 (N24W36 L=354)  2101    403        3 (1490/1137-1632/1446)  57.5 W28-W43 N12-N34
      5  338 1344 (N13E54 L=265)   322     54        1 ( 315/1322- 367/1359)   0.0 E56-E50 N11-N14
      6  418 1103 (S01E41 L=277)   801    131        1 ( 357/1082- 491/1130)   0.0 E46-E35 S02-N00
      7 1855  977 (N06W64 L= 22)   544     42        1 (1840/ 950-1877/1002) -71.6 W61-W66 N04-N07
      8  283  913 (S14E52 L=266)   718    156        1 ( 225/ 864- 346/ 960)  23.2 E59-E45 S17-S10
      9  448  934 (S11E37 L=281)   413    116        0 ( 418/ 905- 488/ 960)  -9.5 E39-E33 S12-S08
     10 1134  749 (S15W10 L=328)   601    231        0 (1102/ 674-1178/ 841) -73.3 W07-W13 S18-S08
     11  493  709 (S24E34 L=285)   298     55        0 ( 470/ 687- 510/ 735)  63.4 E35-E32 S26-S22
     12 1709  632 (S16W56 L= 14)   368     47        1 (1686/ 602-1724/ 660) -63.4 W53-W58 S18-S14
     13 1720  518 (S24W65 L= 23)  2427    366        2 (1598/ 432-1823/ 647)  48.8 W56-W72 S30-S14
     14  389  617 (S32E45 L=273)   493     95        0 ( 349/ 600- 434/ 636)   0.0 E49-E40 S33-S30
     15 1143  290 (S48W23 L=341)  2079    320        6 (1079/ 177-1212/ 430) -77.0 W17-W30 S61-S35
  

    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