Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  749 1876 (N39E60 L=350)   769     63        0 ( 735/1838- 763/1911) -28.1 E70-E53 N35-N43
      2 1047 1647 (N31E19 L= 31)   266     58        0 (1024/1626-1067/1675)  90.0 E20-E17 N28-N33
      3  344 1568 (N08E66 L=343)  3659    318        4 ( 254/1472- 474/1664)  49.1 E73-E58 N01-N16
      4  682 1555 (N15E37 L= 13)   344    137        0 ( 645/1497- 735/1600) -20.0 E41-E30 N12-N16
      5  953 1311 (N07E12 L= 38)   591    284        1 ( 913/1201-1010/1415) -74.1 E14-E07 N01-N15
      6  139 1181 (S18E74 L=336)   806     69        1 ( 116/1156- 162/1214)  29.7 E78-E68 S19-S15
      7 1308 1056 (N03W15 L= 64)   243    108        0 (1286/1008-1344/1090)  80.5 W13-W15 N00-N06
      8  408  915 (S29E37 L= 13)   799    158        3 ( 351/ 869- 464/ 969)  45.0 E42-E33 S32-S24
      9  921  751 (S24W02 L= 52)   513    251        0 ( 813/ 711-1022/ 773)  13.0 E04-W09 S27-S21
     10 1202  713 (S18W19 L= 69)   803    196        0 (1119/ 672-1295/ 759)  55.0 W15-W23 S22-S12
     11  650  702 (S35E14 L= 36)   256    107        0 ( 594/ 694- 703/ 713)  26.6 E18-E10 S36-S32
     12  768  556 (S41E01 L= 48)   749    224        1 ( 693/ 499- 871/ 621)  61.7 E05-W03 S46-S33
     13 1146  235 (S48W47 L= 97)   664     80        1 (1116/ 194-1169/ 267) -12.1 W41-W55 S49-S45
     14 1295  183 (S44W68 L=117)  1036     75        1 (1276/ 138-1320/ 222) -10.3 W59-W81 S46-S41
  

    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