Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  917 1721 (N33E31 L=302)   886    166        1 ( 843/1685- 983/1749)  40.6 E34-E26 N27-N35
      2  744 1607 (N20E35 L=297)   463    132        2 ( 700/1556- 780/1662) -83.7 E36-E33 N15-N24
      3 1489 1568 (N42W14 L=347)   372     63        1 (1458/1548-1519/1594)  38.7 W11-W16 N39-N44
      4 1291 1101 (N06W12 L=345)   897    308        4 (1215/1015-1418/1192)  66.8 W08-W17 N00-N14
      5  594 1090 (S14E27 L=306)   735    272        0 ( 510/1043- 701/1131)  13.0 E31-E18 S17-S11
      6 1726 1008 (N15W44 L= 17)   734    197        0 (1670/ 952-1793/1087) -15.9 W37-W51 N13-N17
      7 1506 1013 (N08W28 L=  0)   223     44        0 (1491/ 988-1520/1047) -71.6 W26-W29 N06-N09
      8  250  861 (S35E54 L=279)   475     73        0 ( 216/ 842- 296/ 877)  10.3 E58-E47 S37-S33
      9 1870  816 (N10W66 L= 39)   486     54        1 (1856/ 788-1881/ 858) -56.3 W63-W69 N08-N12
     10 1129  813 (S14W12 L=345)   274    118        0 (1077/ 785-1178/ 847)  56.3 W09-W13 S17-S11
     11  508  706 (S39E26 L=307)  1323    377        3 ( 359/ 662- 694/ 754)  24.1 E40-E11 S45-S31
     12 1379  458 (S26W42 L= 15)  1924    434        3 (1205/ 411-1588/ 522)  39.0 W32-W53 S34-S15
     13 1144  403 (S37W31 L=  4)   277     53        1 (1114/ 378-1167/ 419)   0.0 W28-W33 S38-S35
  

    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