Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  713 1741 (N40E44 L=321)   500     77        0 ( 683/1710- 745/1776) -71.6 E46-E42 N37-N43
      2 1190 1454 (N29W03 L=  8)   219     78        1 (1174/1415-1212/1493) -51.3 W01-W05 N26-N31
      3  481 1402 (N13E44 L=321)   829    173        2 ( 450/1308- 505/1474) -48.0 E49-E39 N07-N17
      4 1497 1265 (N22W27 L= 32)   689    123        4 (1451/1220-1529/1326)  66.8 W23-W29 N19-N26
      5 1843 1287 (N30W64 L= 69)   531     76        1 (1807/1270-1880/1303)   4.4 W58-W71 N29-N31
      6  685  845 (S17E18 L=347)   708    267        1 ( 640/ 774- 718/ 972)  90.0 E20-E16 S21-S09
      7  600  885 (S16E24 L=341)   648    220        1 ( 535/ 815- 642/ 943) -69.4 E29-E21 S20-S12
      8  852  888 (S11E08 L=357)   282    114        1 ( 826/ 831- 881/ 936)  81.9 E09-E06 S15-S08
      9  244  843 (S25E56 L=309)   436     41        1 ( 219/ 820- 272/ 864)  23.2 E59-E52 S26-S22
     10 1118  630 (S23W13 L= 18)  3129    858        8 ( 791/ 491-1448/ 845)  41.5 E07-W29 S37-S04
     11  190  749 (S32E68 L=297)  1024     96        1 ( 154/ 720- 236/ 774)  12.8 E80-E58 S34-S29
     12  560  523 (S41E27 L=338)  1055    181        3 ( 485/ 488- 641/ 564)  28.1 E34-E19 S45-S36
     13 1705  518 (S19W64 L= 69)  1421    195        2 (1616/ 472-1781/ 543)  22.4 W57-W74 S23-S16
     14 1440  416 (S31W45 L= 50)   899    155        2 (1369/ 387-1511/ 448)  26.6 W39-W50 S34-S28
     15 1209  312 (S44W33 L= 38)   619     47        2 (1183/ 287-1241/ 343)  -8.1 W29-W36 S45-S40
  

    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