Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1412 1579 (N31W31 L=168)  1096    233        0 (1316/1505-1492/1639) -45.0 W24-W35 N25-N35
      2  527 1586 (N36E35 L=102)   332     81        0 ( 490/1550- 556/1607) -20.6 E39-E31 N32-N37
      3  801 1523 (N29E13 L=125)   878    190        1 ( 733/1476- 905/1580) -30.3 E17-E05 N25-N33
      4  624 1380 (N21E24 L=113)   679    239        1 ( 578/1276- 682/1475) -58.4 E28-E20 N14-N27
      5 1765 1413 (N19W57 L=194)   571     96        2 (1735/1371-1797/1457) -59.0 W54-W59 N16-N21
      6  641 1184 (N09E23 L=115)   324    132        0 ( 611/1126- 659/1247)  74.1 E24-E21 N05-N12
      7 1592 1132 (N02W36 L=174)   508    170        0 (1543/1081-1662/1155)   6.3 W32-W41 N00-N03
      8 1742 1087 (S01W48 L=185)   639    170        0 (1686/1010-1764/1132) -50.2 W43-W49 S05-N01
      9 1627 1006 (S06W38 L=176)   339     84        0 (1585/ 969-1658/1039) -38.7 W35-W40 S07-S03
     10  279  882 (S07E51 L= 86)  2218    390        5 ( 205/ 799- 418/1024) -32.9 E57-E40 S11-N01
     11 1560  974 (S07W33 L=171)   231     54        2 (1535/ 947-1586/ 995) -26.6 W31-W35 S08-S05
     12  336  934 (S04E46 L= 92)   410     61        1 ( 301/ 905- 359/ 969) -76.0 E48-E43 S06-S02
     13 1369  831 (S15W21 L=158)  1041    379        2 (1245/ 710-1495/ 912)  36.3 W12-W29 S22-S10
     14 1589  880 (S13W36 L=173)   586     91        3 (1553/ 830-1627/ 909) -31.0 W33-W38 S15-S11
     15 1503  843 (S15W30 L=167)   432    111        1 (1460/ 797-1532/ 892)  63.4 W26-W31 S17-S11
     16 1834  792 (S19W59 L=197)   351     65        1 (1814/ 766-1860/ 827)  36.9 W57-W61 S20-S16
     17 1632  757 (S20W40 L=177)   465    127        0 (1592/ 705-1674/ 820)  60.3 W37-W43 S23-S16
     18  321  717 (S17E51 L= 86)   758    184        1 ( 258/ 657- 371/ 758) -36.9 E56-E47 S20-S14
     19  710  532 (S31E25 L=113)   472    146        0 ( 645/ 518- 792/ 547)   5.2 E29-E18 S32-S29
     20  505  400 (S39E48 L= 89)  1364    177        3 ( 456/ 316- 551/ 477)  27.6 E61-E39 S44-S33
     21  719  220 (S55E41 L= 96)   593     49        1 ( 693/ 195- 743/ 256)  50.2 E45-E36 S58-S52
     22  909  205 (S59E20 L=117)   591     25        0 ( 877/ 186- 940/ 224)   0.0 E24-E15 S60-S56
  

    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