Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  951 1475 (N36W06 L=297)  1232    325        0 ( 812/1449-1107/1499) -14.0 E03-W17 N31-N38
      2 1319 1431 (N24W29 L=320)   840    272        0 (1203/1344-1407/1479) -53.1 W22-W32 N16-N28
      3 1303 1270 (N15W22 L=313)   703    246        0 (1257/1199-1365/1317) -90.0 W19-W25 N10-N17
      4 1499 1282 (N11W35 L=326)   315    110        0 (1456/1262-1549/1306)  -8.1 W32-W39 N09-N12
      5 1823 1244 (S01W61 L=352)   620     62        2 (1796/1208-1846/1286)  31.0 W57-W64 S02-N01
      6 1806 1108 (S08W55 L=346)   360     57        0 (1780/1086-1826/1140)   9.5 W51-W57 S08-S06
      7  663 1082 (N18E21 L=270)   232     52        1 ( 644/1053- 685/1113)  76.0 E21-E19 N15-N19
      8  244 1009 (N20E56 L=235)   620    112        1 ( 214/ 965- 282/1060) -40.6 E59-E52 N16-N23
      9  162  973 (N18E68 L=223)   635     54        1 ( 146/ 939- 186/1007) -76.0 E70-E63 N16-N20
     10  678  899 (N07E23 L=268)   695    200        0 ( 632/ 801- 713/ 982) -85.2 E24-E21 N00-N12
     11  358  815 (N07E48 L=243)   282     95        0 ( 345/ 778- 386/ 863) -78.7 E49-E46 N04-N09
     12 1657  797 (S22W36 L=327)   265     61        1 (1638/ 761-1672/ 825) -78.7 W34-W37 S24-S19
     13 1699  776 (S24W40 L=331)   318     83        2 (1672/ 741-1732/ 820)  31.0 W37-W43 S26-S22
     14  295  566 (S08E65 L=226)  6818    447       13 ( 203/ 417- 390/ 729)  49.4 E80-E48 S19-N02
  

    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