Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  896 1853 (N47E32 L=196)   940    174        2 ( 865/1810- 919/1902) -48.4 E36-E27 N43-N52
      2 1224 1493 (N25W04 L=232)   777    192        0 (1184/1403-1279/1559)  76.0 W02-W06 N18-N30
      3  511 1396 (N08E39 L=189)  1089    293        4 ( 438/1288- 564/1536)  83.3 E41-E36 N00-N17
      4 1530 1387 (N25W26 L=254)  1103    154        1 (1476/1301-1580/1468) -48.4 W21-W30 N20-N29
      5 1803 1431 (N36W51 L=279)  1248    234        2 (1740/1391-1846/1456)  22.6 W44-W56 N32-N38
      6 1808 1171 (N18W50 L=278)  1161    242        3 (1787/1078-1825/1249) -79.7 W48-W52 N12-N23
      7  606 1152 (S06E27 L=201)   725    173        2 ( 574/1067- 640/1246) -84.3 E29-E25 S10-N00
      8  207 1022 (S18E58 L=170)  2292    471        6 ( 136/ 851- 272/1185)  62.4 E64-E53 S28-S07
      9 1406 1123 (N06W21 L=249)   334     93        0 (1357/1088-1448/1175) -18.4 W17-W23 N04-N08
     10  505  934 (S20E31 L=196)   428    106        1 ( 459/ 893- 536/ 977)  50.2 E34-E29 S22-S16
     11  269  803 (S31E51 L=177)  1503    391        2 ( 185/ 704- 366/ 921)  39.8 E60-E41 S37-S22
     12 1466  733 (S15W33 L=261)  3292    818        5 (1073/ 669-1756/ 784)  20.3 W09-W56 S25-S08
     13  949  630 (S31W03 L=231)   471    151        1 ( 873/ 614-1027/ 645)  23.9 E02-W07 S33-S28
     14  642  562 (S41E19 L=209)  1423    393        3 ( 523/ 504- 818/ 624)  23.7 E30-E05 S46-S34
  

    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