Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  667 1779 (N32E52 L=261)  1162    143        0 ( 620/1742- 725/1815)  -7.6 E59-E44 N29-N34
      2  660 1588 (N19E39 L=275)   596    126        1 ( 631/1534- 695/1644) -82.9 E40-E37 N15-N23
      3  307 1544 (N09E68 L=246)  3477    239        4 ( 228/1475- 395/1623)  42.5 E77-E61 N03-N14
      4 1459 1420 (N30W16 L=330)  2120    538        3 (1345/1192-1563/1605) -43.7 W04-W27 N18-N40
      5 1690 1284 (N29W37 L=350)   814    128        1 (1631/1234-1736/1319) -11.3 W31-W41 N27-N30
      6 1156 1137 (N05W04 L=318)   719    216        0 (1083/1069-1201/1236)  79.7 W01-W05 N00-N11
      7 1510 1086 (N12W27 L=340)   285    138        0 (1466/1038-1535/1125) -36.9 W22-W28 N08-N13
      8 1769 1003 (N15W48 L=  2)  1394    222        3 (1712/ 909-1824/1092) -48.4 W42-W54 N09-N19
      9 1641  825 (N01W43 L=356)   701    128        1 (1581/ 796-1703/ 865)  10.3 W37-W48 N00-N02
     10 1249  704 (S16W22 L=335)   271     69        0 (1216/ 674-1277/ 736)  68.2 W20-W22 S18-S13
     11 1341  670 (S15W28 L=342)   520    150        0 (1266/ 644-1412/ 688)  32.0 W24-W32 S18-S13
     12  255  616 (S49E59 L=255)  2464    221        3 ( 175/ 570- 353/ 684)  -1.8 E75-E42 S51-S45
     13 1698  587 (S09W58 L= 12)   404    108        0 (1667/ 541-1718/ 633) -63.4 W55-W59 S12-S06
     14 1100  341 (S42W30 L=344)   710     98        2 (1049/ 313-1148/ 378)  12.5 W24-W34 S43-S40
     15 1282  345 (S36W42 L=356)   313     77        0 (1238/ 335-1325/ 358)  15.9 W38-W45 S37-S34
  

    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