Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1055 1584 (N35W19 L=134)   229     56        1 (1026/1570-1084/1601) -33.7 W16-W20 N34-N36
      2  906 1548 (N38W08 L=123)   214     54        0 ( 880/1523- 927/1571)  21.8 W05-W10 N36-N39
      3 1463 1277 (N07W32 L=147)   292     69        0 (1443/1241-1493/1308)  21.8 W29-W34 N05-N07
      4 1642 1159 (S04W41 L=156)  1102    288        1 (1543/1076-1748/1268) -57.3 W36-W46 S11-N03
      5  708 1202 (N22E14 L=101)   270     82        0 ( 678/1163- 746/1240)  26.6 E16-E10 N20-N23
      6  176  964 (N19E60 L= 55)  1814    494        7 (  87/ 881- 298/1028) -32.3 E70-E49 N12-N24
      7 1405  923 (S11W19 L=134)   514    144        2 (1380/ 855-1427/ 997)  69.4 W17-W21 S15-S06
      8 1681  886 (S21W37 L=152)   247     75        0 (1645/ 877-1715/ 896)  -9.5 W34-W40 S22-S19
      9 1604  807 (S23W30 L=145)   304     62        0 (1587/ 768-1626/ 838)  53.1 W28-W32 S25-S21
     10 1046  728 (S13E06 L=109)   199     77        0 (1006/ 707-1088/ 745) -11.3 E08-E03 S13-S12
     11 1711  695 (S34W38 L=153)   511    185        0 (1647/ 658-1776/ 733)  -4.4 W31-W44 S35-S32
     12 1515  639 (S31W21 L=136)   489     67        0 (1472/ 611-1549/ 670)   0.0 W17-W23 S32-S29
     13 1232  516 (S31E01 L=114)   314     60        0 (1217/ 485-1247/ 549)  63.4 E02-W00 S32-S28
     14  794  432 (S24E31 L= 84)   367    112        0 ( 779/ 385- 808/ 481)  50.2 E33-E28 S27-S21
  

    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