Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  471 1675 (N18E59 L=  6)   398     89        0 ( 449/1650- 492/1695) -18.4 E61-E55 N16-N18
      2  373 1644 (N14E67 L=357)   751     99        2 ( 338/1614- 403/1670)  53.1 E69-E64 N11-N16
      3  430 1593 (N11E57 L=  7)   462    119        2 ( 412/1561- 457/1629) -23.2 E60-E52 N09-N13
      4  514 1546 (N10E47 L= 17)  1236    407        4 ( 358/1509- 628/1584)  24.2 E60-E39 N05-N15
      5 1022 1494 (N20E14 L= 51)   233     86        0 ( 987/1455-1041/1532) -33.7 E17-E11 N17-N21
      6 1441 1286 (N20W17 L= 81)   854    278        0 (1418/1142-1465/1409) -61.9 W13-W21 N12-N28
      7 1741 1273 (N30W39 L=104)   455     49        1 (1714/1243-1758/1301) -71.6 W36-W41 N28-N32
      8 1614 1109 (N15W32 L= 97)   896    222        2 (1583/ 990-1636/1209) -63.4 W27-W34 N08-N20
      9  265  925 (S31E49 L= 15)  1680    450        5 ( 141/ 893- 385/ 954)   7.1 E62-E38 S33-S28
     10 1453  826 (S05W30 L= 94)   208     40        0 (1432/ 800-1476/ 851)  90.0 W28-W30 S06-S02
     11  888  797 (S23E01 L= 63)   371     92        0 ( 843/ 764- 932/ 828)  71.6 E03-W00 S25-S19
     12  526  678 (S40E23 L= 41)   765    136        1 ( 458/ 653- 580/ 704)  10.3 E29-E18 S42-S37
     13 1087  513 (S33W21 L= 85)  1207    194        0 ( 995/ 453-1184/ 590)  70.3 W16-W23 S39-S25
     14 1426  507 (S22W42 L=106)   818    134        0 (1355/ 465-1487/ 561)  63.4 W38-W44 S26-S17
     15 1517  420 (S24W53 L=117)  1835    371        3 (1374/ 343-1694/ 531)  56.3 W46-W62 S32-S11
  

    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