Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  387 1619 (N29E56 L=138)  1537    161        6 ( 320/1574- 441/1666)  29.1 E61-E50 N26-N32
      2 1149 1519 (N26W04 L=198)   734    218        1 (1061/1450-1225/1569) -26.6 E01-W09 N22-N29
      3  427 1358 (N12E42 L=152)  2549    404        9 ( 304/1191- 557/1515) -46.5 E54-E30 N01-N21
      4  697 1398 (N15E23 L=171)   404     77        2 ( 660/1364- 736/1432)  63.4 E25-E20 N13-N17
      5  623 1407 (N16E28 L=165)   241     37        1 ( 604/1383- 650/1428)  45.0 E30-E26 N14-N16
      6 1668 1252 (N15W40 L=234)   497     88        1 (1611/1222-1701/1282)  -8.1 W36-W43 N12-N15
      7 1762 1102 (N07W48 L=242)   289     56        0 (1746/1074-1778/1142) -56.3 W47-W50 N04-N08
      8  184 1095 (S04E61 L=133)   468     76        1 ( 164/1061- 198/1139) -68.2 E62-E58 S06-S01
      9 1845 1066 (N06W57 L=251)   333     41        1 (1824/1040-1861/1085) -33.7 W54-W58 N04-N06
     10  172 1019 (S09E62 L=132)   909     91        3 ( 143/ 983- 202/1054) -45.0 E65-E58 S10-S06
     11  296  910 (S15E49 L=145)  1403    279        3 ( 265/ 794- 339/1021)  63.4 E53-E45 S22-S08
     12  814  941 (S11E12 L=182)   392     99        3 ( 780/ 899- 847/ 975)  63.4 E14-E09 S13-S09
     13  244  939 (S14E54 L=140)   351     59        0 ( 225/ 905- 260/ 972)  76.0 E56-E52 S15-S11
     14  392  888 (S16E41 L=153)   539    115        1 ( 357/ 848- 418/ 936)  45.0 E44-E38 S18-S13
     15  562  883 (S16E28 L=166)  1232    375        2 ( 452/ 795- 654/ 935)  11.3 E36-E21 S21-S12
     16  310  685 (S29E52 L=142)   421     80        0 ( 294/ 648- 322/ 728)  45.0 E54-E49 S31-S26
     17 1438  490 (S34W36 L=230)   330     92        0 (1405/ 470-1484/ 521)  -7.1 W32-W40 S34-S31
     18  970  458 (S41W01 L=195)   361     47        1 ( 942/ 431- 996/ 485) -36.9 E01-W03 S42-S38
     19 1067  421 (S43W09 L=203)   319     91        1 (1026/ 407-1117/ 443)  26.6 W06-W13 S43-S40
     20 1439  215 (S53W62 L=256)   976     88        2 (1394/ 195-1491/ 244)   0.0 W51-W75 S54-S51
  

    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