Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1360 1862 (N44W64 L=323)  1102     81        2 (1328/1829-1386/1902)   7.4 W55-W78 N42-N46
      2 1265 1835 (N46W51 L=310)   561     74        1 (1246/1795-1292/1866)  17.1 W44-W57 N43-N47
      3 1300 1639 (N32W36 L=295)   722    108        1 (1246/1611-1353/1662) -50.2 W33-W38 N28-N34
      4 1010 1573 (N36W14 L=272)   336     96        1 ( 985/1519-1027/1612)  51.3 W11-W15 N32-N37
      5 1695 1479 (N12W57 L=316)  2046    236        3 (1597/1420-1801/1551) -40.2 W50-W65 N06-N17
      6  427 1516 (N47E35 L=224)   575     43        3 ( 395/1492- 461/1540)   0.0 E38-E31 N45-N49
      7 1265 1473 (N23W26 L=284)   293     95        0 (1225/1448-1300/1491) -36.9 W23-W27 N20-N24
      8  739 1393 (N31E09 L=250)   931    242        1 ( 608/1373- 845/1407) -16.4 E18-E01 N28-N34
      9 1244 1347 (N16W20 L=279)   325    166        0 (1172/1316-1313/1381)   0.0 W15-W25 N15-N17
     10 1007 1110 (N09W01 L=260)   939    345        2 ( 885/1084-1187/1150) -13.2 E06-W11 N04-N11
     11 1649 1063 (S09W39 L=297)   768    151        1 (1604/1002-1689/1131) -66.0 W36-W40 S13-S04
     12 1816 1017 (S16W52 L=311)   399     83        1 (1802/ 969-1834/1058)  51.3 W50-W54 S18-S13
     13  231  933 (N14E56 L=203)  1150    196        3 ( 162/ 844- 294/1002) -48.0 E63-E50 N08-N19
     14  417  773 (N02E43 L=216)   406     98        0 ( 387/ 748- 456/ 797)   9.5 E45-E39 N00-N02
     15  863  725 (S10E16 L=243)   266     46        1 ( 843/ 691- 887/ 758) -90.0 E17-E14 S12-S07
     16  500  504 (S15E47 L=212)   916    254        3 ( 462/ 408- 526/ 638)  49.4 E52-E39 S21-S07
     17 1505  586 (S34W21 L=280)   838    189        3 (1411/ 529-1582/ 632)   4.1 W13-W27 S35-S31
     18  852  592 (S17E20 L=238)   276     70        1 ( 826/ 570- 891/ 624) -63.4 E22-E18 S19-S15
     19  524  385 (S23E52 L=207)   347     67        1 ( 495/ 370- 554/ 405)   0.0 E54-E48 S24-S21
     20  510  318 (S27E59 L=199)  1349    212        1 ( 411/ 291- 595/ 368)   0.0 E78-E49 S29-S25
     21  876  201 (S45E40 L=218)  1489    163        3 ( 806/ 156- 936/ 255)  13.4 E51-E30 S48-S41
  

    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