Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  639 1720 (N58E14 L=247)  3554    498        7 ( 432/1616- 829/1821)   5.5 E40-W12 N54-N62
      2 1606 1605 (N22W58 L=318)  5780    396       21 (1491/1491-1702/1708) -65.0 W47-W73 N13-N29
      3 1176 1524 (N28W22 L=282)   646    179        1 (1114/1451-1234/1595) -85.2 W20-W23 N22-N34
      4 1460 1562 (N24W43 L=303)   300     60        1 (1443/1536-1484/1593)  76.0 W40-W45 N21-N25
      5  429 1435 (N41E35 L=225)   384     72        1 ( 388/1421- 465/1452) -14.0 E39-E31 N39-N42
      6  274 1364 (N39E52 L=208)   870    133        1 ( 256/1290- 307/1414)  82.9 E55-E47 N34-N42
      7 1663 1298 (N04W47 L=307)   300     60        1 (1631/1281-1698/1317) -31.0 W44-W49 N02-N05
      8  559  768 (S02E34 L=227)   401     88        1 ( 544/ 724- 576/ 815)  76.0 E34-E31 S04-N00
      9 1606  743 (S27W32 L=292)   284     51        2 (1584/ 718-1628/ 769) -45.0 W29-W33 S28-S25
     10 1328  535 (S34W08 L=268)  1944    523        1 (1113/ 430-1488/ 687)   6.1 E07-W21 S38-S27
     11 1500  441 (S46W21 L=281)   947    198        1 (1429/ 387-1570/ 523)  21.0 W14-W27 S49-S41
     12  393  413 (S20E65 L=195)  2207    153        1 ( 335/ 377- 468/ 452)  -2.4 E81-E57 S23-S17
     13 1066  155 (S58E32 L=228)   571     65        0 (1035/ 137-1095/ 178)  -7.1 E36-E26 S60-S55
  

    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