Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  729 1757 (N29E45 L=214)  1699    195        3 ( 699/1667- 761/1839) -45.0 E54-E39 N22-N35
      2  918 1718 (N31E30 L=230)   850    158        2 ( 882/1642- 952/1786) -36.9 E36-E24 N26-N35
      3 1339 1542 (N32W04 L=263)   718    211        0 (1321/1440-1361/1627) -63.4 W01-W07 N26-N39
      4  725 1600 (N18E35 L=224)   309     31        1 ( 696/1579- 748/1623)   0.0 E37-E33 N17-N19
      5  328 1587 (N10E69 L=190)  1039     60        3 ( 300/1557- 361/1616)   0.0 E77-E64 N07-N11
      6 1730 1404 (N38W39 L=298)  1079    122        1 (1695/1349-1758/1450)  52.1 W35-W42 N33-N42
      7  563 1335 (S01E35 L=224)   397     52        0 ( 540/1299- 582/1368) -26.6 E37-E33 S02-N00
      8  133 1218 (S15E76 L=184)  1666     55        0 ( 107/1162- 156/1263)  63.4 E81-E71 S18-S12
      9  521 1156 (S12E33 L=226)   268     96        0 ( 487/1119- 541/1201)  78.7 E34-E32 S14-S09
     10 1684 1096 (N16W38 L=298)   770    203        0 (1605/1059-1757/1150)  42.3 W32-W43 N12-N22
     11  318 1028 (S24E47 L=212)   329     63        0 ( 283/1017- 363/1039)  14.0 E50-E42 S24-S22
     12  777  747 (S29E07 L=253)   206     37        0 ( 756/ 732- 805/ 766)   0.0 E08-E04 S30-S28
     13 1444  442 (S26W48 L=307)  1959    419        3 (1282/ 411-1625/ 475)  19.7 W35-W63 S31-S18
     14 1152  401 (S38W31 L=291)   412     61        1 (1116/ 373-1191/ 423)   9.5 W28-W34 S39-S37
  

    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