Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  443 1647 (N23E62 L= 41)   495     74        1 ( 407/1624- 480/1662)  -4.8 E68-E56 N22-N24
      2 1115 1525 (N30E06 L= 97)   267     86        0 (1071/1502-1149/1550)  -9.5 E09-E03 N29-N31
      3  354 1496 (N12E60 L= 43)   400     62        0 ( 327/1477- 383/1519)  45.0 E62-E57 N10-N13
      4  874 1393 (N16E17 L= 86)   237     67        1 ( 849/1367- 912/1417)  53.1 E18-E15 N14-N18
      5 1153 1346 (N20W01 L=104)   724    145        4 (1110/1279-1187/1412) -60.3 E02-W03 N15-N23
      6  802 1365 (N13E21 L= 82)   243    110        1 ( 750/1326- 832/1386) -18.4 E24-E18 N11-N14
      7 1114 1296 (N16E01 L=103)   199     51        1 (1095/1274-1135/1315) -63.4 E02-W00 N14-N17
      8  197 1063 (S16E62 L= 41)   608     72        0 ( 178/1028- 215/1104)  78.7 E64-E59 S18-S13
      9 1785 1004 (N14W53 L=156)   491    107        0 (1768/ 949-1806/1058) -50.2 W50-W55 N10-N16
     10  832  669 (S27E04 L= 99)   939    237        1 ( 726/ 629- 930/ 728)  47.7 E10-W01 S32-S21
     11 1631  422 (S23W65 L=168)  1234     61        1 (1599/ 390-1658/ 457) -78.7 W60-W70 S25-S20
     12  706  399 (S50E08 L= 95)   484     85        1 ( 671/ 377- 755/ 425)  36.9 E11-E03 S53-S47
     13  983  334 (S47W18 L=121)  1462    236        2 ( 867/ 316-1104/ 352)  20.2 W08-W27 S51-S42
  

    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