Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  329 1536 (N13E64 L=349)  2280    419        5 ( 296/1443- 381/1620) -29.1 E73-E55 N08-N18
      2  799 1492 (N20E25 L= 29)   719    168        3 ( 773/1423- 840/1555) -53.1 E28-E21 N16-N24
      3 1252 1367 (N23W06 L= 60)   645    233        1 (1205/1269-1294/1458) -48.0 W01-W10 N17-N27
      4 1719 1340 (N34W42 L= 96)  1935    375        3 (1596/1223-1851/1441) -15.6 W30-W55 N28-N38
      5  812 1308 (N09E19 L= 35)   571    139        4 ( 774/1272- 859/1353) -26.6 E21-E15 N07-N12
      6  245 1230 (S06E59 L=355)  2077    311        5 ( 164/1139- 343/1316)  45.0 E67-E51 S13-N00
      7 1565 1215 (N21W30 L= 84)   311    146        0 (1528/1163-1603/1243)  63.4 W27-W32 N17-N23
      8 1592 1032 (N11W35 L= 89)   532    269        1 (1556/ 911-1613/1154) -70.3 W31-W38 N03-N17
      9  412 1123 (S09E41 L= 13)   271     83        1 ( 380/1105- 447/1142)  31.0 E43-E38 S11-S08
     10  512 1100 (S09E33 L= 21)   262     66        0 ( 481/1078- 544/1118)  36.9 E34-E30 S10-S07
     11 1904  928 (N13W68 L=122)  2243    218        7 (1871/ 865-1936/ 992) -66.8 W64-W73 N08-N16
     12  936  686 (S24W03 L= 56)   329     97        2 ( 886/ 669- 992/ 702)  31.0 W00-W05 S25-S22
     13 1463  298 (S35W56 L=109)   675     74        1 (1426/ 277-1499/ 317)  18.4 W52-W58 S36-S33
     14 1375  276 (S39W51 L=105)   423     26        1 (1355/ 257-1396/ 300) -71.6 W49-W52 S40-S37
  

    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