Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1559 1649 (N30W52 L= 92)  1242    147        3 (1528/1573-1592/1723)  57.5 W48-W58 N24-N35
      2 1306 1595 (N31W29 L= 69)   658    139        1 (1230/1570-1373/1611) -21.8 W23-W33 N28-N32
      3 1693 1530 (N21W58 L= 97)   403     61        1 (1662/1506-1721/1545) -31.0 W54-W60 N18-N21
      4 1794 1477 (N16W66 L=106)   726     76        4 (1766/1436-1814/1510)  38.7 W62-W71 N13-N17
      5 1360 1340 (N14W25 L= 65)   254     96        1 (1313/1321-1408/1359) -21.8 W22-W27 N12-N15
      6  755 1212 (N15E14 L= 26)   378    123        1 ( 716/1162- 794/1266) -60.3 E15-E11 N11-N18
      7 1718 1114 (S04W46 L= 86)   630     95        1 (1679/1083-1753/1160)  29.7 W42-W49 S05-S01
      8  892 1093 (N06E07 L= 33)   187     62        0 ( 868/1078- 927/1120) -45.0 E07-E04 N04-N07
      9 1295 1033 (S03W16 L= 56)   647    190        0 (1266/ 945-1345/1107)  49.4 W13-W19 S07-N00
     10 1631 1002 (S09W38 L= 78)   637    146        1 (1585/ 969-1695/1049) -32.0 W34-W42 S11-S06
     11  849  941 (S02E11 L= 29)  1579    343        8 ( 719/ 789- 933/1046) -59.0 E18-E07 S12-N04
     12 1473  937 (S11W26 L= 66)   560    187        0 (1454/ 856-1492/1031)  73.3 W24-W27 S15-S05
     13  725  813 (S08E21 L= 19)   248    115        2 ( 675/ 784- 750/ 861)  21.8 E23-E18 S09-S05
     14  195  718 (S06E66 L=334)  1014     80        4 ( 162/ 683- 228/ 757)  10.3 E72-E61 S08-S04
     15  964  515 (S30E12 L= 28)  2397    479        2 ( 858/ 348-1026/ 733)  52.0 E24-E06 S39-S15
     16 1374  663 (S26W17 L= 57)  1138    265        2 (1253/ 614-1483/ 727)  13.2 W08-W25 S28-S23
     17  351  680 (S11E50 L=349)   615    110        1 ( 313/ 642- 378/ 714) -68.2 E53-E47 S13-S08
     18  448  639 (S15E44 L=356)   666    120        5 ( 400/ 586- 474/ 695)  66.8 E48-E40 S18-S11
     19  394  474 (S24E57 L=343)  2635    293        2 ( 299/ 399- 501/ 562)  12.0 E75-E42 S27-S19
     20  709  295 (S41E40 L=359)   546     65        2 ( 673/ 276- 745/ 318)  -9.5 E43-E36 S42-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