Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1773 1550 (N11W74 L=  3)   838     94        3 (1746/1519-1802/1591) -90.0 W71-W79 N08-N13
      2 1172 1500 (N27W23 L=312)   422     51        0 (1141/1470-1209/1526)   9.5 W20-W26 N25-N28
      3 1572 1505 (N15W50 L=338)  1069    146        1 (1498/1476-1645/1525) -17.1 W43-W56 N13-N17
      4  242 1331 (N43E55 L=233)   830    145        0 ( 192/1299- 318/1352)   0.0 E63-E44 N41-N44
      5 1243 1251 (N12W18 L=307)  1398    452        0 (1075/1141-1423/1312) -46.7 W09-W25 N00-N18
      6 1701 1257 (S01W48 L=337)   948    153        2 (1633/1219-1751/1285)  -5.2 W41-W52 S03-N00
      7 1825 1174 (S10W57 L=346)  1402    176        7 (1792/1076-1864/1237)  32.5 W51-W63 S14-S06
      8  740 1109 (N17E14 L=275)   452    138        1 ( 717/1054- 771/1177)  82.9 E15-E12 N13-N21
      9 1681  781 (S27W35 L=324)  2615    583        3 (1530/ 536-1821/ 993)  31.5 W19-W51 S39-S19
     10  645  876 (N07E25 L=264)   619     90        3 ( 597/ 837- 701/ 912) -26.6 E28-E22 N04-N08
     11 1310  678 (S22W07 L=296)   511    141        0 (1256/ 633-1362/ 736)  24.0 W02-W11 S23-S19
     12  227  680 (N04E66 L=223)  1234    153        2 ( 165/ 653- 278/ 716)   0.0 E76-E58 N02-N05
     13  666  576 (S11E33 L=256)  1240    333        1 ( 599/ 523- 749/ 671) -79.7 E36-E27 S15-S04
     14  326  484 (S09E66 L=223)  7738    351        9 ( 246/ 361- 422/ 608)  80.0 E77-E59 S18-S01
     15  575  432 (S17E46 L=242)  1338    298        5 ( 479/ 364- 684/ 527) -63.4 E51-E41 S23-S09
     16 1147  502 (S28E08 L=281)   241     51        0 (1125/ 479-1168/ 523)  14.0 E09-E05 S29-S26
     17  466  383 (S18E59 L=230)  1751    164        4 ( 422/ 308- 498/ 469)  36.3 E68-E52 S23-S12
     18 1396  376 (S46W05 L=294)   416     93        0 (1373/ 334-1420/ 418)  56.3 W02-W07 S49-S43
     19  965  301 (S36E28 L=260)   886    105        2 ( 922/ 264-1006/ 344)  20.6 E32-E24 S39-S33
  

    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