Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1295 1806 (N42W50 L=  2)  2108    353        2 (1145/1759-1457/1849) -17.8 W34-W62 N35-N46
      2  949 1655 (N43W14 L=325)   451     77        1 ( 916/1615- 985/1691)  29.7 W11-W18 N40-N44
      3  776 1596 (N44E01 L=310)   401    135        1 ( 724/1566- 851/1618)  -5.7 E05-W05 N42-N45
      4 1710 1360 (N05W52 L=  4)   932    136        2 (1664/1294-1745/1411) -90.0 W49-W54 N00-N08
      5  654 1243 (N25E17 L=294)   289     79        1 ( 610/1214- 682/1263) -31.0 E20-E15 N22-N25
      6 1731 1112 (S09W46 L=357)  1805    311        1 (1674/ 952-1763/1250)  49.1 W38-W51 S16-S01
      7  908 1205 (N16E02 L=309)   208     60        0 ( 877/1184- 937/1228) -56.3 E03-W00 N14-N18
      8  236 1131 (N27E53 L=258)  1472    273        1 ( 127/1055- 341/1204) -24.0 E70-E43 N20-N33
      9  382 1149 (N25E39 L=273)   370     68        2 ( 360/1107- 403/1182) -90.0 E40-E36 N22-N27
     10  995 1144 (N11W01 L=313)   405    108        0 ( 943/1128-1054/1162) -21.8 E01-W04 N09-N12
     11  503 1061 (N17E31 L=281)   630    263        0 ( 400/ 992- 562/1138)  15.9 E39-E25 N14-N20
     12  216  833 (N10E60 L=252)   886    128        2 ( 178/ 783- 261/ 880)  20.0 E65-E53 N07-N11
     13  374  792 (N05E46 L=266)   589    119        1 ( 317/ 767- 424/ 813) -20.6 E50-E41 N02-N06
     14  867  729 (S09E16 L=296)   335     75        0 ( 850/ 684- 886/ 769)  78.7 E16-E14 S11-S06
     15 1407  646 (S27W14 L=326)   320     48        0 (1385/ 614-1428/ 676)  33.7 W12-W15 S28-S25
     16  724  570 (S15E29 L=282)   263     67        0 ( 705/ 531- 744/ 605)  78.7 E29-E27 S17-S12
     17  350  428 (S16E67 L=244)  5200    426        9 ( 245/ 256- 480/ 560)  73.7 E79-E61 S30-S06
     18 1497  410 (S47W18 L=329)   489     92        0 (1440/ 392-1532/ 437)  -6.3 W12-W21 S49-S45
     19  878  321 (S35E31 L=281)   932    175        1 ( 799/ 265- 938/ 379)  14.0 E39-E23 S37-S32
  

    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