Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1401 1544 (N36W08 L= 82)  2377    526        2 (1315/1312-1521/1755) -48.5 E03-W21 N24-N51
      2  382 1637 (N15E67 L=  7)  3457    164        8 ( 324/1572- 456/1709) -54.0 E80-E57 N09-N20
      3  765 1507 (N15E29 L= 44)   413    124        1 ( 723/1469- 797/1535) -18.4 E31-E25 N13-N16
      4 1270 1392 (N22W04 L= 77)   626    294        0 (1171/1280-1355/1491) -25.0 E04-W11 N17-N25
      5  493 1426 (N04E43 L= 30)   395     64        1 ( 452/1411- 527/1445)  31.0 E46-E41 N02-N05
      6 1699 1214 (N25W37 L=110)   869    236        0 (1622/1152-1767/1305) -22.6 W29-W44 N21-N28
      7 1760 1264 (N30W43 L=116)   341     28        0 (1748/1235-1773/1291) -76.0 W41-W44 N28-N32
      8  435 1249 (S07E42 L= 31)   306    106        0 ( 398/1203- 454/1282) -26.6 E45-E39 S09-S05
      9  998 1074 (S03E03 L= 70)   208     28        1 ( 976/1051-1016/1099) -56.3 E04-E01 S04-S01
     10  119 1032 (S26E73 L=  0)  1174     86        3 (  80/ 996- 159/1056)   8.5 E85-E65 S27-S24
     11  982  936 (S11W00 L= 73)   505    134        1 ( 914/ 891-1024/ 981)  66.8 E02-W01 S14-S07
     12 1794  810 (N06W56 L=129)   802    101        2 (1769/ 760-1822/ 864) -81.9 W54-W58 N02-N09
     13 1618  746 (S03W44 L=117)  1378    221        3 (1544/ 629-1657/ 829) -48.4 W36-W49 S09-N00
     14 1830  779 (N05W62 L=135)   546     75        1 (1810/ 743-1850/ 811)  68.2 W59-W65 N02-N07
  

    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