Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1153 1551 (N38W14 L=298)   786    245        1 (1044/1484-1243/1607)  22.4 W04-W22 N33-N41
      2  387 1571 (N43E57 L=227)   506     78        1 ( 346/1553- 427/1589)  11.3 E63-E52 N41-N44
      3  891 1525 (N38E06 L=278)   320     97        1 ( 849/1502- 939/1544) -23.2 E09-E02 N36-N39
      4 1715 1452 (N25W59 L=343)   392     80        0 (1683/1439-1756/1464) -14.0 W55-W63 N23-N25
      5  853 1254 (N20E10 L=275)   317     93        1 ( 811/1225- 898/1286) -33.7 E12-E06 N18-N22
      6  500 1219 (N19E34 L=250)   299     89        2 ( 465/1183- 528/1246) -45.0 E37-E32 N17-N21
      7 1365 1194 (N13W23 L=307)   503    196        1 (1275/1163-1439/1219)  -5.2 W16-W27 N10-N14
      8 1458 1128 (N08W28 L=312)   205     55        1 (1439/1094-1473/1157) -90.0 W27-W29 N05-N09
      9  339 1053 (N09E47 L=237)   798    245        1 ( 274/ 950- 394/1139) -47.7 E53-E42 N03-N14
     10 1080  980 (N02W03 L=287)   893    358        0 (1014/ 822-1126/1120) -76.8 W00-W04 S07-N10
     11  732 1066 (N09E18 L=266)   245     73        2 ( 717/1026- 758/1092)  63.4 E18-E16 N06-N10
     12  184 1025 (N08E64 L=220)   459     78        0 ( 164/ 990- 202/1072) -51.3 E66-E61 N05-N10
     13 1820 1000 (S04W57 L=341)   548    121        0 (1771/ 968-1858/1043)  16.7 W51-W62 S05-S01
     14 1827  857 (S13W58 L=343)   457     77        1 (1811/ 822-1857/ 886)  36.9 W56-W61 S14-S11
     15  581  646 (S16E32 L=252)   269     49        1 ( 554/ 628- 606/ 671)  21.8 E34-E29 S17-S14
     16  543  599 (S19E36 L=248)   417     69        1 ( 518/ 562- 577/ 636) -45.0 E37-E33 S21-S16
     17  880  520 (S26E13 L=271)   475    147        1 ( 841/ 455- 935/ 566)  41.2 E17-E09 S30-S23
     18 1474  500 (S33W30 L=314)   384     25        0 (1453/ 475-1494/ 525)  56.3 W27-W31 S34-S30
     19 1424  358 (S44W29 L=313)  3282    263       14 (1304/ 291-1543/ 420)  10.3 W18-W41 S49-S38
     20 1199  352 (S42W09 L=293)   292     40        1 (1185/ 327-1217/ 376)  90.0 W07-W10 S44-S39
     21  856  261 (S47E23 L=261)  3530    513        4 ( 652/ 199-1081/ 329)   9.1 E52-E01 S53-S42
  

    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