Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1197 1747 (N54W06 L= 84)   352     57        1 (1169/1728-1229/1763)   0.0 W03-W09 N51-N55
      2  471 1508 (N26E48 L= 30)  1564    283        1 ( 395/1422- 513/1630) -68.2 E54-E44 N19-N34
      3 1346 1408 (N29W18 L= 96)  1955    525        3 (1142/1245-1458/1544) -35.3 W02-W26 N19-N36
      4  502 1404 (N19E41 L= 37)   374     54        2 ( 477/1374- 531/1428) -26.6 E43-E37 N17-N20
      5 1790 1396 (N32W62 L=140)   459     70        0 (1765/1366-1808/1421) -71.6 W59-W64 N30-N33
      6 1161 1226 (N15W07 L= 84)   398    156        2 (1128/1172-1211/1293) -63.4 W03-W10 N11-N19
      7 1330 1269 (N19W17 L= 95)   204     76        1 (1309/1242-1359/1289) -26.6 W15-W19 N17-N20
      8  458  722 (S23E37 L= 41)   269     60        0 ( 427/ 697- 487/ 746)  38.7 E39-E34 S25-S21
      9 1281  676 (S18W20 L= 98)   616    170        1 (1212/ 625-1354/ 727)  45.0 W16-W24 S21-S13
     10 1705  654 (S15W54 L=132)   544     50        1 (1679/ 633-1731/ 677) -31.0 W51-W57 S16-S13
     11 1697  576 (S21W57 L=135)   743    161        0 (1667/ 516-1750/ 613)  66.8 W53-W62 S24-S17
     12 1634  573 (S21W51 L=129)   415     47        0 (1613/ 550-1650/ 608)  90.0 W49-W52 S22-S18
     13  410  489 (S41E48 L= 30)   625     61        0 ( 383/ 468- 446/ 518) -26.6 E51-E44 S43-S38
  

    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