Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1047 1344 (N12E05 L=144)   737    254        2 (1023/1225-1072/1463) -66.8 E08-E01 N05-N19
      2  334 1360 (N02E53 L= 96)   505     93        1 ( 309/1318- 355/1393) -45.0 E55-E49 N00-N04
      3 1260 1270 (N12W09 L=158)   222     68        0 (1216/1247-1291/1289)  45.0 W06-W10 N09-N13
      4 1700 1227 (N20W39 L=188)   531    146        0 (1677/1145-1727/1282)  83.7 W38-W41 N14-N23
      5 1318 1181 (N08W14 L=163)   440    131        0 (1280/1121-1346/1252)  90.0 W12-W15 N03-N12
      6  431 1150 (S09E40 L=109)   239     59        0 ( 413/1128- 457/1179) -45.0 E41-E37 S10-S07
      7 1655 1074 (N09W38 L=187)   245     95        3 (1624/1053-1692/1093)   9.5 W35-W41 N08-N11
      8 1693  946 (N03W44 L=193)   250     95        0 (1658/ 934-1728/ 968)   0.0 W40-W46 N02-N04
      9 1653  636 (S15W50 L=199)  1658    338        7 (1490/ 520-1773/ 786)  60.3 W42-W56 S24-S03
     10 1177  680 (S24W17 L=166)  1014    264        1 (1029/ 652-1299/ 719)  29.4 W07-W23 S27-S18
     11  897  634 (S32W00 L=149)   209     45        1 ( 872/ 620- 926/ 654)  33.7 E01-W02 S33-S31
     12 1378  549 (S27W34 L=183)   274     63        2 (1348/ 531-1410/ 571)  45.0 W32-W36 S28-S24
     13 1465  281 (S40W56 L=205)  1884    324        3 (1351/ 254-1564/ 309)  18.4 W46-W64 S43-S36
     14 1134  289 (S50W32 L=181)   346     78        0 (1094/ 277-1179/ 300)  26.6 W28-W34 S51-S47
  

    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