Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  693 1740 (N43E33 L=183)   362     88        1 ( 655/1710- 726/1766)  59.0 E35-E30 N40-N45
      2 1539 1624 (N38W39 L=255)  3125    383        5 (1390/1521-1703/1694) -14.5 W26-W53 N32-N43
      3 1382 1534 (N30W23 L=239)   305     68        0 (1349/1504-1409/1559) -26.6 W20-W24 N28-N31
      4 1791 1383 (N23W58 L=274)  1381    157        1 (1759/1302-1822/1461) -90.0 W55-W60 N18-N28
      5 1737 1012 (S01W48 L=264)   297     34        1 (1712/ 991-1763/1034)   0.0 W46-W50 S01-N00
      6  666  920 (S12E22 L=194)   338    108        1 ( 631/ 872- 706/ 961)  45.0 E24-E19 S14-S09
      7  395  857 (S16E42 L=174)   629    135        0 ( 359/ 802- 444/ 913) -66.8 E45-E38 S19-S12
      8 1135  832 (S15W08 L=224)   232    114        2 (1111/ 797-1166/ 866)  90.0 W06-W09 S17-S13
      9 1802  721 (S17W61 L=277)  4919    311       14 (1689/ 623-1891/ 813)  40.2 W50-W77 S23-S11
     10  392  781 (S21E43 L=173)   459     35        1 ( 370/ 750- 418/ 810)  63.4 E45-E41 S22-S18
     11 1244  790 (S17W15 L=231)   229     28        0 (1219/ 773-1265/ 807)  33.7 W13-W16 S18-S16
     12 1110  771 (S19W07 L=223)   331     76        3 (1064/ 749-1153/ 794)  -9.5 W03-W09 S20-S17
     13  205  735 (S23E65 L=151)  1356    116        5 ( 176/ 672- 252/ 787)  54.5 E71-E58 S26-S19
     14  281  592 (S32E62 L=154)  2601    188        4 ( 232/ 508- 334/ 687)  22.2 E81-E52 S37-S26
     15 1033  641 (S28W02 L=218)   282    104        1 ( 987/ 619-1080/ 671)  31.0 W00-W05 S29-S25
     16  621  585 (S33E28 L=188)   924    166        2 ( 583/ 518- 668/ 656) -66.0 E30-E24 S37-S28
     17 1371  578 (S30W27 L=243)  1611    438        3 (1177/ 544-1540/ 626)   0.0 W12-W41 S32-S25
     18 1034  501 (S37W03 L=219)   698    161        0 ( 968/ 456-1098/ 562)  45.0 E01-W07 S40-S32
     19  793  538 (S36E15 L=201)   370     56        0 ( 762/ 521- 831/ 561) -21.8 E17-E11 S36-S34
     20 1510  481 (S35W42 L=258)   488    119        0 (1470/ 441-1545/ 539)  74.1 W39-W43 S38-S31
     21 1303  404 (S43W27 L=243)   278     82        0 (1252/ 391-1339/ 416)   8.1 W22-W30 S43-S41
     22  646  298 (S55E37 L=179)   636     56        3 ( 614/ 268- 675/ 323)   0.0 E41-E32 S58-S53
     23  893  179 (S68E12 L=204)   519     48        1 ( 865/ 163- 921/ 200)   5.7 E16-E06 S69-S64
  

    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