Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  964 1548 (N31E00 L=131)  1370    441        4 ( 796/1429-1111/1669) -43.5 E12-W08 N22-N41
      2 1254 1573 (N31W20 L=151)   580    145        1 (1185/1530-1319/1617) -36.9 W16-W24 N27-N34
      3  640 1528 (N33E24 L=107)   370     62        1 ( 617/1506- 673/1555) -36.9 E25-E21 N31-N34
      4 1404 1417 (N20W28 L=159)   223     96        0 (1368/1405-1453/1445) -31.0 W25-W30 N18-N21
      5  279 1330 (N22E53 L= 78)  1120    184        1 ( 247/1278- 319/1398)  81.9 E56-E48 N18-N26
      6  564 1326 (N20E28 L=103)   257     80        1 ( 525/1293- 600/1361) -31.0 E30-E25 N17-N21
      7  371 1318 (N21E43 L= 88)   358     71        2 ( 339/1280- 394/1355)  90.0 E46-E41 N18-N23
      8 1751 1130 (N01W50 L=181)   726    127        2 (1703/1091-1787/1163) -15.9 W45-W53 S01-N02
      9 1737  865 (S15W48 L=180)  1180    239        1 (1641/ 789-1823/ 951)  26.6 W40-W56 S19-S10
     10  612  846 (S10E27 L=104)   410     91        1 ( 575/ 807- 654/ 890)  45.0 E29-E23 S11-S07
     11 1524  573 (S33W34 L=165)  2991    646        5 (1308/ 416-1777/ 759)  29.7 W17-W54 S43-S21
     12  659  603 (S25E28 L=103)   743    201        1 ( 623/ 538- 733/ 683) -73.3 E29-E23 S29-S19
     13 1715  647 (S29W50 L=181)   370     66        3 (1682/ 623-1740/ 676)  21.8 W46-W52 S30-S27
     14 1239  445 (S40W12 L=143)   776    128        3 (1199/ 395-1285/ 501) -48.4 W08-W16 S44-S35
     15 1316  257 (S57W24 L=155)   484     65        2 (1281/ 240-1354/ 284)  -5.7 W19-W29 S59-S54
  

    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