Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1184 1608 (N33W08 L=255)   481    100        1 (1133/1579-1241/1635)  20.6 W03-W11 N30-N35
      2  412 1511 (N23E47 L=200)   904    159        1 ( 391/1446- 440/1592) -55.0 E52-E44 N18-N28
      3 1694 1507 (N31W48 L=296)   378     56        0 (1675/1482-1710/1539)  76.0 W45-W50 N29-N33
      4  188 1400 (N16E69 L=179)  2603    152        4 ( 146/1339- 233/1463) -69.4 E77-E62 N12-N20
      5  584 1298 (N10E29 L=218)   203    135        0 ( 564/1243- 626/1335)  80.5 E30-E26 N06-N12
      6  819 1275 (N09E14 L=234)   222     61        0 ( 789/1251- 856/1293)  36.9 E15-E11 N07-N10
      7  158  935 (S12E64 L=183)  5770    329        7 (  99/ 783- 236/1062)  79.4 E78-E54 S20-S04
      8  511  981 (S09E32 L=215)   204     49        1 ( 484/ 957- 534/ 994)   0.0 E33-E30 S10-S08
      9 1652  548 (S28W51 L=299)  2472    323        3 (1571/ 426-1761/ 643)  71.6 W45-W59 S36-S21
     10  708  552 (S35E20 L=227)  1253    462        1 ( 531/ 473- 887/ 600)   9.5 E36-E06 S41-S31
     11 1475  542 (S31W36 L=283)   499    131        0 (1419/ 512-1533/ 578)  40.6 W32-W39 S33-S27
     12  336  509 (S39E58 L=189)   397     24        0 ( 313/ 490- 357/ 528)  14.0 E61-E53 S40-S37
     13 1635  321 (S43W72 L=319)   703     52        1 (1611/ 298-1660/ 351)  -5.0 W64-W87 S44-S41
     14 1155  304 (S51W18 L=266)  1233    279        0 (1014/ 275-1268/ 332)   2.2 W05-W31 S53-S48
  

    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