Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  655 1751 (N44E48 L=297)   540     69        2 ( 620/1720- 692/1777)  38.7 E50-E45 N41-N46
      2  439 1629 (N31E60 L=285)  1225    143        3 ( 399/1571- 464/1691) -58.0 E66-E53 N27-N35
      3 1205 1580 (N39W05 L=350)   300     99        0 (1163/1547-1243/1612) -26.6 W01-W08 N37-N41
      4 1395 1429 (N31W21 L=  6)   338    126        0 (1363/1367-1427/1471) -54.5 W18-W23 N26-N33
      5 1845 1335 (N30W67 L= 52)   663    101        2 (1807/1294-1876/1370) -18.4 W61-W72 N27-N32
      6  490 1301 (N11E39 L=306)   671    141        2 ( 475/1232- 513/1367) -82.9 E41-E36 N06-N14
      7  876 1251 (N13E12 L=333)   463    186        2 ( 844/1162- 898/1326) -56.3 E15-E09 N07-N17
      8 1158 1133 (N09W07 L=352)   359    123        1 (1128/1079-1186/1184)  66.8 W05-W08 N05-N12
      9 1802 1065 (N12W56 L= 41)   643     69        3 (1768/1032-1831/1089) -31.0 W52-W59 N10-N13
     10 1083  903 (S06W05 L=350)   253     80        0 (1067/ 859-1099/ 934) -76.0 W03-W05 S08-S04
     11  758  702 (S22E13 L=332)   230     91        0 ( 707/ 688- 796/ 715)   0.0 E16-E10 S23-S21
     12 1342  584 (S23W27 L= 12)  2297    577        7 (1129/ 493-1595/ 684)  32.7 W14-W43 S31-S13
     13  797  553 (S32E09 L=336)   450    127        2 ( 743/ 536- 859/ 582) -12.5 E13-E04 S33-S30
  

    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