Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1195 1812 (N47W49 L= 88)   516     87        1 (1167/1779-1227/1850)  63.4 W45-W55 N43-N49
      2  597 1686 (N62E13 L= 25)   971    162        2 ( 544/1640- 675/1723)   0.0 E20-E02 N58-N63
      3  897 1580 (N42W10 L= 49)   668    150        1 ( 837/1526- 955/1625) -70.0 W07-W12 N36-N47
      4 1299 1542 (N27W34 L= 72)   864    280        0 (1167/1514-1423/1556) -35.5 W25-W40 N21-N31
      5  971 1366 (N27W07 L= 45)   558    148        2 ( 906/1328-1025/1401) -54.5 W03-W10 N23-N30
      6 1092 1352 (N22W13 L= 52)   202     40        2 (1072/1323-1107/1373) -90.0 W12-W14 N20-N23
      7 1184 1278 (N16W16 L= 55)   339    124        1 (1152/1222-1217/1321)  71.6 W14-W17 N12-N18
      8 1034 1292 (N21W08 L= 47)   314    145        0 ( 967/1258-1064/1319)  -9.5 W03-W09 N18-N22
      9  867 1182 (N19E05 L= 34)   444    232        0 ( 774/1146- 982/1211) -45.0 E09-W00 N14-N23
     10 1818 1052 (S16W53 L= 92)  1644    315        5 (1787/ 931-1842/1200)  65.0 W48-W59 S23-S08
     11  131 1070 (N29E72 L=327)   562     65        0 ( 106/1052- 161/1095)  18.4 E77-E66 N27-N30
     12 1899  952 (S25W62 L=101)  1085    139        1 (1848/ 910-1938/1021)   7.6 W54-W70 S27-S22
     13 1286  629 (S23W04 L= 43)   332     48        1 (1262/ 595-1308/ 652)  56.3 W03-W06 S25-S21
     14 1147  480 (S29E09 L= 30)   833    253        0 (1044/ 419-1198/ 565)  19.7 E16-E02 S31-S24
     15 1122  295 (S42E19 L= 20)  1446    317        1 (1012/ 209-1251/ 395)  14.5 E32-E05 S45-S37
  

    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