Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  798 1676 (N46E23 L=127)  2619    438        5 ( 675/1593- 949/1728)  10.3 E33-E08 N39-N50
      2 1167 1633 (N44W10 L=160)   427    102        2 (1130/1594-1208/1664)  39.8 W07-W14 N41-N46
      3 1573 1541 (N37W43 L=193)   438     99        0 (1537/1525-1609/1559)   0.0 W39-W46 N36-N38
      4  819 1281 (N18E14 L=136)   806    237        4 ( 761/1216- 876/1358) -83.7 E17-E10 N14-N23
      5  344 1209 (N12E48 L=102)   445    120        0 ( 321/1152- 371/1255) -50.2 E51-E45 N08-N14
      6  730 1197 (N13E19 L=131)   313     94        3 ( 695/1166- 763/1228) -11.3 E21-E16 N10-N14
      7  851 1176 (N12E11 L=139)   214     57        0 ( 839/1142- 863/1208)  90.0 E12-E10 N09-N13
      8  698 1141 (N09E21 L=129)   554    199        2 ( 640/1095- 796/1199) -24.4 E25-E14 N06-N12
      9 1078  894 (S05W04 L=154)   250    107        0 (1062/ 836-1094/ 946)  90.0 W02-W04 S08-S01
     10  251  769 (S16E57 L= 93)   654    133        1 ( 227/ 719- 289/ 824) -66.8 E59-E53 S19-S12
     11  409  442 (S39E51 L= 99)  1625    404        2 ( 347/ 391- 469/ 499)  30.1 E62-E42 S44-S33
     12 1303  406 (S38W24 L=174)   309     71        1 (1264/ 394-1346/ 420)   8.1 W20-W27 S38-S36
     13 1176  382 (S40W14 L=164)   283     37        0 (1152/ 369-1202/ 397) -26.6 W12-W16 S41-S38
     14 1065  356 (S42W05 L=155)   288     51        1 (1043/ 342-1092/ 376) -26.6 W03-W07 S43-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