Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1329 1727 (N36W49 L= 86)   363    100        0 (1278/1707-1380/1743) -39.8 W45-W52 N33-N38
      2  562 1659 (N61E18 L= 19)   919    172        3 ( 480/1597- 608/1714)  18.4 E29-E11 N56-N64
      3  921 1580 (N41W12 L= 49)   697    212        0 ( 853/1517-1007/1644) -74.1 W09-W14 N34-N48
      4 1337 1542 (N26W36 L= 73)   878    346        3 (1180/1485-1491/1568) -37.4 W26-W43 N17-N31
      5  991 1374 (N27W08 L= 45)   434    118        0 ( 932/1355-1044/1397) -23.2 W04-W11 N24-N29
      6 1156 1325 (N19W16 L= 53)   492    206        3 (1089/1251-1221/1381) -73.3 W13-W18 N13-N23
      7  892 1189 (N19E03 L= 34)   386    219        0 ( 800/1159- 995/1219) -41.6 E08-W02 N14-N22
      8  408 1120 (N27E38 L=360)   241    102        0 ( 392/1072- 424/1165)  78.7 E38-E36 N24-N29
      9 1840 1026 (S18W55 L= 92)  1990    294        6 (1798/ 913-1907/1130) -66.4 W49-W63 S27-S11
     10  144 1066 (N29E69 L=328)   859     68        3 ( 109/1043- 175/1093)   4.4 E77-E63 N27-N29
     11 1307  643 (S23W06 L= 43)   249     42        1 (1286/ 619-1329/ 663)  33.7 W04-W07 S24-S21
     12 1165  492 (S29E07 L= 30)   786    245        2 (1065/ 433-1216/ 573)  19.7 E15-E01 S31-S24
     13 1141  307 (S41E17 L= 21)  1506    374        2 (1015/ 218-1277/ 420)  13.6 E31-E02 S45-S36
     14  621  343 (S24E49 L=348)   331     66        1 ( 601/ 307- 641/ 377)  68.2 E51-E47 S26-S21
  

    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