Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1462 1756 (N36W58 L=138)  1173    124        3 (1417/1710-1503/1788) -80.5 W52-W66 N32-N38
      2  784 1461 (N34E06 L= 74)  1641    373        3 ( 643/1386- 946/1520) -33.7 E16-W03 N25-N39
      3 1416 1462 (N19W35 L=115)   537    122        0 (1372/1415-1467/1518)  21.8 W30-W40 N16-N21
      4  251 1390 (N41E57 L= 23)   766     73        0 ( 225/1366- 290/1424) -22.6 E62-E50 N38-N43
      5 1260 1397 (N19W23 L=103)   453    128        0 (1189/1373-1321/1419)  -6.3 W17-W26 N17-N19
      6  263 1308 (N35E53 L= 28)  1009    107        4 ( 231/1261- 301/1359) -41.2 E58-E47 N31-N38
      7  243 1034 (N18E54 L= 26)  1248    221        4 ( 212/ 947- 288/1143) -65.2 E56-E50 N12-N25
      8 1097  799 (S12E00 L= 80)   278    120        0 (1083/ 738-1111/ 857)  66.8 E02-W01 S15-S08
      9 1599  767 (S25W32 L=112)   236     45        0 (1579/ 743-1617/ 788) -71.6 W30-W33 S26-S23
     10  829  616 (S17E21 L= 59)   271     74        2 ( 801/ 591- 857/ 649) -63.4 E21-E19 S19-S15
     11 1512  591 (S35W23 L=103)   241     53        0 (1483/ 576-1539/ 607) -14.0 W21-W25 S35-S33
     12  353  458 (S18E65 L= 15)  1067    122        2 ( 324/ 406- 393/ 516)  41.6 E70-E59 S21-S13
     13  500  408 (S24E53 L= 27)   813    161        3 ( 460/ 338- 536/ 495)  57.5 E58-E50 S28-S17
  

    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