Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1354 1735 (N51W39 L=206)   361     73        1 (1313/1714-1383/1747)  -7.1 W34-W42 N48-N52
      2 1014 1681 (N49W03 L=170)   418     92        0 ( 986/1649-1055/1707)  26.6 W00-W06 N46-N51
      3 1176 1663 (N46W17 L=184)   685    161        2 (1097/1640-1244/1685) -18.4 W10-W22 N44-N48
      4 1516 1647 (N42W49 L=216)   422     76        0 (1477/1624-1549/1669) -33.7 W46-W52 N40-N44
      5  395 1568 (N41E57 L=110)   474     96        0 ( 358/1550- 449/1584)   9.5 E63-E50 N39-N42
      6  410 1347 (N26E45 L=122)   576    177        0 ( 356/1291- 443/1418)  66.0 E48-E41 N21-N30
      7  714 1290 (N22E20 L=147)   709    235        2 ( 637/1252- 776/1325)   0.0 E25-E15 N19-N23
      8 1434 1266 (N17W28 L=195)   503    166        0 (1380/1211-1486/1323) -53.1 W25-W31 N13-N21
      9 1549  986 (S01W34 L=201)   226     54        1 (1524/ 966-1576/1000)  14.0 W31-W35 S01-N00
     10 1268  940 (S02W15 L=182)   475    201        2 (1176/ 891-1334/ 989) -33.7 W09-W18 S05-N01
     11 1667  886 (S08W43 L=210)   383     59        1 (1639/ 864-1696/ 902)   0.0 W40-W45 S09-S06
     12  880  842 (S06E10 L=157)   283    119        0 ( 844/ 789- 906/ 885) -63.4 E11-E08 S09-S03
     13 1730  800 (S14W49 L=216)  1176    231        4 (1648/ 727-1794/ 871)  28.3 W42-W55 S17-S09
     14  393  750 (S12E45 L=122)  1115    271        2 ( 342/ 637- 444/ 870)  58.0 E51-E39 S19-S03
     15  154  800 (S09E73 L= 94)  1255     91        2 ( 130/ 743- 176/ 837)  45.0 E79-E67 S13-S06
     16  974  696 (S16E04 L=163)   705    169        0 ( 880/ 651-1043/ 725)  -5.7 E10-W00 S18-S14
     17 1324  606 (S24W19 L=186)  1351    306        5 (1231/ 493-1421/ 699)  49.8 W12-W25 S31-S17
     18 1673  599 (S27W48 L=215)  1049    205        1 (1618/ 530-1736/ 680)  55.0 W43-W52 S31-S21
     19 1054  615 (S22W00 L=167)   619    121        1 (1018/ 561-1096/ 659)  66.8 E01-W03 S25-S18
     20 1297  434 (S36W18 L=185)   277     85        1 (1266/ 415-1329/ 466)  45.0 W15-W20 S37-S33
     21  523  311 (S45E54 L=113)   557     58        2 ( 498/ 293- 553/ 335) -21.8 E57-E50 S46-S42
     22 1135  242 (S53W07 L=174)   466     75        2 (1116/ 213-1155/ 278)  81.9 W04-W08 S56-S49
     23 1240  217 (S57W19 L=186)   590     75        1 (1204/ 190-1264/ 241) -37.9 W14-W23 S60-S53
     24 1311  192 (S61W32 L=199)   987     77        2 (1295/ 150-1332/ 238) -31.3 W25-W49 S69-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