Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1312 1722 (N48W38 L= 47)   484     72        1 (1278/1689-1339/1752) -78.7 W35-W40 N45-N50
      2 1254 1615 (N41W26 L= 35)   436     67        1 (1224/1577-1280/1641) -68.2 W24-W28 N37-N43
      3 1694 1489 (N25W60 L= 69)   804     92        0 (1647/1457-1729/1515) -39.8 W55-W63 N22-N27
      4  340 1424 (N35E54 L=315)   510     67        0 ( 308/1401- 376/1447)  -6.3 E58-E49 N33-N36
      5 1035 1414 (N29W05 L= 14)   301    105        0 ( 986/1389-1083/1435) -33.7 W01-W07 N27-N31
      6  411 1325 (N28E43 L=326)   278     38        0 ( 395/1303- 428/1350) -71.6 E44-E41 N27-N30
      7 1261 1054 (N05W15 L= 24)   269     90        0 (1234/1013-1292/1088)  45.0 W12-W16 N02-N06
      8 1559 1053 (N01W35 L= 44)   230     36        0 (1534/1031-1578/1075)  33.7 W32-W36 N00-N02
      9 1525  830 (S12W31 L= 40)   263     68        0 (1495/ 803-1551/ 855)  36.9 W28-W32 S13-S10
     10 1719  794 (S17W47 L= 56)   509    132        1 (1685/ 749-1739/ 828)  68.2 W43-W48 S20-S14
     11  376  706 (S10E48 L=321)   742    175        2 ( 343/ 632- 398/ 771) -83.7 E50-E45 S14-S05
     12 1288  562 (S27W13 L= 22)  1880    585        1 (1097/ 425-1535/ 733)  25.8 W00-W31 S35-S18
     13 1000  691 (S15E05 L=  4)   255    137        1 ( 948/ 674-1048/ 715) -18.4 E07-E01 S16-S12
     14 1108  649 (S19W02 L= 11)   489    149        1 (1062/ 601-1135/ 710)  74.1 E01-W03 S21-S14
     15  499  647 (S14E39 L=330)   645    165        0 ( 441/ 617- 542/ 689) -23.2 E43-E35 S16-S11
     16 1711  628 (S28W49 L= 58)   347     65        0 (1676/ 614-1743/ 646)   8.1 W45-W52 S29-S27
     17  723  613 (S18E24 L=345)   316     55        1 ( 690/ 593- 752/ 638)   0.0 E26-E21 S19-S16
     18 1593  594 (S29W37 L= 46)   365     50        1 (1560/ 579-1624/ 615) -26.6 W34-W40 S30-S27
     19  799  532 (S24E20 L=349)   397     88        0 ( 779/ 489- 830/ 574)  45.0 E22-E17 S26-S21
     20 1262  422 (S37W11 L= 20)   607    164        2 (1182/ 403-1340/ 450)  -4.8 W05-W17 S38-S35
     21  822  354 (S38E24 L=345)   418     58        2 ( 786/ 335- 857/ 371) -21.8 E26-E21 S39-S35
     22  922  292 (S44E18 L=351)  1539    205        2 ( 865/ 222- 993/ 348)  34.5 E26-E10 S50-S39
  

    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