Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  275 1484 (N11E69 L=206)  1170    120        2 ( 241/1432- 309/1537) -60.3 E74-E65 N07-N14
      2  303 1433 (N08E62 L=214)   818    127        2 ( 261/1388- 336/1489)  74.1 E64-E57 N04-N11
      3 1458 1369 (N28W21 L=297)   370     79        2 (1433/1322-1475/1406) -59.0 W18-W22 N25-N30
      4 1730 1028 (N13W47 L=323)   309     63        0 (1710/ 997-1750/1059)  53.1 W45-W48 N11-N15
      5 1505 1026 (N08W29 L=305)   276     83        1 (1480/ 985-1521/1053) -56.3 W27-W31 N06-N09
      6  230  940 (S23E57 L=219)  1025    145        2 ( 208/ 874- 252/1004)  71.6 E59-E53 S27-S18
      7 1782  973 (N11W53 L=328)   332     37        0 (1761/ 949-1800/ 994)  45.0 W50-W54 N09-N12
      8 1556  943 (N05W34 L=310)   359     63        1 (1530/ 914-1582/ 981)  76.0 W33-W36 N02-N06
      9  811  758 (S22E07 L=268)   198     39        0 ( 788/ 745- 837/ 778)  18.4 E08-E05 S22-S20
     10  547  629 (S36E25 L=251)   747    173        2 ( 480/ 590- 619/ 693) -14.0 E30-E18 S38-S33
     11 1194  630 (S22W19 L=295)   219     88        0 (1149/ 618-1236/ 642)  18.4 W16-W22 S22-S20
     12  226  613 (S45E69 L=207)   709     49        1 ( 202/ 589- 254/ 637)  12.5 E82-E62 S47-S43
     13 1510  447 (S25W50 L=326)  1056    189        3 (1439/ 402-1572/ 492)  58.0 W44-W54 S29-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